Напечатать процент людей от общего количества писавших работу, которые написали работу лучше этого человека - VB

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

Пожалуйста,помогите с задачей Напишите программу, решающую следующую задачу. Результат письменной работы оценивается исходя из 100 баллов (0 --- минимальная оценка, 100 --- максимальная). Сначала программе задается 101 целое число --- число человек, которые получили за письменную работу соответствующее число баллов. Затем программе задается число баллов за работу, которое набрал некоторый человек (этот человек уже учтен в статистике, заданной в начале). Программа должна напечатать процент людей (от общего количества писавших работу), которые написали работу лучше этого человека. Процент людей должен выводиться как целое число в диапазоне от 0 до 100. При необходимости дробная часть отбрасывается. Для вычислений используйте только целочисленные операции. Программа может быть написана на языках C, C++, Java, C#, QuickBasic, VisualBasic .NET, Pascal ABC, Delphi, FreePascal, Python2, Python3, PHP. Программа должна считывать входные данные со стандартного потока ввода (терминала, консоли) и выводить результат на стандартный поток вывода (терминал, консоль).

Решение задачи: «Напечатать процент людей от общего количества писавших работу, которые написали работу лучше этого человека»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim c As Integer, N As Integer, M(101) As Integer, rez As Integer, proc As Integer, str As String, kol As Integer
 
Private Sub Form_Load()
kol = 101
 
For c = 1 To kol
str = "Г®Г¶ГҐГ*ГЄГ* " & c
str = str + " ГЁГ±ГЇГ»ГІГіГҐГ¬Г®ГЈГ®:"
M(c) = InputBox(str)
Next c
rez = InputBox("ГўГўГҐГ¤ГЁГІГҐ Г®Г¶ГҐГ*ГЄГі Г¤Г«Гї Г±Г°Г*ГўГ*ГҐГ*ГЁГї")
 
N = 0
For c = 1 To kol
If M(c) > rez Then N = N + 1
Next c
 
proc = 100 * N / kol
 
If N <> 0 Then
MsgBox proc & "% Г*Г*ГЇГЁГ±Г*Г«ГЁ Г«ГіГ·ГёГҐ"
Else: MsgBox ("Г*ГЁГЄГІГ® Г*ГҐ Г*Г*ГЇГЁГ±Г*Г« Г«ГіГ·ГёГҐ")
End If
 
End Sub