当前位置:首页 » VB程序题 » 正文

VB程序题:随机产生10个2位数,按从大到小递减的顺序排列,并显示排序结果。龚沛曾

VB程序题:随机产生10个2位数,按从大到小递减的顺序排列,并显示排序结果。VB 源代码 龚沛曾
 
解题,窗体点击代码如下:
Private Sub Form_Click()
    Randomize
    Dim tmp As Integer
    Dim a(1 To 10) As Integer
    Print "排序前为:"
    For i = 1 To 10 '开始随机生成10个数
        a(i) = Int(Rnd * 89 + 10)
        Print a(i);
    Next i
    Print 
    ' 以下为插入排序
    For i = 2 To 10
        If a(i) > a(i - 1) Then
            tmp = a(i)
            For j = i - 1 To 1 Step -1
                If tmp < a(j) Then Exit For
                a(j + 1) = a(j)
            Next j
            a(j + 1) = tmp
        End If
    Next i
    Print "排序结果:"
    For i = 1 To 10
        Print a(i);
    Next i
    Print
End Sub

 


Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码

打赏 支付宝打赏 微信打赏

来源:济亨网

本文链接:https://wb98.com/post/82.html

    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号