[VB.Net] Неправильный подсчёт

[Avatonk]

Программа подсчитывает неверно количество вопросов(по идее должна подсчитывать так чтобы количество ответов было равно количеству записей в базе данных), из-за этого тест завершается до окончания вопросов(всего вопросов 20, возможно надо будет добавлять ещё, но она после ответа на первый выдаёт результат и завершает тест).
Код:
Public Class Form2
Dim s, i As Integer
Dim Col As New Collection
Dim INDX As Integer = 0
Dim ColRnd As New Collection
Dim SB As New System.Text.StringBuilder
Dim bal As Byte
Public vsego As Integer = Form3.DataGrid1.DataBindings.Count
Dim n As Integer = 1 'счётчик кол-ва вопросов
Dim Procent As Single
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу "TestDataSet.Вопросы". При необходимости она может быть перемещена или удалена.
Me.ВопросыTableAdapter.Fill(Me.Test DataSet.Вопросы)

Label1.Text = "Испытуемый: " & Form1.fname & " " & Form1.lname & ", " & Form1.ngroup
Button1.Text = "Начать тестирование"
Randomize()
For I As Integer = 1 To vsego
Col.Add(I)
Next
Dim R As Integer
Do While Col.Count > 0
R = (Int(Rnd() * Col.Count + 1))
ColRnd.Add(Col(R))
Col.Remove(R)
Loop
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button1.Text = "Ответ"
TextBox1.Visible = True
RadioButton1.Visible = True
RadioButton2.Visible = True
RadioButton3.Visible = True
RadioButton4.Visible = True


'INDX += 1
'If INDX > 20 Then
If n > vsego Then
'If i >= 18 Then bal = 5
'If i >= 16 Then bal = 4
'If i >= 14 Then bal = 3
'If i <= 13 Then bal = 2
Procent = vsego / i
If Procent >= 0.7 Then bal = 5
If Procent >= 0.64 Then bal = 4
If Procent >= 0.55 Then bal = 3
If Procent <= 0.54 Then bal = 2

MsgBox("Набрано баллов: " & i & ", Оценка:" & bal & " Тестирование завершено", MsgBoxStyle.Information)
Close()
Exit Sub
End If
Me.Text = "Вопрос №" & n & " из " & vsego
' s = ColRnd(INDX)
s = ColRnd(vsego)

If s = 1 Then

If RadioButton1.Checked = True Then
i = i + 1
n = n + 1
End If

RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
ElseIf s = 2 Then

If RadioButton3.Checked = True Then
i = i + 1
n = n + 1
End If

RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
ElseIf s = 3 Then

If RadioButton3.Checked = True Then
i = i + 1
n = n + 1
End If
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
ElseIf s = 4 Then

If RadioButton2.Checked = True Then
i = i + 1
n = n + 1
End If
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
ElseIf s = 5 Then

If RadioButton1.Checked = True Then
i = i + 1
n = n + 1
End If
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False

[Avatonk]

ElseIf s = 6 Then

If RadioButton2.Checked = True Then
i = i + 1
n = n + 1
End If
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
ElseIf s = 7 Then

If RadioButton2.Checked = True Then
i = i + 1
n = n + 1
End If
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
ElseIf s = 8 Then

If RadioButton2.Checked = True Then
i = i + 1
n = n + 1
End If
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
ElseIf s = 9 Then

If RadioButton3.Checked = True Then
i = i + 1
n = n + 1
End If
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
ElseIf s = 10 Then

If RadioButton1.Checked = True Then
i = i + 1
n = n + 1
End If
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
ElseIf s = 11 Then

If RadioButton2.Checked = True Then
i = i + 1
n = n + 1
End If
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
ElseIf s = 12 Then

If RadioButton1.Checked = True Then
i = i + 1
n = n + 1
End If
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
ElseIf s = 13 Then

If RadioButton3.Checked = True Then
i = i + 1
n = n + 1
End If
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
ElseIf s = 14 Then

If RadioButton2.Checked = True Then
i = i + 1
n = n + 1
End If
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
ElseIf s = 15 Then

If RadioButton1.Checked = True Then
i = i + 1
n = n + 1
End If
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
ElseIf s = 16 Then

If RadioButton2.Checked = True Then
i = i + 1
n = n + 1
End If
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
ElseIf s = 17 Then

If RadioButton3.Checked = True Then
i = i + 1
n = n + 1
End If
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
ElseIf s = 18 Then

If RadioButton3.Checked = True Then
i = i + 1
n = n + 1
End If
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
ElseIf s = 19 Then

If RadioButton2.Checked = True Then
i = i + 1
n = n + 1
End If
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
ElseIf s = 20 Then
If RadioButton3.Checked = True Then
i = i + 1
n = n + 1
End If
End If

End Sub

End Class
Оставшийся кусок

[doober]

Приложите лучше схему TestDataSet.xsd.
От количества строк кода стало страшно.

[Avatonk]

Мне самому страшно..

[doober]

Вы сами выбрали вариант помощи.
Был бы файл xsd,как я просил,получили бы готовый код с проектом.
А по фотке мне облом создавать.
Поэтому опишу чуть позже.

[Avatonk]

Вот файл Xsd..только помоги плиз

[doober]

Я думаю,идея вам понятна.
Добавил.
Совсем забыл вызвать процедуру calc

Исправте

  Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _
    RadioButton1.CheckedChanged, RadioButton2.CheckedChanged, RadioButton3.CheckedChanged, RadioButton4.CheckedChanged
        If sender.Checked = False Then
            Return
        End If
        Try


            Select Case CBool(sender.tag)

                Case True
                    Pravilno += 1
                Case False
                    ' На запас,вдруг не правильные считать надо
            End Select
         calc()

            n += 1
            If n >= BS.Count Then
                MsgBox("Game Over")

            End If
            Me.BS.Position = n

        Catch ex As Exception

        End Try

        sender.Checked = False
    End Sub