在线等,急!!!!!!!!!!!!!!!
Private Sub Command1_Click()
Dim a(10) As Integer
Randomize
j = 1
Print "产生的10个数是"
For i = 1 To 10
a(i) = 1 + Rnd * 100
If a(i) < a(j) Then j = i
Print a(i);
Next i
Print
Print "最小数是第"; j; "个,"; a(j)
End Sub