VB6 Code - Memperoleh Nilai Maksimal Dari Sebuah Array

Di bawah ini merupakan fungsi VB6 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