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