原创投稿
  1. 爱玩数码首页
  2. 投稿

vb随机数是怎么来的（VB之生成随机数程序介绍）

爱玩数码编辑 • • 投稿 • 阅读 33

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

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

vb随机数是怎么来的（VB之生成随机数程序介绍）

代码实现：

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

程序功能演示：

vb随机数是怎么来的（VB之生成随机数程序介绍）

版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，请发送邮件至87172970@qq.com举报，一经查实，本站将立刻删除。

赞 (0)
爱玩数码编辑爱玩数码编辑管理员
0 0
« 上一篇 2023年10月23日 15:31:42
下一篇 » 2023年10月23日 15:37:18

相关推荐

发表评论

登录后才能评论