VB6 Code - Memperoleh Nilai Minimal Dari Sebuah Array

Di bawah ini merupakan fungsi VB6 untuk mencari nilai minimal dari sebuah array.

Option Explicit

Public Function MIN(ByRef Number() As Double) As Double
    Dim iMaxNum As Double
    iMaxNum = Number(LBound(Number))
    Dim i As Integer
    For i = LBound(Number) To UBound(Number)
        If Number(i) < iMaxNum Then
            iMaxNum = Number(i)
        Else
            iMaxNum = iMaxNum
        End If
    Next i
    MIN = iMaxNum
End Function

Contoh fungsi untuk memperoleh nilai minimal 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 min number is: " & MIN(iArray)
End Sub