Private Sub Form_click()
Dim a%(), imin%, n%, i%, j%, t%, p%
Randomize
i = InputBox("输入数组的元素个数：")
ReDim a(i)
a(i) = Int(Rnd * 201)
n = UBound(a)
For i = 0 To n - 1
imin = i
For j = i + 1 To n
If a(j) < a(imin) Then imin = j
Next j
t = a(i)
a(i) = a(imin)
a(imin) = t
Next i
For i = LBound(a) To UBound(a)
Print a(i);
If i Mod 15 = 0 Then Print
Next
End Sub

Private Sub Form_click()
Dim a%(1 To 200), imin%, n%, i%, j%, t%, p%
Cls
Randomize
i = InputBox("输入数组的元素个数：")
a(i) = Int(Rnd * 200 + 1)
n = UBound(a)
For i = 0 To n
a(i) = Int(Rnd * 200 + 1)
Next i
For i = 0 To n - 1
imin = i
For j = i + 1 To n
If a(j) < a(imin) Then imin = j
Next j
t = a(i)
a(i) = a(imin)
a(imin) = t
Next i
For i = LBound(a) To UBound(a)
Print a(i);
If i Mod 8 = 0 Then Print
Next
End Sub