Explore BrainMass
Share

Explore BrainMass

    Visual Basic (VB.NET) code that accepts a grade (Double type) via inputbox until

    This content was COPIED from BrainMass.com - View the original, and get the already-completed solution here!

    I have to do a vb application that accepts grade input double type) via an input box and loop until a string ("END") is entered. The entries cannot be less than 0 or above 100.
    I also must calculate highest and lowest score, average score and % above average.
    I'm stuck at the loop as I'm not certain how to allow double type and string to be entered in inputbox and how to end the loop with the string. So far my loop is duplicating entries in the listbox and not giving error message when <0 or >100 is entered and not ending the loop as "END" is not being accepted.
    I have an idea of how the code should be however I'm not sure where I'm going wrong with my code.
    Please view my vb application code and guide me as to where I'm going wrong, please!
    Thanking you in advance for any assistance rendered.

    This is my code copied from VB 2010

    Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click

    End Sub

    Private Sub avscoreLabel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles avscoreLabel.Click

    End Sub

    Private Sub exitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles exitButton.Click
    Me.Close()

    End Sub

    Private Sub clearButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles clearButton.Click

    highscoreLabel.Text = String.Empty
    lowscoreLabel.Text = String.Empty
    avscoreLabel.Text = String.Empty
    ab_avgradeLabel.Text = String.Empty
    inv_entLabel.Text = String.Empty

    gradeListBox.Items.Clear()

    End Sub

    Private Sub calcButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles calcButton.Click

    Dim scoreArray(24) As Double
    Dim highest As Double
    Dim lowest As Double

    For X As Integer = 0 To scoreArray.GetUpperBound(0)
    If scoreArray(X) > highest Then
    highest = scoreArray(X)
    End If
    Next
    For Y As Integer = 0 To scoreArray.GetUpperBound(0)
    If scoreArray(Y) < lowest Then
    lowest = scoreArray(Y)
    End If
    Next
    lowscoreLabel.Text = lowest.ToString
    highscoreLabel.Text = highest.ToString

    End Sub

    Private Sub gr_inputButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles gr_inputButton.Click

    Dim scoreArray(24) As Double
    Dim gradeInput As String
    Dim gradeA As Integer
    Dim gradeB As Integer
    Dim gradeC As Integer
    Dim gradeD As Integer
    Dim gradeF As Integer
    Dim gradeInvalid As Integer
    Dim i As Integer

    gradeListBox.Items.Clear()

    gradeInput = InputBox("Please Enter Student Grade", "Enter Grade", , , ) 'priming
    Do While gradeInput <> "END" Or i <= 24
    scoreArray(i) = gradeInput
    i = i + 1
    gradeInput = InputBox("Please Enter Student Grade", "Enter Grade", , , ) 'updating

    For i = 0 To i - 1
    gradeListBox.Items.Add(scoreArray(i))
    Next

    Select Case gradeInput
    Case 90 To 100
    gradeA = gradeA + 1

    Case 80 To 89
    gradeB = gradeB + 1

    Case 70 To 79
    gradeC = gradeC + 1

    Case 60 To 69
    gradeD = gradeD + 1

    Case Is < 69
    gradeF = gradeF + 1

    Case Is > 100
    MessageBox.Show("Invalid Entry!" & Environment.NewLine & "Please Enter a Student Score between 0 & 100", "Roytec Examinations", MessageBoxButtons.OK, MessageBoxIcon.Error)
    gradeInvalid = gradeInvalid + 1
    Case Is < 0
    MessageBox.Show("Invalid Entry!" & Environment.NewLine & "Please Enter a Student Score between 0 & 100", "Roytec Examinations", MessageBoxButtons.OK, MessageBoxIcon.Error)
    gradeInvalid = gradeInvalid + 1
    End Select
    Loop

    End Sub
    End Class

    YOU CAN VIEW THE APPLICATION REQUIREMENTS BELOW FOR YOUR REFERENCE:

    You are required to create a Visual Basic application with an appropriate GUI for the Examinations Department. The program must accept student exam results marked out of 100 via an input box until the value entered is "END". These values must range between zero (0) and one hundred (100) and must be stored in an array. Invalid values entered must be flagged by a message box which states "Values must be between 0 and 100". The maximum number of students in any class is 25. While values are being stored in the array the program must keep track of the number of scores in the

    (1) "A" range (90-100)
    (2) "B" range (80-89)
    (3) "C" range (70-79)
    (4) "D" range (60-69)
    (5) "F" range (below 60)

    Also, the highest score, lowest score, the average (mean) score, the percentage of the grades that fall above the average and the number of invalid entries must be calculated and displayed in the GUI.

    Please Note:
    a) You must use a Do loop count the number of grades.
    b) You must use a case statement to count how many grades are in each range.
    c) The number of grades should be stored as a variable and used in the calculation of the average

    © BrainMass Inc. brainmass.com October 10, 2019, 5:05 am ad1c9bdddf
    https://brainmass.com/computer-science/visual-basic/visual-basic-code-accepts-grade-via-inputbox-until-492132

    Attachments

    Solution Summary

    A visual basic code that accepts a grade via inputbox until is examined.

    $2.19