Даны 3 числа.Вывести наибольшее из них - VB

Формулировка задачи:

Помогите со следующей задачей: Написать программу к следующей задаче: "Даны 3 числа.Вывести наибольшее из них". Программный код нужен.

Код к задаче: «Даны 3 числа.Вывести наибольшее из них - VB»

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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

5   голосов, оценка 4.200 из 5


СДЕЛАЙТЕ РЕПОСТ