Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Sub GenerateQuestion()
- Randomize()
- Dim Lownum As Integer = 3
- Dim Highnum As Integer = 12
- Dim FirstNumber As Integer = Int((Highnum - Lownum + 1) * Rnd()) + Lownum
- Dim SecondNumber As Integer = Int((Highnum - Lownum + 1) * Rnd()) + Lownum
- Dim GenerateSymbol As Integer = CInt(Int((3 * Rnd()) + 1))
- Dim lownum1 As Integer = 0
- Dim highnum1 As Integer = 0
- If FirstNumber > SecondNumber Then
- highnum1 = FirstNumber
- lownum1 = SecondNumber
- Else
- highnum1 = SecondNumber
- lownum1 = FirstNumber
- End If
- If GenerateSymbol = 1 Then
- CorrectAnswer = highnum1 + lownum1
- lblQuestion.Text = "What is " & highnum1 & " plus " & lownum1 & "?"
- ElseIf GenerateSymbol = 2 Then
- CorrectAnswer = highnum1 - lownum1
- lblQuestion.Text = "What is " & highnum1 & " take " & lownum1 & "?"
- ElseIf GenerateSymbol = 3 Then
- CorrectAnswer = highnum1 * lownum1
- lblQuestion.Text = "What is " & highnum1 & " times " & lownum1 & "?"
- End If
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement