•Sub
DetermineStatus(ByVal person As Student)
• Dim i, total As
Integer
• For i = 1 To person.credits.GetUpperBound(0)
• total += person.credits(i)
• Next
• If (total >= 120) Then
• txtResult.Text = person.name.firstName
& " " & _
• person.name.lastName & " has
enough credits" & _
• " to graduate."
• Else
• txtResult.Text = person.name.firstName
& " " & _
• person.name.lastName & " needs
" & _
• (120 - total) & " more credits
to graduate."
• End If
•End
Sub
•