Visual Basic.NET How to Program (PDF)

Chapter 7 Arrays 285
65 ' find the maximum grade
66 Function Maximum(ByVal grades As Integer()()) _
67 As Integer
68
69 Dim highGrade As Integer = 0
70 Dim i, j As Integer
71
72 For i = 0 To lastStudent
73
74 For j = 0 To lastExam
75
76 If grades(i)(j) > highGrade Then
77 highGrade = grades(i)(j)
78 End If
79
80 Next
81
82 Next
83
84 Return highGrade
85 End Function ' Maximum
86
87 ' determine the average grade for student
88 ' (or set of grades)
89 Function Average(ByVal setOfGrades As Integer()) _
90 As Double
91
92 Dim i As Integer, total As Integer = 0
93
94 ' find sum of student's grades
95 For i = 0 To lastExam
96 total += setOfGrades(i)
97 Next
98
99 Return total / setOfGrades.Length
100 End Function ' Average
101
102 ' creates String displaying array
103 Sub BuildString(ByVal grades As Integer()())
104 Dim i, j As Integer
105
106 ' align column heads
107 output &= " "
108
109 For i = 0 To lastExam
110 output &= "(" & i & ") "
111 Next
112
113 For i = 0 To lastStudent
114 output &= vbCrLf & " (" & i & ") "
115
Fig. Fig. 7.17 7.17 Using jagged two-dimensional arrays (part 3 of 4).