锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net随机数种子 vbs 随机数

IT技术生成

vb.net程序 ， 利用随机函数产生100个1到100之间的整数，求其中的最大最小值 。【vb.net随机数种子 vbs 随机数】Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Randomize()'产生随机数种子 以防止每次生成结果都一样
Dim a(100) As Integer '声明数组存放数据 用来保存随机数结果
Dim max As Integer, min As Integer'声明两个变量存最大值和最小值
min = 1000 : max = 0 '设置初值
For i = 0 To 99'循环100次
a(i) = Int(Rnd() * 1000 + 1) '用rnd生成一个随机数由于rnd范围为0-1之间的小数.所以*1000设置他的范围为0到999之间 加1变成1到1000之间
If a(i) = max Then max = a(i) '如果当前数值大于最大值的变量就保存
If a(i) = min Then min = a(i) '如果当前数值小于最小值的变量就保存
Next
MsgBox("最大值为"max)
MsgBox("最小值为"min)
End Sub
什么是vb的随机数和种子??VB的随机数即使用Rnd函数生成的随机数值 。种子，为初始值，用来生成伪随机数字 。
Rnd 函数，返回一个包含随机数值的 Single 。
对最初给定的种子都会生成相同的数列，因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子 。
在调用 Rnd 之前，先使用无参数的 Randomize 语句初始化随机数生成器，该生成器具有根据系统计时器得到的种子 。
种子，为初始值 ， 用来生成伪随机数字 。例如， Randomize 语句创建一种子值供 Rnd 函数使用 ， 以接着创建唯一伪随机数列 。
Randomize 语句，初始化随机数生成器 。
说明
Randomize 用 number 将 Rnd 函数的随机数生成器初始化，该随机数生成器给 number 一个新的种子值 。如果省略 number，则用系统计时器返回的值作为新的种子值 。
如果没有使用 Randomize，则（无参数的）Rnd 函数使用第一次调用 Rnd 函数的种子值 。
Randomize 语句示例
本示例用 Randomize 语句初始化随机数生成器 。由于忽略了数值参数，所以
Randomize 用 Timer 函数的返回值作为新的随机数种子值 。
Dim MyValue
Randomize' 对随机数生成器做初始化的动作 。
MyValue = https://www.04ip.com/post/Int((6 * Rnd) + 1)' 生成 1 到 6 之间的随机数值 。
VB.NET中为什么RND()前必须初始化RANDOMIZERandomize()的作用是初始化随机数种子，
它有个带参数的版本
Randomize(double seed)
seed是产生随机数序列的一个标号，如果你不调用Randomize改变这个标号，默认使用的是同一个序列，所以每次你启动程序生成的随机数都是相同的，不带参数的Randomize等价于Randomize(Timer)，也就是使用系统时钟作为随机数种子
因为这个值随程序启动或调用每次都不会相同，所以能实现产生不同的随机数
《VB.NET》中的“Randomize(x)”和“Rnd(x)”Rnd[(number)]
number
的值决定了
Rnd
生成随机数的方式
如果
number
的值
Rnd
生成
小于
每次都使用
number
作为随机数种子得到的相同结果 。
大于
序列中的下一个随机数 。
等于
最近生成的数 。
省略
序列中的下一个随机数 。
====================
先讨论没有加randomize时
X小于0
如
rnd(-1)
以-1为种的随机数永远相同
X大于0
如
rnd(1)
系统会先生成随机数列表
有N个随机数
你每执行一次rnd(1)就获取列表中下一个随机数
比如有这么个列表
程序开始时
得到0.7055475
执行第二次rnd(1)得到0.533424
第三次0.5795186

推荐阅读


上一篇：u盘模式怎么弄成兼容模式，怎么把网页弄成兼容模式

下一篇：象湖直播运营，象湖生态水系