Определить максимальное четное число из N чисел, введенных с клавиатуры - VBA

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

В Excel

Код к задаче: «Определить максимальное четное число из N чисел, введенных с клавиатуры - VBA»

textual
Sub Макс_чет()
    Dim n As Integer, m As Integer, B As Double, A As Double
    B = 0
    Do
       n = n + 1
       A = InputBox("Введите число № " & n & vbCrLf & "Окончание ввода - 0 ", , 0)
   
       If A = 0 Then n = n - 1: Exit Do
       If A > B And A Mod 2 = 0 Then B = A
    Loop
    If n = 0 Then MsgBox "Не введено ни одного числа": Exit Sub
    If m = 0 Then MsgBox "Максимальное четное число " & B: Exit Sub
   
End Sub

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


СОХРАНИТЬ ССЫЛКУ