Module modForEach Sub Main() Dim gradeArray As Integer(,) = New Integer(,) _ {{77, 68, 86, 73}, {98, 87, 89, 81}, {70, 90, 86, 81}} Dim grade As Integer Dim lowGrade As Integer = 100 For Each grade In gradeArray If grade < lowGrade Then lowGrade = grade End If Next Console.WriteLine("The minimum grade is: {0}", lowGrade) End Sub ' Main End Module
The minimum grade is: 68