Определить максимальное число из 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4.5 из 5
Похожие ответы