网站首页 > 资源文章 正文
许多程序都会用到随机数,比如随机出题程序,游戏中打开宝箱等等,那么这个随机数怎么产生的呢?我们今天来讲一讲VB中怎样产生随机数。
Rnd()函数
Rnd()函数是VB根据系统时间生成的随机数,它的语法是
Rnd [(number)]
可选的 number 参数是 Single 或任何有效的数值表达式。
返回值
如果 number 的值是 Rnd 生成
小于 0 每次都使用 number 作为随机数种子得到的相同结果。
大于 0 序列中的下一个随机数。
等于 0 最近生成的数。
省略 序列中的下一个随机数
说明
Rnd 函数返回小于 1 但大于或等于 0 的值。
number 的值决定了 Rnd 生成随机数的方式。
我们用来实际操作一下,看看生成随机数效果:
我们发现,每次程序运行生成的随机数都一样,所以我们在窗体启动的时候加上Randomize来初始化随机数种子。当然得看自己的需求,比较合理的是每次随机前初始化随机数种子.
这回每次生成的随机数就不一样了,但是呢,生成的是小于1的小数,我们如何得到整数呢?把结果乘以10然后取整就可以了吧?
果然可以了,我们可以看到,最小的值是0。如果我们不想让随机数出现0,那么就可以给结果+1 也就是说最小的值就是1:
但是同时最大数也相应的大了,最大为10,如果我们只想生成1~9怎么办,可以这样:
为了方便,我们可以把这个功能写成一个函数:
那么在游戏中,打开宝箱是怎样实现的?
我们可以定义一个数值,如果随机数正好是这个数值,宝箱会出现宝藏:
这个随机数范围是1~10,所以宝箱中奖几率就是十分之一,如果随机数范围改成1~100,那么中奖几率就是百分之一。
当然这只是一个简单演示,实际过程中可以加入一些复杂的算法,让游戏更加丰富多彩.
运行效果:
- 上一篇: 如何使用PLC高速计数器测量电机转速
- 下一篇: VB6一行代码执行Post请求(基于Curl库)
猜你喜欢
- 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之生成随机数(vb程序随机生成数)
- 2024-11-11 计算机二级VB复习重点十四篇,9月份还有小伙伴考VB吗,需要就拿去吧
- 2024-11-11 关于VB的小记录(关于vb的常见问题)
- 2024-11-11 VB6 日期相关函数(vbscript 日期函数)
- 2024-11-11 使用OpenCV库操作摄像头拍照、调节参数和视频录制
你 发表评论:
欢迎- 最近发表
- 标签列表
-
- 电脑显示器花屏 (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)
本文暂时没有评论,来添加一个吧(●'◡'●)