Imports System
Public Class Program
Public Shared Function getTheTwoLargest(ByVal arr As Integer()) As Tuple(Of Integer, Integer)
Dim max As Integer = Int32.MinValue, secondmax As Integer = Int32.MinValue
For i As Integer = 0 To arr.Length - 1
If arr(i) > max Then
secondmax = max
max = arr(i)
ElseIf arr(i) < max AndAlso arr(i) > secondmax Then
secondmax = arr(i)
End If
Next
Return Tuple.Create(max, secondmax)
End Function
Public Shared Sub Main()
Dim arr As Integer() = {7, 3, 0, 8, 2, 5, 99, 4, 6}
Dim result = getTheTwoLargest(arr)
Console.WriteLine("First Largest: {0}", result.Item1)
Console.WriteLine("Second Largest: {0}", result.Item2)
End Sub
End Class
' run:
'
' First Largest: 99
' Second Largest: 8
'
