开发者社区> 问答> 正文

vb代码选择法排序算法的代码,谢谢

vb代码选择法排序算法的代码,谢谢

展开
收起
知与谁同 2018-07-16 09:52:10 2931 0
3 条回答
写回答
取消 提交回答
  • SYN

    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 Sub
    2019-07-17 22:51:03
    赞同 展开评论 打赏
问答分类:
问答地址:
问答排行榜
最热
最新

相关电子书

更多
数据+算法定义新世界 立即下载
袋鼠云基于实时计算的反黄牛算法 立即下载
Alink:基于Apache Flink的算法平台 立即下载