用随机函数生成并输出20个两位数，将这些数放入一数组中，找出其中的最小值并且指出它是第几个数。

Private Sub Command1_Click()
Dim a(19) As Integer
For i = 0 To 19
a(i) = Fix(Rnd * 90) + 10
Print a(i);
Next
Print
t = a(0)
n = 1
For i = 1 To 19
If t < a(i) Then
t = a(i)
n = i + 1
End If
Next
Print "最小的数是" & t; " 是第" & n & "个"
End Sub

Private Sub Command1_Click()
Dim a(19) As Integer
Randomize
Text1 = ""
For i = 0 To 19
a(i) = Int(Rnd * 99) + 1
Text1 = Text1 & a(i) & " "
If i = 0 Then Min = a(0)

If a(i) < Min Then
Min = a(i)
s = i
End If
Next i
Text2 = 最小值 & Min & "在第" & s + 1 & "的位置"
End Sub