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

VB程序题:利用实验C的思想,随机产生3个整数,按从小到大的顺序显示。 VB源码 龚沛曾

VB程序题:利用实验C的思想,随机产生3个整数,按从小到大的顺序显示。 VB源码 龚沛曾

解题:
先在窗体上画一个按钮,代码如下:
Private Sub Command1_Click()
    Dim x!, y!, z!

    Randomize '加上这句,每次产生随机数的第一次就不会总出现相同的数
    x = Int(Rnd * 901 + 100) '随机产生一个三位正整数
    y = Int(Rnd * 901 + 100)
    z = Int(Rnd * 901 + 100)

    Cls
    Print " 排序前:"; x; "  "; y; "  "; z
    If x < y Then t = x: x = y: y = t
    If x < z Then t = x: x = z: z = t
    If y < z Then t = y: y = z: z = t
    Print " 排序后:"; z; "  "; y; "  "; x
End Sub

运行程序效果图如下:

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

打赏 支付宝打赏 微信打赏

来源:济亨网

本文链接:http://wb86.com/post/66.html

    << 上一篇 下一篇 >>

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