VB之生成随机数（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

例如，要产生一个1~12之间的随机数，可以用以下代码实现：

1. Private Sub Form_Click()

2. Randomize

3. Print Rnd() * 12

4. End Sub

2，开始按钮代码：

1. Private Sub Image1_Click()

2. Timer1.Enabled = True

3. End Sub

3，结束按钮代码：

1. Private Sub Image2_Click()

2. Timer1.Enabled = False

3. End Sub

程序功能演示：