3
条回答
写回答
写回答
-
vb选择排序： 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
2021-10-24 17:06:05赞同 展开评论 打赏 -
TA有点害羞，没有介绍自己...病情分析：
呵呵，胎教有说好的又说不好的。根据情况而定。
指导意见：
可以听些舒缓的音乐，多心情开朗快乐一些。看一些有益的书。2019-07-17 22:51:03赞同 展开评论 打赏 -
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 Sub2019-07-17 22:51:03赞同 展开评论 打赏
版权声明：本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。
相关问答
