随机数_VB之生成随机数

VB6.0制作的一个生成随机数的程序，点击开始后，每个标签框不停转动，随机生成1~10以内的一位数字，点击停止，则转动停止，这个程序主要应用于活动时抽奖需要，下面是整个程序功能的实现。

程序界面主要如下图所示：其中包含6个标签、一个计时器、两个用于开始和停止的按钮。

代码实现：

1，定时器

1. Private Sub Timer1_Timer()

2. Dim i As Integer

3. Randomize'初始化随机数产生器

4. For i = 0 To Label.Ubound

5. Label(i).Alignment = 2'数字居中

6. Label(i).Caption = Int(Rnd * 10)'Label(i)中显示产生的一个0-10的随机数

7. Next i

8. End Sub

定时器代码中用到了Randomize(x)即随机函数，Rnd(x)是一个系统内部定义的随机函数，它能产生一个0~1(不包括0和1的)之间的单精度随机数，但是，一般的随机数都是指定范围的，这个时候我们用系统指定的随机数乘以指定范围的最大数，即可得到指定范围的随机数，其书写格式为：

Rnd()* x

例如，