Помогите с написанием программы на visual basic

Помогите с написанием программы на visual basic.
задание - Дан массив В из N целых чисел. Составьте алгоритм подсчета,
сколько раз в массиве встречается минимальное число.

Мои наработки, но неудачные - что не так ?
Module Module1

Sub Main()
Dim N, i, Col 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(1) Then
Col = i + 1
End If
Next i
Console.WriteLine("col({0})", Col, i)
Console.ReadLine()

End Sub

End Module

  • Вы сравниваете число не с минимальным, а с первым. Храните индекс минимального и меняйте его на следующий при нахождении очередного минимума.