Даны 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
