VB选择排序

来源：百度知道 编辑：UC知道 时间：2024/05/13 12:05:45
求vb用选择排序的代码
例:5.36.8.2.45.5050
排序后:2.5.8.36.45.5050
要用到inputbox
能用一些简单的方法吗,我才刚学...

Private Sub Form_Click()
Dim a(4) As Double
Dim n As Double
Dim i, j, k, t
For i = 0 To 4
a(i) = InputBox("请输入：" , "选择法排序")
Next i
For i = 0 To 3
k = i
For j = i + 1 To 4
If a(k) > a(j) Then k = j
Next j
If k <> i Then t = a(k): a(k) = a(i): a(i) = t
Next i

For i = 0 To 4
Print a(i)
Next i
End Sub