前端开发入门到精通的在线学习网站

网站首页 > 资源文章 正文

VB之生成随机数(vb程序随机生成数)

qiguaw 2024-11-11 13:09:57 资源文章 27 ℃ 0 评论

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

程序功能演示:

本文暂时没有评论,来添加一个吧(●'◡'●)

欢迎 发表评论:

最近发表
标签列表