vb题随机生成【0,100】10个数,选择法排序。-问答-阿里云开发者社区-阿里云

开发者社区> 问答> 正文

vb题随机生成【0,100】10个数,选择法排序。

知与谁同 2018-07-22 13:06:23 1421
vb题随机生成【0,100】10个数,选择法排序。
分享到
取消 提交回答
全部回答(3)
  • 游客886
    2019-07-17 22:50:32
    Timer1 嗯嗯嗯...
    0 0
  • 一键天涯
    2019-07-17 22:50:32

    Private Sub Command1_Click()

      Dim a(10) As Integer

      For i = 1 To 10

        a(i) = Int(101 * Rnd)

      Next i

      For i = 1 To 9

        k = i

        For j = i + 1 To 10

          If a(j) < a(k) Then k = j

        Next j

        t = a(i): a(i) = a(k): a(k) = t

      Next i

      For i = 1 To 10

        Print a(i);

      Next i

      Print: Print

    End Sub

    0 0
  • 知与谁同
    2019-07-17 22:50:32
    Dim a(1 To 10) As Integer, zc As Integer
    For i = 1 To 10
    a(i) = Int(Rnd * 101) '0~100一共101个数,从零开始,所以是int(rnd*101+0),+0省略
    Print a(i); '打印原始数据
    Next i
    Print
    For i = 1 To 10
    For j = 1 To 9
    If a(j + 1) < a(j) Then '如果下标较大的比下标较小的还要小
    zc = a(j + 1) '就替换
    a(j + 1) = a(j)
    a(j) = zc
    End If
    Next j
    Next i
    For i = 1 To 10
    Print a(i); '打印排序后数据
    Next i

    如果要在Form中成功打印需要把Form.AutoRedrew设置成True
    0 0
添加回答
云计算
使用钉钉扫一扫加入圈子
+ 订阅

时时分享云计算技术内容,助您降低 IT 成本,提升运维效率,使您更专注于核心业务创新。

推荐文章