Mirage Source

Option Explicit
Public ans As Integer
Public Points As Integer

Private Sub Question()
Dim a As Integer
Dim b As Integer
Dim sym As Integer
Dim symbol As String

Randomize
a = Int(Rnd * 9) + 1

Randomize
b = Int(Rnd * 9) + 1

Randomize
sym = Int(Rnd * 3) + 1

Select Case sym
    Case 0
        symbol = " + "
        ans = a + b
    Case 1
        symbol = " - "
        ans = a - b
    Case 2
        symbol = " / "
        ans = a / b
    Case 3
        symbol = " x "
        ans = a * b
End Select

lblQuestion.Caption = CStr(a) & symbol & CStr(b)

End Sub

Private Function Score(ByVal i As Integer)

If i = ans Then
    Points = Points + 1
    txtAnswer.Text = ""
    MsgBox "Correct!", vbOKOnly, "Score"
    txtAnswer.SetFocus
Else
    txtAnswer.Text = ""
    MsgBox "Wrong! Correct Answer = " & ans, vbExclamation, "Score"
    Points = Points
    txtAnswer.SetFocus
End If

If Points = 25 Then

    Dim NewGame As Integer
   
    NewGame = MsgBox("Congratulations! You won!", vbYesNo, "GAME OVER")
   
        If NewGame = vbYes Then
            Points = 0
            txtAnswer.Text = ""
            txtAnswer.SetFocus
        ElseIf NewGame = vbNo Then
            Unload Me
        End If
Else
    'Do nothing
End If

Call UpdateScore(Points)

End Function

Private Function UpdateScore(ByVal i As Integer)

     lblScore.Caption = "Score: " & i
     
End Function


Private Sub cmdSend_Click()

Call Score(CInt(txtAnswer.Text))
Call Question

End Sub

Private Sub Form_Load()

Points = 0

Call Question
Call UpdateScore(Points)

End Sub