Даны 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

Оцени полезность:

5   голосов , оценка 4.2 из 5
Похожие ответы