Fungsi Untuk Memperoleh Nilai Maksimal Dari Sebuah Array

Di bawah ini merupakan fungsi untuk memperoleh nilai maksimal dari sebuah array.

Option Explicit 
 
Public Function MAX(ByRef Number() As Double) As Double 
    Dim iMaxNum As Double 
    Dim i As Integer 
    iMaxNum = Number(LBound(Number)) 
        For i = LBound(Number) To UBound(Number) 
            If Number(i) > iMaxNum Then 
                iMaxNum = Number(i) 
            Else 
                iMaxNum = iMaxNum 
            End If 
        Next i 
      MAX = iMaxNum 
End Function 

Contoh penggunaan fungsi untuk memperoleh nilai maksimal dari sebuah array

Private Sub Command1_Click() 
    Dim iArray(3) As Double 
    iArray(0) = 588 
    iArray(1) = 67 
    iArray(2) = 66 
    iArray(3) = 4 
    MsgBox "The max number is: " & MAX(iArray) 
End Sub