Public
Class Form1
Dim Evaluate As Integer = 0
Dim answer As Integer = 0
Private Sub form1_load (...) Handles MyBase.Load, btnTrue.Click, btnFalse.Click
txtevaluate.Cle ar()
Select Case Evaluate
Case 0
txtanswers.Text = "statement 1"
Case 1
txtanswers.Text = "statement 2"
Case 2
txtanswers.Text = "statement 3"
Case 3
txtanswers.Text = "statement 4"
Case 4
txtanswers.Text = "statement 5"
Case 5
txtanswers.Text = "statement 6"
Case 6
txtanswers.Text = "statement 7"
Case 7
txtresault.Text = CStr(answer) & " correct"
Select Case answer
Case 7
txtevaluate.Tex t = "perfect"
Case 5, 6
txtevaluate.Tex t = "Excellent"
Case Else
txtevaluate.Tex t = "Retake the exam!"
( I am thinking right here I would do some kind of loop?) Or if then statement to go back?
Like a MessageBox.Show ("You need to retake the exam!"), Thengo back to the TOP <---- this is the part I am stuck at. anyone who can help
End Select
Class Form1
Dim Evaluate As Integer = 0
Dim answer As Integer = 0
Private Sub form1_load (...) Handles MyBase.Load, btnTrue.Click, btnFalse.Click
txtevaluate.Cle ar()
Select Case Evaluate
Case 0
txtanswers.Text = "statement 1"
Case 1
txtanswers.Text = "statement 2"
Case 2
txtanswers.Text = "statement 3"
Case 3
txtanswers.Text = "statement 4"
Case 4
txtanswers.Text = "statement 5"
Case 5
txtanswers.Text = "statement 6"
Case 6
txtanswers.Text = "statement 7"
Case 7
txtresault.Text = CStr(answer) & " correct"
Select Case answer
Case 7
txtevaluate.Tex t = "perfect"
Case 5, 6
txtevaluate.Tex t = "Excellent"
Case Else
txtevaluate.Tex t = "Retake the exam!"
( I am thinking right here I would do some kind of loop?) Or if then statement to go back?
Like a MessageBox.Show ("You need to retake the exam!"), Thengo back to the TOP <---- this is the part I am stuck at. anyone who can help
End Select
Comment