Private Sub Command1_Click()
Dim a(10) As Integer
Randomize
For i = 1 To 10
a(i) = Int(Rnd * 90) + 10
Print a(i);
Next i
For i = 1 To 9
Print "第" & i & "趟选择排序：";
k = i
For j = i + 1 To 10
If a(j) < a(k) Then k = j
Next j
t = a(i): a(i) = a(k): a(k) = t
Print "【";
For j = 1 To 10
Print a(j);
If j = i Then Print "】";
Next j
Next i
End Sub
Private Sub Command2_Click()
Cls
End Sub
Private Sub Command3_Click()
End
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024