Mega Code Archive

 

Categories / VB.Net / Data Structure

 

Use For EachNext to find a minimum grade

Imports System Public Class MainClass     Shared Sub Main(ByVal args As String())       Dim gradeArray As Integer(,) = New Integer(,) {{1, 2, 3, 4}, {4, 3, 8, 1}, {7, 9, 8, 1}}       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 End Class