选择法排序的写法?使用vb代码
收起
知与谁同
2018-07-17 17:25:26
1581
0
1
条回答
写回答
取消
提交回答
-
Private Sub Command1_Click()
Dim a(10) As Integer
Dim b As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
For i = 1 To 10
a(i) = Int(Rnd * 90 + 10)
Print a(i);
Next i
Print
For i = 1 To 9
k = i
For j = k + 1 To 10
If a(j) < a(k) Then k = j
Next j
If a(i) > a(k) Then
b = a(i)
a(i) = a(k)
a(k) = b
End If
Next i
For i = 1 To 10
Print a(i);
Next i
Print
End Sub
2019-07-17 22:50:52