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

Answer 2

病情分析：
呵呵，胎教有说好的又说不好的。根据情况而定。
指导意见：
可以听些舒缓的音乐，多心情开朗快乐一些。看一些有益的书。