c语言随机生成三个一位整数,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版) (龚沛曾等编)课后实验源码

来源：济亨网