Question

vb怎么使用选择法对一个数组进行排序？

Answer 1

Private Sub Command1_Click()
Dim x(1 To 5) As Integer
Dim n, i, j As Integer
n = 5
For i = 1 To n
    x(i) = Val(InputBox("请输入"))
Next
For i = 1 To n - 1
    For j = i + 1 To n
        If x(i) > x(j) Then
        temp = x(i): x(i) = x(j): x(j) = temp
        End If
    Next j
Next i
For i = 1 To 5
    Print x(i);
Next
End Sub