Dim MARKS(1 To 34) As Integer
Dim Avg As Integer
Dim numberofmarks As Integer
Dim SORTED As Boolean
Dim TEMP As Integer

Private Sub cmdA_Click()
Form1.Cls
Sum = 0
For I = 1 To numberofmarks
Sum = Sum + MARKS(I)
Next I
Avg = Sum / numberofmarks
Print Avg
End Sub

Private Sub cmdB_Click()
Form1.Cls
BIG = 0
For I = 1 To 34
If MARKS(I) > BIG Then
BIG = MARKS(I)
End If
Next I
Print BIG
End Sub

Private Sub cmdDone_Click()
End
End Sub
Private Sub cmdW_Click()
Form1.Cls
SMALL = 100
For I = 1 To numberofmarks
If MARKS(I) < SMALL Then
SMALL = MARKS(I)
End If
Next I
Print SMALL
End Sub

Private Sub cmdS_Click()
Form1.Cls
SORTED = True
Do While SORTED = False
For x = 1 To numberofmarks
If MARKS(x) > MARKS(x + 1) Then
TEMP = MARKS(x)
MARKS(x) = MARKS(x + 1)
MARKS(x + 1) = TEMP
SORTED = False
End If
Next x
SORTED = True
Loop
For J = 1 To numberofmarks
Print MARKS(J)
Next J

End Sub

Private Sub Form_Load()

numberofmarks = InputBox("Enter the number of Marks you Want to Process.")
For I = 1 To numberofmarks
MARKS(I) = InputBox("Enter a Mark", "")
Next I

End Sub