如何用VB找出数组中的最小值

Question

如何用VB找出数组中的最小值刚学VB，大家帮下忙

Answer 1

Dim a(2) As Integer
    Dim i As Long
    Dim tmp As Integer
    
    a(0) = 23
    a(1) = 21
    a(2) = 50
    
    tmp = a(0)
    For i = 1 To 2
        If tmp > a(i) Then
            tmp = a(i)
        End If
    Next
    
    MsgBox "最小的数是" & tmp

Answer 2

dim num() as integer
dim i as integer
dim min as integer
min =num(0)for i =1 to ubound(num)
    if num(i)<min then
       min = num(i)
    end ifnext i
msgbox min