网站首页 > 资源文章 正文
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
程序功能演示:
猜你喜欢
- 2024-11-11 VBA|过程或方法内部的直接或间接调用与相对怪异的语法格式
- 2024-11-11 VB6多线程执行Post请求(基于Curl库)
- 2024-11-11 Windows安装PHP8+Apache+JIT(即时编译)
- 2024-11-11 VB6多线程执行Get请求(基于Curl库)
- 2024-11-11 以下函数可以用于VB6,也可以用在VBA当中! '...
- 2024-11-11 计算机二级VB复习重点十四篇,9月份还有小伙伴考VB吗,需要就拿去吧
- 2024-11-11 关于VB的小记录(关于vb的常见问题)
- 2024-11-11 VB6 日期相关函数(vbscript 日期函数)
- 2024-11-11 使用OpenCV库操作摄像头拍照、调节参数和视频录制
- 2024-11-11 VB绘制实时曲线(vb绘制函数图像)
你 发表评论:
欢迎- 最近发表
- 标签列表
-
- 电脑显示器花屏 (79)
- 403 forbidden (65)
- linux怎么查看系统版本 (54)
- 补码运算 (63)
- 缓存服务器 (61)
- 定时重启 (59)
- plsql developer (73)
- 对话框打开时命令无法执行 (61)
- excel数据透视表 (72)
- oracle认证 (56)
- 网页不能复制 (84)
- photoshop外挂滤镜 (58)
- 网页无法复制粘贴 (55)
- vmware workstation 7 1 3 (78)
- jdk 64位下载 (65)
- phpstudy 2013 (66)
- 卡通形象生成 (55)
- psd模板免费下载 (67)
- shift (58)
- localhost打不开 (58)
- 检测代理服务器设置 (55)
- frequency (66)
- indesign教程 (55)
- 运行命令大全 (61)
- ping exe (64)
本文暂时没有评论,来添加一个吧(●'◡'●)