Помогите решить в VBA

[Dante_Sparda]

Дана последовательность из n целых чисел. Найти номер максимального элемента в этой последовательности.

[ZX Spectrum-128]

Sub МаксЧисло()
Dim max As Single, a As Single
max = InputBox("Введите число ")
For i = 1 To 9
  a = InputBox("Введите число")
  If a > max Then
     max =a
  End If
Next 
MsgBox(max)
End Sub

[Serge_Bliznykov]

Тема закрыта за Кросспостинг!


Модератор