Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
- Dim intrandom As New Random
- Dim intGetal As Integer
- Dim intGetal2 As Integer
- A:
- intGetal = intrandom.Next(0, 10)
- intGetal2 = intrandom.Next(0, 10)
- Dim intSom As Integer = intGetal + intGetal2
- If InputBox("Hoeveel is " & intGetal & " + " & intGetal2 & " ?") = intSom Then
- MessageBox.Show("Correct!")
- GoTo A
- Else
- MessageBox.Show("Niet correct! Probeer later opnieuw")
- Me.Close()
- End If
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement