Public Class Form1 Private Sub Label11_Click(ByVal sender As System.Object, ByVa
ID: 3531697 • Letter: P
Question
Public Class Form1
Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click
End Sub
Private Sub btnScoreExam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnScoreExam.Click
Dim strGrades() As String = {"B", "D", "A", "A", "C", "A",
"B", "A", "C", "D", "B", "C",
"D", "A", "D", "C", "C", "B",
"D", "A"}
Dim dtlResult(19) As Boolean
Dim intCorrect As Integer = 0
Dim validInput As Integer = 0
Dim Result.frm1stResult.Items.Clear()
Dim intCount As Integer = 0
Dim strInput(19) As String
strInput(0) = txt1.Text
strInput(1) = txt2.Text
strInput(2) = txt3.Text
strInput(3) = txt4.Text
strInput(4) = txt5.Text
strInput(5) = txt6.Text
strInput(6) = txt7.Text
strInput(7) = txt8.Text
strInput(8) = txt9.Text
strInput(9) = txt10.Text
strInput(10) = txt11.Text
strInput(11) = txt12.Text
strInput(12) = txt13.Text
strInput(13) = txt14.Text
strInput(14) = txt15.Text
strInput(15) = txt16.Text
strInput(16) = txt17.Text
strInput(17) = txt18.Text
strInput(18) = txt19.Text
strInput(19) = txt20.Text
Try
For intCount = 0 To (strGrades.Length - 1)
If strInput(intCount).ToUpper() = "A" Or
strInput(intCount).ToUpper() = "B" Or
strInput(intCount).ToUpper() = "C" Or
strInput(intCount).ToUpper() = "D" Then
If strGrades(intCount) = strInput(intCount).ToUpper() Then
intCorrect += 1
dtlResult(intCount) = True
End If
validInput = validInput + 1
End If
Next intCount
Catch ex As Exception
End Try
If validInput = 20 Then
Dim frmResult As New Result
frmResult.1stResult.Items.Clear())
frmResult.1stResult.Items.Add("--------------------")
frmResult.1stResult.Items.Add("Driver's License Exam Results")
frmResult.1stResult.Items.Add("--------------------")
For intCount = 0 To (19)
If (dtlResult(intCount) = True) Then
frmResult.1stResult.Items.Add(intCount + 1 & " Correct" & " Answer: " & strGrades(intCount))
Else
frmResult.1stResult.Items.Add(intCount + 1 & " Wrong" & " Answer: " & strGrades(intCount))
End If
Next intCount
frmResult.1stResult.Items.Add("--------------------")
frmResult.1stResult.Items.Add(" Total : " & intCorrect & " /20")
If (intCorrect >= 15) Then
frmResult.1stResult.Items.Add("Your Result : " & " PASS")
Else
frmResult.1stResult.Items.Add("Your Result : " & " FAIL")
End If
frmResult.ShowDialog()
Else
MessageBox.Show("Input should be A, B, C, or D", "Input Validation")
End If
End Sub
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
'Clear all TextBox controls
txt1.Text = String.Empty
txt2.Text = String.Empty
txt3.Text = String.Empty
txt4.Text = String.Empty
txt5.Text = String.Empty
txt6.Text = String.Empty
txt7.Text = String.Empty
txt8.Text = String.Empty
txt9.Text = String.Empty
txt10.Text = String.Empty
txt11.Text = String.Empty
txt12.Text = String.Empty
txt13.Text = String.Empty
txt14.Text = String.Empty
txt15.Text = String.Empty
txt16.Text = String.Empty
txt17.Text = String.Empty
txt18.Text = String.Empty
txt19.Text = String.Empty
txt20.Text = String.Empty
End Sub
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
'Close the Form
Me.Close()
End Sub
End Class
Explanation / Answer
what do you want to know??..please post and rate first
Related Questions
drjack9650@gmail.com
Navigate
Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.