Advertisement
smashapps

Generate Math Question

Jan 2nd, 2014
66
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Public Sub GenerateQuestion()
  2.         Randomize()
  3.         Dim Lownum As Integer = 3
  4.         Dim Highnum As Integer = 12
  5.         Dim FirstNumber As Integer = Int((Highnum - Lownum + 1) * Rnd()) + Lownum
  6.         Dim SecondNumber As Integer = Int((Highnum - Lownum + 1) * Rnd()) + Lownum
  7.         Dim GenerateSymbol As Integer = CInt(Int((3 * Rnd()) + 1))
  8.         Dim lownum1 As Integer = 0
  9.         Dim highnum1 As Integer = 0
  10.         If FirstNumber > SecondNumber Then
  11.             highnum1 = FirstNumber
  12.             lownum1 = SecondNumber
  13.         Else
  14.             highnum1 = SecondNumber
  15.             lownum1 = FirstNumber
  16.         End If
  17.         If GenerateSymbol = 1 Then
  18.             CorrectAnswer = highnum1 + lownum1
  19.             lblQuestion.Text = "What is " & highnum1 & " plus " & lownum1 & "?"
  20.         ElseIf GenerateSymbol = 2 Then
  21.             CorrectAnswer = highnum1 - lownum1
  22.             lblQuestion.Text = "What is " & highnum1 & " take " & lownum1 & "?"
  23.         ElseIf GenerateSymbol = 3 Then
  24.             CorrectAnswer = highnum1 * lownum1
  25.             lblQuestion.Text = "What is " & highnum1 & " times " & lownum1 & "?"
  26.         End If
  27.     End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement