YaHoooooooo
I just wanted to say thank you to all those who helped. I now have a fairly good understanding of one dimensional array�s.
Here is my completed code for those interested. Comments and suggestions on better or more efficient ways of doing this are welcome
'Global
Dim HighGrade As Integer = 0
Dim av_grade As Integer = 0
Dim LowGrade As Integer = 100
Dim GradeTotal As Integer
Dim Grade(100) As String
Dim score As Integer
Dim I As Integer
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
For I = 0 To 100
Grade(I) = InputBox("Enter Score")
If Grade(I) = "" Then
Exit For
End If
If Val(Grade(I)) < 0 Then
Exit For
End If
GradeTotal += Val(Grade(I))
Next
av_grade = GradeTotal / I
End Sub
Function CalcGrade()
Dim x As Integer
For x = 0 To I - 1
If Val(Grade(x)) > HighGrade Then
HighGrade = Val(Grade(x))
End If
If Val(Grade(x)) < LowGrade Then
LowGrade = Val(Grade(x))
End If
Next
End Function
Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click
CalcGrade()
Me.lblAboveAve.Text = HighGrade
Me.lblBelowAve.Text = LowGrade
HighGrade = 0
av_grade = 0
LowGrade = 100
GradeTotal = 0