vb中求十个两位随机数并找出最小值及其位置显示在窗体上

Question

如题所述

Answer 1

Private Sub Command1_Click()
Dim n(9) As Integer
Dim min As Integer, j As Integer
Randomize
min = 99
For i = 0 To 9
n(i) = Int(Rnd * 91) + 10
Print n(i);
Next i
For i = 0 To 9
If min > n(i) Then
min = n(i)
j = i
End If
Next i
Print
Print min, j + 1
End Sub本回答被网友采纳