vb选择法排序的代码。
答案:1 悬赏:60
解决时间 2021-02-14 21:01
- 提问者网友：霸气大叔
- 2021-02-14 03:49
vb选择法排序的代码。
最佳答案
- 二级知识专家网友：时光不老我们不分离
- 2021-02-14 05:10
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
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
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯