社区
VB基础类
帖子详情
这随机数怎么也有规律呢??????????????
harp
2002-01-17 04:38:19
Private Sub Command1_Click()
Dim aa As Integer
aa = Int(Rnd() * 100) + 1
Label1.Caption = aa
End Sub
结果每一回都是71、54、58、29、31。。。。。。
这是为什么??????????????
...全文
507
12
打赏
收藏
这随机数怎么也有规律呢??????????????
Private Sub Command1_Click() Dim aa As Integer aa = Int(Rnd() * 100) + 1 Label1.Caption = aa End Sub 结果每一回都是71、54、58、29、31。。。。。。 这是为什么??????????????
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
12 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
dsclub
2002-01-17
打赏
举报
回复
没有初始化
my_wei
2002-01-17
打赏
举报
回复
愿意听jackjack() 高论
my_wei
2002-01-17
打赏
举报
回复
我觉得这样最好,Randomize(timer)保证每次都变化,变化时间每一秒更换一次!呵呵!记得给分
jackjack
2002-01-17
打赏
举报
回复
其实这些都是伪随机数!
lihonggen0
2002-01-17
打赏
举报
回复
在调用 Rnd 之前,先使用无参数的 Randomize 语句初始化随机数生成器,该生成器具有根据系统计时器得到的种子。
为了生成某个范围内的随机整数,可使用以下公式:
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
这里,upperbound 是随机数范围的上限,而 lowerbound 则是随机数范围的下限。
注意 若想得到重复的随机数序列,在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。
lishush
2002-01-17
打赏
举报
回复
这些资料在MSDN上都有,你查一查就都清楚了。何必浪费你的分值呢!
lihonggen0
2002-01-17
打赏
举报
回复
Rnd 函数示例
本示例使用 Rnd 函数随机生成一个 1 到 6 的随机整数。
Dim MyValue
MyValue = Int((6 * Rnd) + 1) ' 生成 1 到 6 之间的随机数值。
zgjchina1
2002-01-17
打赏
举报
回复
加一个Randomize 语句
(初始化随机数生成器)
lihanbing
2002-01-17
打赏
举报
回复
你没有用Randomize(timer) 初始化,当然就这样了
lihonggen0
2002-01-17
打赏
举报
回复
Rnd 函数
返回一个包含随机数值的 Single。
语法
Rnd[(number)]
可选的 number 参数是 Single 或任何有效的数值表达式。
返回值
如果 number 的值是 Rnd 生成
小于 0 每次都使用 number 作为随机数种子得到的相同结果。
大于 0 序列中的下一个随机数。
等于 0 最近生成的数。
省略 序列中的下一个随机数。
说明
Rnd 函数返回小于 1 但大于或等于 0 的值。
number 的值决定了 Rnd 生成随机数的方式。
对最初给定的种子都会生成相同的数列,因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子。
在调用 Rnd 之前,先使用无参数的 Randomize 语句初始化随机数生成器,该生成器具有根据系统计时器得到的种子。
为了生成某个范围内的随机整数,可使用以下公式:
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
这里,upperbound 是随机数范围的上限,而 lowerbound 则是随机数范围的下限。
注意 若想得到重复的随机数序列,在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。
xsp
2002-01-17
打赏
举报
回复
Private Sub Command1_Click()
Dim aa As Integer
randomize(1)
aa = Int(Rnd(1) * 100) + 1
Label1.Caption = aa
End Sub
lishush
2002-01-17
打赏
举报
回复
用Randomize()函数初始化种子!
PHP的伪
随机数
与真
随机数
详解
首先需要声明的是,计算机不会产生绝对随机的
随机数
,计算机只能产生“伪
随机数
”。其实绝对随机的
随机数
只是一种理想的
随机数
,即使计算机怎样发展,它也不会产生一串绝对随机的
随机数
。计算机只能生成相对的
随机数
,即伪
随机数
。 伪
随机数
并不是假
随机数
,这里的“伪”是有
规律
的意思,就是计算机产生的伪
随机数
既是随机的又是有
规律
的。怎样理解呢?产生的伪
随机数
有时遵守一定的
规律
,有时不遵守任何
规律
;伪
随机数
有一部分遵守一定的
规律
;另一部分不遵守任何
规律
。比如“世上没有两片形状完全相同的树叶”,这正是点到了事物的特性,即随机性,但是每种树的叶子都有近似的形状,这正是事物的共性,即
规律
性。从这个角度讲,你大概就会接受
C# salt+hash 加密
一、先明确几个基本概念 1、伪
随机数
:pseudo-random number generators ,简称为:PRNGs,是计算机利用一定的算法来产生的。伪
随机数
并不是假
随机数
,这里的“伪”是有
规律
的意思,就 是计算机产生的伪
随机数
既是随机的又是有
规律
的。怎样理解呢?产生的伪
随机数
有时遵守一定的
规律
,有时不遵守任何
规律
;伪
随机数
有一部分遵守一定的
规律
;另一部分不遵守任何
规律
。比如“世上没有两片形状完全相同的树叶”,这正是点到了事物的特性,即随机性,但是每种树的叶子都有近似的形状,这正是事物的共性,即
规律
性。从这个角度讲,你大概就会接受这样的事实了:计算机只能产生伪
随机数
而不能产生绝对随机的
CA/TA可信安全应用开发
课程亮点: 从无到有、手把手教你编写CA/TA,快速上手,快速部署项目 标准的开发,开发一套CA/TA,可部署到不同的TEE OS上。 受益人群: 汽车行业主机厂、tier1、SOC芯片公司的安全部门同事 手机行业,ODM/OEM、SOC...
C#本人开发的彩票旋转矩阵选号杀号王双色球专用版1.5
本人经过几年的努力,终于掌握了C#的编程,与同学一起开发了这套软件。与各位网友共勉。 1.5版正式推出!主要修正了(以下都是重大问题所以应及时更新,对给您造成的不便,本公司深表歉意): 1、重装软件后提示30天试用期已过的BUG; 2、机器码和注册码的0和字母O不好区分的问题。 3、一个注册表错误,会使软件重启后当成试用期结束。 “世间能有几回运,彩票游戏存玄机” ,也许您会有疑问:彩票开奖号码不是完全随机的吗?那我还算什么,随便写几个数字买算了!!其实您错了,世界上并没有绝对理想的
随机数
,就算是用电脑也只能产生接近随机的数:在彩票开奖产生号码时,诸如摇奖机的物理特性、每个球的重量和光滑度的差异、空气的流动性等等都会使开奖结果产生一定的偏态,在中短期内有一定的
规律
可寻。 那么怎样才能找出偏态,利用偏态提高中奖的概率呢?用手工显然不行,您需要一款称手软件!但是现在彩票软件多得让人眼花缭乱,哪个才是适合您的呢?得彩易彩票旋转矩阵选号杀号王双色球专用版的问世,解决了您的烦恼,您只要下载使用了,软件就会主动成为您的好帮手,让您中奖不再是梦想! 本公司双色球项目开发小组根据组里多名长年研究彩票双色球的专家的成果,经过反复的概率验证,精心设计了算法,其中大部分属于本公司原创独有。程序运行时随着期数的增加,出号趋势会愈发明显,算法也会愈发准确,一般开奖期数在最近50-150期时效果最为明显。 友情提示:彩票软件可以帮您提高中奖的概率,但并不能保证您100%中大奖,本软件也不例外!如果有所谓专家向您推荐号码并保证能中大奖的,请您一定要当心受骗! 1、本软件基于微软.net框架进行开发,技术先进。 2、市面上的一般彩票软件所提供的旋转矩阵只有廖廖几个方案(如保6中5,保5中4),本软件则提供了几十种方案,应有尽有。 3、选号杀号功能的强大和全面是其它一般彩票软件所没有的。 4、过滤功能全面,完全可以满足需要。 5、开奖数据可以更新,导入和导出,极大的方便彩民朋友。 6、学习容易,帮助文档详尽,上手极快。
如何采集静态文章系统
目前网站基本上都生成静态的了,对于那些技术不是很高深的小偷来说,去偷一个文件名是以时间加
随机数
来命名的文章系统,有点困难,而目前的大多数静态的系统都是以这样的方式命名的,这个不像有asp?id=1 to asp?id=100这样好这个命名是没
规律
的,那么,这种文章系统怎么样采呢,以下就以自已的站www.asp315.com这例来写一篇关于采集静态文章系统的教程吧! 首先,我们打开www.asp315.com你会发现教程很多,我们随便点一个进去吧,就点JSP教程吧,里面还分了子类,这个不管我们就采这一个大类,http://www.asp315.com/artical/2/1.htm,看看每一篇
VB基础类
7,763
社区成员
197,609
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章