求数组的最大值和最小值。

Question

数组
Arr = Array (1,3,1,7,9,0.1,-10,99,-12)
求其最大值和最小值。

Answer 1

Dim minDbl As Double
Dim maxDbl As DoubleminDbl = arr(1)
maxDbl = arr(2)For i = 2 to 9
    If arr(i) > maxDbl = arr(i)
    If arr(i) < maxDbl = arr(i)
Next i

Answer 2

Private Sub Command1_Click()
    Arr = Array(1, 3, 1, 7, 9, 0.1, -10, 99, -12)
    MaxZ = Arr(0)
    MinZ = Arr(0)
    For i = 1 To UBound(Arr)
        If Arr(i) > MaxZ Then MaxZ = Arr(i)
        If Arr(i) < MinZ Then MinZ = Arr(i)
    Next i
    MsgBox "最大：" & MaxZ & " 最小：" & MinZ
End Sub