vb编程实例讲解、告诉我一些简单的vb编程代码?
文章插图
本篇文章给大家谈谈vb编程实例,以及vb编程实例讲解对应的知识点,希望对各位有所帮助,不要忘了收藏本站!
内容导航:
- 用vb编程实现随机产生一个100到999之间的随机数,并将此数逆序输出
- 急!关于VB,简单的程序设计
- 谁能帮我写这个VB的简单实例
- VB编程实例
- vb串口通信程序实例
- 告诉我一些简单的vb编程代码
VBA编程实现不重复随机数输出 。VBA里的随机函数是RND,在工作表中随机函数是RAND,一字之差,可要记好了 。RND取值范围是[0,1),意思是0和1之间的一个随机数,包含0,但不包含1 。
1、用法
语法:Rnd[(number)]
如果 number 的值是 Randomize 生成
小于 0 ,每次都使用 number 作为随机数种子得到的相同结果 。
大于 0 ,以上一个随机数为种子产生下一个随机数 。
等于 0 ,产生与最近生成的随机数相同的随机数 。
省略, 以上一个随机数为种子产生下一个随机数(同大于0) 。
说明:
Rnd 函数返回小于 1 但大于或等于 0 的值 。
number 的值决定了 Rnd 生成随机数的方式 。
对最初给定的种子都会生成相同的数列,因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子 。
在调用 Rnd 之前,先使用无参数的 Randomize 语句初始化随机数生成器(若带参数,则产生由参数对应的一个特定序列的随机数),该生成器具有根据系统计时器得到的种子 。如果不使用Randomize 语句,那么每次执行程序时产生的随机数序列是相同的 。
Rnd 后面跟一个负数时,同样的参数可以得到完全相同的两个序列,例如,rnd -1执行后用rnd取1000个随机数,然后再执行rnd -1,然后再用rnd取1000个随机数,这1000个随机数和前面1000个完全相同 。为了得到不同的序列,可以用不同的负数,也可以在rnd -1后面执行Randomize number 。注意,要得到相同的序列,两次Randomize后面的number必须相同 。这种方法用途之一就是用于加密和解密 。
为了生成某个范围内的随机整数,可使用以下公式:
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
这里,upperbound 是随机数范围的上限,而 lowerbound 则是随机数范围的下限 。
注意:若想得到重复的随机数序列,在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd 。使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的 。
2、无重复随机数算法一
这是最简单的算法,每产生一个随机数,就和已有的比较,如果已经存在,则重新产生 。比较适合从一个大范围里面抽出一小部分数据,比如,从题库中抽取试题 。
[vb] view plain copy print?
- ' 产生20个1-100之间的不重复随机数
- Public Sub RndNumberNoRepeat1()
- Dim RndNumber, temp(20), i, k, Maxrec As Integer
- Randomize (Timer) '初始化随机数生成器
- Maxrec = 100
- ' 从A21开始输出随机数
- k = 0
- Do While k < 20
- RndNumber = Int(Maxrec * Rnd) + 1
- temp(k) = RndNumber
- Cells(k + 21, 1) = RndNumber
- For i = 0 To k - 1
- If temp(i) = RndNumber Then Exit For
- Next i
- If i = k Then k = i + 1
- 'MsgBox "随机数:" & RndNumber
- Loop
- End Sub
- ' 产生20个1-100之间的不重复随机数
- Sub RndNumberNoRepeat2()
- Dim RndNumber, TempArray(99), i As Integer
- Randomize (Timer) '初始化随机数生成器
- For i = 0 To 99 '产生包含1-100的不重复的随机数列
- TempArray(i) = i
- Next i
- For i = 99 To 80 Step -1
- RndNumber = Int(i * Rnd)
- '从A21开始输出这些数字
推荐阅读
- 西门子编程软件怎么下载安装 s7 200编程软件
- 电子入门基础知识讲解 电子元件基础知识
- 福州邓拓故居讲解 邓拓故居
- 装修房子风水讲究讲解 房屋装修风水学
- 慢走丝编程培训 慢走丝机床
- 英语反义疑问句的用法讲解 反意疑问句
- 从下往上编织儿童套头毛衣 儿童毛衣编织实例
- 宾语从句全方位掌握 英语宾语从句讲解
- ap100编程教程视频!ap100破解版怎么注册
- 六十四卦详解,喜欢易经的朋友, 易经讲解
3、无重复随机数算法二
这个算法比较巧妙,需要细细体会,才能知道真谛 。这个算法不会重复产生随机数,但需要一个占位数组 。比较适合输出范围之内所有数值的场合,比如,随机发牌 。
[vb] view plain copy print?