Даны 3 числа.Вывести наибольшее из них - VB
Формулировка задачи:
Помогите со следующей задачей:
Написать программу к следующей задаче: "Даны 3 числа.Вывести наибольшее из них".
Программный код нужен.
Решение задачи: «Даны 3 числа.Вывести наибольшее из них»
textual
Листинг программы
Dim arr(1 To 3) as double, i as integer, max as double
For i = 1 To 3
arr(i) = inputbox("BBEDITE EL-T " & i)
Next
max = arr(1)
For i = 2 To 3
If arr(i)>max Then max = arr(i)
Next
MsgBox "Max = " & max