用timer怎么做vb产生随机数变换的vb产生随机数数？？ 求代码 vb

来源：蜘蛛抓取(WebSpider) 时间：2016-01-07 02:53 标签： vb随机数不重复
如何产生真正的随机函数？
字体：[ ] 类型：转载 时间：
//MSDN& Randomize 为了生成某个范围内的随机整数，可使用以下公式：Int((upperbound&-&lowerbound&+&1)&*&Rnd&+&lowerbound)& 这里，upperbound&是随机数范围的上限，而&lowerbound&则是随机数范围的下限。& ----&在VB中的随机函数是Rnd，但在使用的过程中发现，虽然程序启动后产生的数值是随机的，但对于每次重新启动，程序都会产生相同的随机数序列，应该怎样解决？& ----VB中随机函数的原形是:&Rnd(number)，Rnd函数返回小于1但大于或等于0的值。number&(可选项)的值决定了Rnd生成随机数的方式。由于生成随机数方式的确定，导致了每次新启动随机函数，最初给定的种子都会生成相同的数列，因为每一次调用Rnd函数都用数列中的前一个数作为下一个数的种子。& ----为了每次运行程序调用随机函数都会有不同的随机数序列，在调用Rnd之前，先使用无参数的Randomize语句初始化随机数生成器，该生成器具有根据系统计时器得到的种子，这样再调用Rnd就会得到不同的随机数序列了。& ----另外，根据Randomize的工作原理，用户也可以编制自己的随机函数，即利用函数Timer得到从午夜开始到现在经过的秒数，然后再根据要得到的随机数值大小对该数值进行“衰减”处理，这样得到的数值则可称得上是真正意义的随机数值。
大家感兴趣的内容
12345678910
最近更新的内容
常用在线小工具 上传我的文档
 下载
 收藏
大学生，医学专业，因为课间很多自己的资料希望分享
 下载此文档
正在努力加载中...
VB程序设计代码基础(下).
下载积分：2000
内容提示：VB程序设计代码基础(下).
文档格式：PPT|
浏览次数：0|
上传日期： 03:18:50|
文档星级：
该用户还上传了这些文档
VB程序设计代码基础(下).
官方公共微信在VB中产生随机数的代码
在实际应用中，为防止随意篡改资料，需要一定的防护方法，其中随机数的生成就是一种。VB中生成随机数的代码如下所示：
MakeRand(nLength As Integer) As String
'随机生成指定长度的字符串，包括英文字母和数字
For i = 1 To nLength
r = Int(Rnd * 3)
Select Case r
Case 0 '数字
MakeRand = Rand & Int(Rnd * 10)
Case 1 '小写字母
Rand = Rand & Chr(Int(Rnd * 26) + 97)
Case 2 '大写字母
Rand =Rand & Chr(Int(Rnd * 26) + 65)
End Select
End Function
上述程序能够生成任意长度的随机数，包括数字和字母，其中长度由参数nLength决定。下面对用到的函数和语句进行解析。
功能：返回一个包含随机数值的Single。
语法：Rnd[(number)]可选的number参数是Single或者任何有效的数值表达式。
返回值：如果number的值是Rnd生成，小于0每次都使用number作为随机数种子得到相同的结果；大于0则是序列中的下一个随机数；等于0，则是最近生成的数；缺省状态下是序列中的下一个随机数。
说明：Rnd函数返回值大于等于0小于1；number的值决定了Rnd生成随机数的方式；对最初给定的种子都会生成相同的数列，因为每次调用Rnd函数都用数列中的前一个数作为下一个数的种子；在调用Rnd之前，先使用无参数的Randomize语句初始化随机数生成器，该生成器具有根据系统计时器得到种子的功能。
Ps：生成某个范围内随机整数的公式Int((upperbound-lowerbound+1)*Rnd+lowerbound)
功能：初始化随机数生成器
语法：Randomize
{number],可选的number参数是Variant或任何有效的数值表达式
说明：Randomize用number将Rnd函数的随机数生成器初始化，该随机数生成器给number一个新的种子值。弱国省略，则用系统计时器Timer返回值作为新的种子值。如果没有使用Randomize，则（无参数）的Rnd函数使用第一次调用Rnd函数的种子值。
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。用timer怎么做随机变换的随机数？？ 求代码 vb_百度知道
用timer怎么做随机变换的随机数？？ 求代码 vb
1000&设置timer周期是1秒End&Timer1;99&nbsp，增加一个timer控件;Int(Rnd&Sub&'Form_Load()Label1;Sub如上，测试有效;&quot.Caption&=&SubPrivate&nbsp.Enabled&label1里面显示1-100的随机整数End&nbsp.Interval&TrueTimer1;=&+&=&1)&'*&=&nbsp.Caption&nbspPrivate&Timer1_Timer()Label1;Sub&&quot
来自团队：
其他类似问题
为您推荐：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁

我要回帖

更多关于 vb随机数不重复 的文章

 

随机推荐