Visual basic

Visual basic
помогите плз с этим, задание - Дан массив В из N целых чисел. Составьте алгоритм подсчета,
сколько раз в массиве встречается минимальное число.
моя программа (работает ,но не правильно, не понимаю почему)

Dim N, i, Min As Integer
N = Val(Console.ReadLine())
Dim B(N) As Single
For i = 1 To N
Console.WriteLine("B=({0})", i)
B(i) = Val(Console.ReadLine())
If B(i) < B(Min) Then
Min = i + 1
End If
Next i
Console.WriteLine("Min({0})", Min, i)
Console.ReadLine()

  • Работает неправильно, потому что написана неправильно.

    1. По заданию: Дан массив В из N целых чисел
    Dim B(N) As Single < -- Single, это какой тип данных? Смотрим: http://msdn.microsoft.com/ru-ru/library/xay7978z 2. For i = 1 To N У вас нижняя граница массива начинается с 1 ??? 3. Сначала заполните массив числами (не обязательно рандомно), затем определите какое число в массиве минимально (Пример: http://otvet.mail.ru/answer/477592038 ). Затем еще раз пройдитесь по массиву и определите сколько в нем этих самых минимальных чисел.