VB中的统计问题（VB2008）

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        choice()
        If Not IsNumeric(TextBox3.Text) Then
            MsgBox("Please enter a number…")
        ElseIf Val(TextBox3.Text) = Val(TextBox4.Text) Then
            Static a As Integer
            a = a + 1
            Label5.Text = "正确个数:" & a
            Label4.ForeColor = Color.Blue
            Dim i As Integer = CInt(Int((4 * Rnd()) + 1))
            If i = 1 Then
                Label4.Text = "Very good!"
            End If
            If i = 2 Then
                Label4.Text = "Excellent!"
            End If
            If i = 3 Then
                Label4.Text = "Nice Work!"
            End If
          &n