Даны три числа. Найти среди них максимальное отрицательное число - VB
Формулировка задачи:
Всем примет, начал изучать Visual Basic никак не могу решить задачу.
Даны три числа. Найти среди них максимальное отрицательное число.
Помогите пожалуйста
Решение задачи: «Даны три числа. Найти среди них максимальное отрицательное число»
textual
Листинг программы
Option Explicit
Dim a(1 To 3) As Single, max As Single, i As Integer
Private Sub main()
For i = LBound(a) To UBound(a)
a(i) = InputBox("Введите число")
If a(i) < 0 And max = 0 Then max = a(i)
If a(i) < 0 And max < a(i) Then max = a(i)
Next i
If max < 0 Then
MsgBox ("Максимальное отрицательное число равно " & max)
Else
MsgBox ("Отрицательных чисел нет ")
End If
End Sub