参考答案

Option Base 1
Private Sub Command1_Click()
    Dim arrN(30) As Integer
    Dim Min As Integer
    Randomize
    For i = 1 To 30
        arrN(i) = Int(Rnd * 1000)
    Next i
    Min = arrN(1)
    For i = 2 To 30
        If arrN(i) < Min Then
            Min = arrN(i)
        End If
    Next i
    Print Min
End Sub