Share
Explore BrainMass

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

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

Attachments

Solution Summary

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

$2.19