Question

Составьте программу, которая уменьшает первое число в 5 раз, если первое число больше второго по абсолютно величине (модулю) на языке Visual Basik
Спасибо заранее.

Answer 1

Sub Z()
Dim a As Integer
a = InputBox("1")
Dim b As Integer
b = InputBox("2")
If Math.Abs(a) > Math.Abs(b) Then a = a / 5
End Sub