Question

zoow Driver's License Exam The local Registry of Motor Vehicles oflice has asked you to create an application that grades the written portion of the driver's license exam. The exam has 20 multiplc choice questions. Her ar the orrect answers to the questions: 6. A 7.13 8. A 9. C 10. D 16. С 12. C 13. D 14. A 15. D 2. D 3. A 5, C Your application should slore the correcl answers in an array. A lorm, such as the 18. B 19. D 20. A one shown below, should allow the user to enter answers for each questioin. When the user clicks the Score Exam button the application should display the score for each exam and if the student passed or failed the exam. The pass score is 14 question correct.

Visual Basic

Answer 1

Code:

Public Class Form1

Public strGrades() As String = {"B", "D", "A", "A", "C", "A", "B", "A", "C", "D", "B", "C", "D", "A", "D", "C", "C", "B", "D", "A"}
Public strInput(0 To 19) As String

Private Sub btnScore_Click(sender As Object, e As EventArgs) Handles btnScore.Click

strInput(0) = TextBox1.Text
strInput(1) = TextBox2.Text
strInput(2) = TextBox3.Text
strInput(3) = TextBox4.Text
strInput(4) = TextBox5.Text
strInput(5) = TextBox6.Text
strInput(6) = TextBox7.Text
strInput(7) = TextBox8.Text
strInput(8) = TextBox9.Text
strInput(9) = TextBox10.Text
strInput(10) = TextBox11.Text
strInput(11) = TextBox12.Text
strInput(12) = TextBox13.Text
strInput(13) = TextBox14.Text
strInput(14) = TextBox15.Text
strInput(15) = TextBox16.Text
strInput(16) = TextBox17.Text
strInput(17) = TextBox18.Text
strInput(18) = TextBox19.Text
strInput(19) = TextBox20.Text

compare()

End Sub

Sub compare()
Dim intCount As Integer
Dim intCorrect As Integer = 0
Dim decPercent As Integer = 0

For intCount = 0 To (strInput.Length - 1)
If strGrades(intCount) = strInput(intCount) Then
intCorrect += 1
End If
Next intCount

If intCorrect >= 14 Then
lblResult.Text = "Correct" & Environment.NewLine & " " & intCorrect & Environment.NewLine & "Pass"
Else
lblResult.Text = "Correct" & Environment.NewLine & " " & intCorrect & Environment.NewLine & "Fail"
End If
End Sub

Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
EmptyInput()
End Sub
Sub EmptyInput()
Dim intCount3 As Integer

For intCount3 = 0 To 19
strInput(intCount3) = String.Empty
Next intCount3

TextBox1.Text = String.Empty
TextBox2.Text = String.Empty
TextBox3.Text = String.Empty
TextBox4.Text = String.Empty
TextBox5.Text = String.Empty
TextBox6.Text = String.Empty
TextBox7.Text = String.Empty
TextBox8.Text = String.Empty
TextBox9.Text = String.Empty
TextBox10.Text = String.Empty
TextBox11.Text = String.Empty
TextBox12.Text = String.Empty
TextBox13.Text = String.Empty
TextBox14.Text = String.Empty
TextBox15.Text = String.Empty
TextBox16.Text = String.Empty
TextBox17.Text = String.Empty
TextBox18.Text = String.Empty
TextBox19.Text = String.Empty
TextBox20.Text = String.Empty
lblResult.Text = String.Empty

End Sub

Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
Me.Close()

End Sub
End Class

Output:

Form1 11: B 16: C Cormect 20 Pass 12: C 2: D 17: C 13: D 18: B 4: A 9: C 14: A 19: D 5: C 10: D 20: A 15: D Score Exam Clear List Exit