面试题：Visual Basic 数组操作问题

Question

在 Visual Basic 中，给定一个整数数组，要求编写一个函数，找出数组中的第二大的数并返回。数组中可能存在重复元素，且元素个数不确定。

Answer 1

Function FindSecondLargest(arr() As Integer) As Integer
    Dim largest As Integer
    Dim secondLargest As Integer
    Dim i As Integer
    
   '假设数组至少有两个元素
    largest = arr(0)
    secondLargest = arr(0)
    
    For i = 1 To UBound(arr)
        If arr(i) > largest Then
            secondLargest = largest
            largest = arr(i)
        ElseIf arr(i) > secondLargest And arr(i) < largest Then
            secondLargest = arr(i)
        End If
    Next i
    
    FindSecondLargest = secondLargest
End Function