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