Определить максимальное число из N чисел, введенных с клавиатуры - VBA
Формулировка задачи:
В VBA в Excel.
Решение задачи: «Определить максимальное число из N чисел, введенных с клавиатуры»
textual
Листинг программы
Sub Александр9797_max() Dim A(1 To 30) As Integer Dim Max As Integer Dim J As Byte, N As Byte N = InputBox("Сколько элементов в массиве?") For J = 1 To N A(J) = InputBox("Введите очередной элемент") Next J Max = A(1) For J = 1 To N If A(J) >= Max Then Max = A(J) Next J MsgBox "Максимум = " & Max Debug.Print "Max ="; Max End Sub 'Например, вводим N = 3 '13; 29; 10 'Max = 29
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д