For Visual Basic application and using If then else statements. 4. Write a quiz

ID: 3887285 • Letter: F

Question

For Visual Basic application and using If then else statements.

4. Write a quiz processor that enables a teacher to record quiz scores and then displays a statistical summary when all quizzes have been entered. The sum- mary should include the highest score, the lowest score, the average score and the total number of students who passed the quiz with a grade of C or better. Assume that the teacher uses straight scale for assigning grades (thac is, 90 percent or better-A, 89 percent-80 percent B, and so on). Sample form designs follow: (Sce Appendix A for information on the line control.) 4. Quiz Scoe Susma X Summary Form Quiz Sumiary Tolai number Ouiz Scoe: Lowe: ccae 0 Aversge :core SummaryClear beter OF

Explanation / Answer

Hi,

Here there is no attachmet of Zip file so i will write vb code i here
1.FormQuizSummary.vb

Public Class FormQuizSummary

    Private Sub ButtonOk_Click(sender As Object, e As EventArgs) Handles ButtonOk.Click
        Close()
    End Sub

    Private Sub FormQuizSummary_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TextBoxTotalNoScore.Text = ModuleQuizInfo.totalNoScore
        TextBoxHighestScore.Text = ModuleQuizInfo.highestScore
        TextBoxLowestScore.Text = ModuleQuizInfo.lowestScore
        TextBoxAverageScore.Text = ModuleQuizInfo.averageScore
        TextBoxCOrBetter.Text = ModuleQuizInfo.noOfCScore
    End Sub
End Class

2. Form1.vb

Public Class QuizForm

    Private Sub ButtonClear_Click(sender As Object, e As EventArgs) Handles ButtonClear.Click
        TextBoxQuizScore.Clear()
        TextBoxPosssible.Clear()
    End Sub

    Private Sub ButtonExit_Click(sender As Object, e As EventArgs) Handles ButtonExit.Click
        Close()
    End Sub

    Private Sub ButtonSummary_Click(sender As Object, e As EventArgs) Handles ButtonSummary.Click
        FormQuizSummary.Show()
    End Sub

    Private Sub ButtonEnter_Click(sender As Object, e As EventArgs) Handles ButtonEnter.Click
        Dim quizScore As Decimal
        quizScore = TextBoxQuizScore.Text
        If quizScore > 90 Then
            ModuleQuizInfo.totalNoScore = ModuleQuizInfo.totalNoScore + 1
            ModuleQuizInfo.noOfCScore = ModuleQuizInfo.noOfCScore + 1

            If ModuleQuizInfo.averageScore = 0D Then
                ModuleQuizInfo.averageScore = quizScore
            End If
            If ModuleQuizInfo.lowestScore = 0D Then
                ModuleQuizInfo.lowestScore = quizScore
            End If
        ElseIf quizScore < 90 And quizScore > 80 Then
            ModuleQuizInfo.totalNoScore = ModuleQuizInfo.totalNoScore + 1
            ModuleQuizInfo.noOfCScore = ModuleQuizInfo.noOfCScore + 1
            If ModuleQuizInfo.averageScore = 0D Then
                ModuleQuizInfo.averageScore = quizScore
            ElseIf ModuleQuizInfo.averageScore > quizScore Then
                ModuleQuizInfo.averageScore = quizScore
            End If

            If ModuleQuizInfo.highestScore = 0D Then
                ModuleQuizInfo.highestScore = quizScore
            ElseIf ModuleQuizInfo.highestScore < quizScore Then
                ModuleQuizInfo.highestScore = quizScore
            End If
            If ModuleQuizInfo.lowestScore = 0D Then
                ModuleQuizInfo.lowestScore = quizScore
            ElseIf ModuleQuizInfo.lowestScore > quizScore Then
                ModuleQuizInfo.lowestScore = quizScore
            End If
        ElseIf quizScore < 80 And quizScore > 70 Then
            ModuleQuizInfo.totalNoScore = ModuleQuizInfo.totalNoScore + 1
            ModuleQuizInfo.noOfCScore = ModuleQuizInfo.noOfCScore + 1
            If ModuleQuizInfo.lowestScore = 0D Then
                ModuleQuizInfo.lowestScore = quizScore
            ElseIf ModuleQuizInfo.lowestScore > quizScore Then
                ModuleQuizInfo.lowestScore = quizScore
            End If
            If ModuleQuizInfo.highestScore = 0D Then
                ModuleQuizInfo.highestScore = quizScore
            ElseIf ModuleQuizInfo.highestScore < quizScore Then
                ModuleQuizInfo.highestScore = quizScore
            End If
            If ModuleQuizInfo.averageScore = 0D Then
                ModuleQuizInfo.averageScore = quizScore
            ElseIf ModuleQuizInfo.averageScore < quizScore Then
                ModuleQuizInfo.averageScore = quizScore
            End If
        End If
        TextBoxQuizScore.Clear()
        TextBoxQuizScore.Focus()
    End Sub
End Class

I will send download link for zip
3. ModuleQuizInfo.vb

Module ModuleQuizInfo
    Public totalNoScore As Decimal = 0D
    Public highestScore As Decimal = 0D
    Public lowestScore As Decimal = 0D
    Public averageScore As Decimal = 0D
    Public noOfCScore As Decimal = 0D
End Module

Let me know if change change required

Navigate

For Visual Basic 2012: Write a program that reads social security number and pri

For Visual Basic: Write an event procedure with the header Private Sub btnComput

Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.

For Visual Basic application and using If then else statements. 4. Write a quiz

Question

Explanation / Answer

Related Questions

Navigate