Basically i've got five questions, with a choice of 3 answers to each question(radio buttons). I've decided to use a case function, to check if the correct radio button is selected. If it has then "1" will be added to the score. At the end of the questions the user clicks 'check', which runs the case function and then the score is output in the message box.
CODE
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim score As Integer = 0
Dim quiz As String
Select Case quiz
Case 1 : If Me.RadTwo.Checked = True Then score = (+1)
Case 2 : If Me.RadFive.Checked = True Then score = (+1)
Case 3 : If Me.RadSeven.Checked = True Then score = (+1)
Case 4 : If Me.RadTwelve.Checked = True Then score = (+1)
Case 5 : If Me.RadFourteen.Checked = True Then score = (+1)
End Select
Call MsgBox("Congratulations, your score is " & score, vbOKOnly Or vbInformation, "Score")
End Sub
Any help please, much appreciated.
4 Mar, 2008 - 06:19 AM
.
still counts as zero, does anyone see a problem with the way that it counts the scores, i have a feeling that its not counting properly.
| 