Найти наибольшее среди N введенных чисел - VB

Формулировка задачи:

Найти наибольшее среди N введенных чисел.

… ‘ объявление переменных и ввод значения N
max = -32000 ‘первоначальное значение max
For i = 1 To N ‘начало цикла
b = Val (InputBox("Введите число:", " Ввoд исходных чисел"))
If b > max then max = b ‘сравнение числа с максимальным
Next i ‘возвращение на начало цикла с увеличением счетчика на шаг
Print "max="; max

вот смотри примерно так надо, если не сложно

только нужно найти наименьшее положительное число

апнул

Решение задачи: «Найти наибольшее среди N введенных чисел»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
    Dim min&, b&
    Const N = 10
    '… ‘ объявление переменных и ввод значения N
    min = 2 ^ 31 - 1 'первоначальное значение min
    For i = 1 To N 'начало цикла
        b = Val(InputBox("Введите число:", " Ввoд исходных чисел"))
        If b < min Then min = b 'сравнение числа с максимальным
    Next i 'возвращение на начало цикла с увеличением счетчика на шаг
    Print "min="; min
End Sub
                        