Помогите написать прогу в visual basic
Дано 10 вещественных чисел. Найти величину наибольшего.
В принципе код могу написать, но нужно, чтобы он проходил с вещественными числами. То есть задаю массив, ввожу. Максимальный индекс элемента массива 0.Далее идёт цикл от 1 до 9, и сравниваю элемент с индексом 0 с другими элементами массива. Получаю новое максимальное. В Паскале написать такое легко, там вещественные real,а как быть в Бейсике?
на форме создать командную кнопку. Вещественные - Double
Private Sub Command1_Click()
Dim A() As Double
Dim s() As Double
Rem Ввод одномерного массива
N = Val(InputBox("Укажите размерность массива"))
ReDim A(N) As Double
For i = 1 To N
A(i) = Val(InputBox("Введите" & Str(i) & "элемент"))
Next i
Rem Вывод одномерного массива
For i = 1 To N
Print A(i),
Next i
Amax = A(1)
For i = 1 To N
If A(i) > Amax Then Amax = A(i)
Next i
Print
Print "Наибольший элемент массива=", Amax
End Sub