Помогите написать прогу в visual basic

Question

Дано 10 вещественных чисел. Найти величину наибольшего. 
 
В принципе код могу написать, но нужно, чтобы он проходил с вещественными числами. То есть задаю массив, ввожу. Максимальный индекс элемента массива 0.Далее идёт цикл от 1 до 9, и сравниваю элемент с индексом 0 с другими элементами массива. Получаю новое максимальное. В Паскале написать такое легко, там вещественные real,а как быть в Бейсике?

Нина Гончаренко · Accepted Answer

на форме создать командную кнопку. Вещественные - 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