基于VB的随机数算法探讨
合集下载
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Ｏｐｔｉｏｎ Ｅｘｐｌｉｃｉｔ Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄｌ＿ＣｌｉｃｋＯ
ＤｉｍｉＡｓＬｏｎｇ Ｄｉｍ ｃｈｌ Ａｓ Ｓｕｉｎｇ Ｆｏｒｉ＝１Ｔ０１００
ｃｈｌ＝Ｅｎｃｏｄｅ（”文｛‘｝：加密解密测试．‘）
ＥｎｃｏｄｅＬｉｓｔ．Ａｄｄｌｔｅｍ ｃｈｌ ｃｈｌ＝Ｄｅｃｏｄｅ（ｃｈｌ） ＤｅｃｏｄｅＬｉｓｔ．Ａｄｄｌｔｃｍ ｃｈｌ
Ｎｅｘｔ
Ｄｅｃｏｄｅ＝ＳｔｒＣｏｎｖ（ｔｅｍｐ，ＶＢＵｎｉｃｏｄｅ） Ｅｘｉｔ Ｆｕｎｃｔｉｏｎ
ＥＲＲＳ： Ｄｅｃｏｄｅ＝”
Ｅｎｄ Ｆｕｎｃｔｉｏｎ
以上程序已经在ＶＢ６．０和Ｗｉｎｄｏｗｓ下测试通过。 用ＶＢ实现随机取数的方法已经运用到很多领域中，如各类试题 库软件证明该方法有较好的使用效果，出卷时，选出的试题具有很强 的随机性，并且算法的运行效率也比较理想。
Ｄｉｍ ｔｅｍｐｓ Ａｓ Ｓｕｉｎｇ Ｆｏｒ ｉ；０ Ｔｏ ＵＢｏｕｎｄ（ｔｅｍｐ）
Ｒａｎｄｏｍｉｚｅ Ｔｉｍｅ
ｊ＝ＣＢｙｔｅ（５＋（Ｍａｔｈ．ＲｎｄＯ）＋ｏ） ｔｅｍｐ（ｉ）；ｔｅｍｐ（ｉ）Ｘｏｒ Ｊ ｋ＝ｔｅｍｐ（ｉ）Ｍｏｄ Ｌｅｎ（ｓｔｒ）
ｍ；ｔｅｍｐ（ｉ）＼Ｌｅｎ（ｓ廿） ｍ；ｍ‘２‘３＋ｊ
技，２００６，２８（３）：７８—７９
、¨１田”日：
（收稿日期：２００９－１２－１４）２００８（ｏｓ
（接１５９页）适应大中专院校发展和广大体育教师需求的开放的激励 体系，努力做到全面激励、全程激励，最大限度地调动广大体育教师 的工作积极性，才能使大中专院校在未来的竞争中始终立于不败之 地。
参考文献 【１】孙建萍．孙建红，安寸然．高校教师工作满意度调查与分析【Ｉ】．教 育探索，２００６（９）：７８—８０ 【２】杨继平，张雪莲．山西省高校教师工作满意度的调查研究【『】．教育 理论与实践．２００６（７）：３４—４３． 【３】周丽超．高校教师工作满意度的研究Ｕ】．天津电大学报．２００４，８
Ｄｉｍ ｔｌ Ａｓ Ｓｔｒｉｎｇ，ｔ２ Ａｓ Ｓｕｉｎｇ Ｄｉｍ ｔｅｍｐ（）Ａｓ Ｂｙｔｅ Ｄｉｍ ｎ Ａｓ Ｌｏｎｇ ｎ＝０
Ｆｏｒｉ＝ｌ ＴＯＬｅｎ（ｃｈ３】Ｓｔｅｐ２ ｔｌ＝Ｍｉｄ（ｃｈ３，ｉ．１） ｔ２＝Ｍｉｄ（ｃｈ３．ｉ＋ｌ，１） ｋ；ＩｎＳ蜓ｌ，毗，ｔ１）一ｌ ｍ；ＩｎＳｔｒ（１．ｓｔｒ，ｔ２）一ｌ ｉｒ－－ＩＵ、２‘３ ｍ＝ｍ—ｉ●２‘３ ＲｅＤｉｍ Ｐｒｅｓｅｔ＇ｒｅ ｔｅｍｐ（ｎ） ｔｅｍｐ（ｎ）；ｊ‘Ｌｅｎ（ｓｔｒ）＋ｋ ｔｅｍｐ（ｎ）＝ｔｅｍｐ（ｎ）Ｘｏｒｍ ｎ譬ｎ＋ｌ
ｆ７】伯尼．Ｌ．帕克豪斯．体育管理学【Ｍ】．清华大学出版社。２００３ 【８１ Ｂｒｏｗｎ，Ｓ．Ｐ．，＆Ｐｅｔｅｒ，Ｒ．Ａ．Ｅｆｆｅｃｔ ｏｆｅｆｆｏｒｔ Ｏｉｌ ｓａｌｅｓ ｐｅｒｆｏｍｍｎｃｅ ａｎｄｊｏｂ ｓａ商ｆｆａｃｔｉｏｎＤ】Ｊｏｕｒｎａｌ ｏｆＭａｒｋｅｔｉｎｇｔ １９９４，５８：７０—８０ 作者简介刘全成。河南省周口市职业技术学院。
现随机抽奖的目的。本文介绍的刺用Ⅶ实现随机取数的方法，随机
性水平较高，具有一定的通用性。
（１）说明：用来初始化随机数生成器，使随机函数Ｒｎｄ每次产 生不同序列的随机数。
（２）格式：Ｒａｎｄｏｍｉｚｅ【（ｎｕｍｂｅｒ）】 （３）参数说明：其中ｎｕｍｂｅｒ－是随机数生成器的开始值（即“种
子”）。随机数生成器给ｎ啪ｂｅｒｌ嘶的种子值，以产生不重复的序
列；如果省略ｎｕｍｂｅｒ，则用系统计时器返回值作为新的种子值。 （４）返回值：整数，如果省略ｎｕｍｂｃｒ，贝ｌＪＲａｎｄｏｍｉｚｅ函数返回空
值。 （５）用法；反复调用Ｒｎｄ函数生成的随机序列是由电脑产生的
伪随机序列。为了产生真正的随机序列，可以从系统时钟或其他途径 选取变化的数，利用Ｒａｎｄｏｍｉｚｅ函数初始化随机函数生成器．从而得
（收稿日期：２００９—１２—０３）
（接２００页）四个盒子中的三个盒子里，有名种不同的放法，依据乘 法原理，共有口Ａ：＝１４４种不同的放法。
说明：这是一道排列组合的混合应用题，这类题的一般解法是先 取（组合）后排（排列）。本题正确求解的关键是把四个小球中的两 个视为一个整体．如果考虑不周，就会出现重复和遗漏的错误。
同一个顺序，叫做伪随机。 随机种子（ｓｅｎｄ）是保证你每次产生的随机数是不同的，种子数是
系统产生的，也可以根据需要自己选择合适的种子，但如何选取种
子，直接关系到弛ｄ函数的随机性。可以根据时问、网卡号、ＩＰ地 址、硬盘序列号等一系列方法产生一个随机数。例如将当前时间作为 种子，然后进行规定好的计算方法（如加、减、乘、除等）开始计算 第一个值，然后将计算结果返回同时将它当作新种子以备下一次使
Ｒｎｄ函数的返田值 把Ｎ作为种子数据．每次退田相网的越 序列中的下一个随机敷
等于０ 崔略
ｔ近产生的般 序纠中的下一个随机牧
（５）使用Ｉｎｔ（Ｒｎｄ＊（上界一下界＋Ｄ＋－Ｆ界）可以产生一个介于上
界和下界之间（包括上界和一Ｆ界）的随机整数。侧如，如果保留小数
为ｘ位，要生成ａ至，Ｊｂ的数（包括ａ、ｂ），则用表达式两ｔ（Ｒｎｄ（）·（（ｂ—ａ）
rnd函数应用实例optionexplicitprivatesubcommand1clickdimiaslongdimch1asstringfori1to100ch1encode文件加密解密测试encodelistadditemch1ch1decodech1decodelistadditemch1nextiendsubprivatefunctionencodebyvalch2asstringasstring加密函数iflench20thenexitfunctiondimtempasbytetempstrconvch2vbfromunicodedimiaslongdimjasbytedimkasbytemasbytedimstrasstringstr123456789abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzdimoutputasstringiuboundtemp1outputspace2idimtempsasstringfori0touboundtemprandomizetimejcbyte5mathrnd0tempitempixorjktempimodlenstrmtempilenstrtempsmidstrk11midstrm11midoutput2i12tempsnextencodeoutputendfunctionprivatefunctiondecodebyvalch3asstringasstring解密函数onerrorgotoerrsdimiaslong基于vb的随机数算法探讨马小龙甘肃民族师范学院计算机科学系兰州大学信息科学与工程学院关键词随机数是我们在现实生活中接触很广的一个词在很多领域都用到了随机数本文介绍visualbasic中的随机函数以及如何利用随机函数生成随机数序列并通过实例程序说明如何利用visualbasic来实现随机取数
Ｎｅｘｔｉ
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｆｕｎｃｔｉｏｎ Ｅｎｃｏｄｅ（ＢｙＶａｌ ｃｈ２ Ａｓ Ｓｕｉｎｇ）Ａｓ Ｓｕｉｎｇ’加密函数 Ｉｆ Ｌｅｎ（ｃＩｌ２）＝０ Ｔｈｅｎ Ｅｘｉｔ Ｆｕｎｃｔｉｏｎ Ｄｉｍ ｔｅｍｐＯ Ａｓ Ｂｙｔｅ ｔｅｍｐ＝ＳｔｒＣｏｎｖ（ｃｈ２，ＶＢＦｒｏｍＵｎｉｃｏｄｅ）
用。
４ Ｒｎｄ函数应用实例
下面通过使用Ｒｎｄ函数实现文件加密和解密的功能，来说明在 Ｖｉｓｕａｌ Ｂａｓｉｃ中如何利用Ｒｎｄ函数实现随机取数。该程序的主要功能是 对所传输的文件进行加密传输，到达接收方后进行解密；加密和解密 是两个互逆的函数，加密的文件可以是任意字符，加密结果仅限制在 大小写字母和数字，传输的文件中的每个字节加密后有６种结果（占 两个字节，如果需要大于６种的话，就要多用１个字节，即占３个字 节），也就是说如果字串占ｎ个字节的话，可能产生的结果为６的ｎ次 方个。首先在进入ＶＢ集成开发环境后新建一个标准的ＥＸＥ工程，并 在窗体上添加一个命令按钮（Ｃｏｍｍａｎｄｌ）和两个列表框控件 （ＥｎｃｏｄｅＬｉｓｔ和ＤｅｃｏｄｅＬｉｓｔ），然后在代码窗口中编写事件过程：
（１０）：３５－３９ 【４】 兰惠敏．固外教师工作满意度综述ｏ】．教育探索，２００７。１９２
（６）：１３１－１９２ 【５】擂彩莲．高校教师工作满意度的影响因素探析【Ｉ】．高教论坛，
２００６．４：１７９—１８１
【６】诸葛伟民．浙江、上海、江苏高校体育教师工作满意度现状的调 番分析田．北京体育大学学报，２００１，（１）：８卜８３
Ｄｉｍ ｉ Ａｓ Ｌｏｎｇ
万方数据
＂矗南缸习呼ｊ文２０１０年第２期
信息纵横
Ｄｉｍ ｊ Ａｓ Ｂｙｔｅ
Ｄｉｍ ｋ Ａｓ Ｂｙｔｅ Ｄｉｍ ｍ Ａｓ Ｂｙｔｅ Ｄｉｍ ｓｔｒ Ａｓ Ｓｕｉｎｇ
ｓｉｒ＝’’１２３４５６７８９ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲ ＳＴＵＶＷＸＹＺ”
科学系讲师．兰州大学信息与工程学院在读工程硕士，主要从事信息管理
方面的教学和研究工作。
（收稿日期：２００９－１２－２３）
构先进性，形成良性运营机制。
【３】．尊竺妻，？３侠，陆光平·论体育社团在高校体育中的地位与作
些…孽对：絮ｎ粤妻譬＝翌当垡塑团登嘎整黧６二１黧制．妻·竺耋翌蠢璺黧譬望聱塑苎量ｊｉ苎磐璧：：Ⅲ些矬尝＝到竺德查彻验研‘芰高Ｊ册海孟等主妻爵嘉≥？：麓Ｉ赫：．裟。毁？磊校丁体“育１１…社…团”促”进“大“４牡“心’一理。健‘康”的”实“
关键词随机取数伪随机随机函数
随机数在现实世界中涉及到很多方面的很多问题，例如，中国福
利彩票和中国体育彩票中号码的随机产生；奥运年出现的刮刮奖；考 试系统的试题库中试题的随机抽取；产品质量的随机抽样检验；文件 传输过程中的加密和解密等等，都不同程度的用到了随机数函数。近
年来，在娱乐节目之中常常见到的利用电脑进行抽奖的活动，其主要 原理也是利用随机数函数来实现随机查找和打乱排序的功能，从而实
参考文献 【１】１ 龚沛曾．Ｖｉｓｕａｌ Ｂａｓｉｃ程序设计简明教程（６．０）Ｒ）．高等教育出版 社．２０００
【２】饶宇等．ＶｉｓｕａｌＢａｓｉｃ６．０实例教程脯东电子出版社，２０００ 【３１谭浩强．ＶｉｓｕａｌＢａｓｉｃ程序设计请华大学出版社，２００４
【４】刘瑞新等．Ｖｉｓｕａｌ Ｂａｓｉｃ程序设计教程（９３版）．电子工业出版社。
ＤｉｍｉＡｓＬｏｎｇ
Ｄｉｍｊ ＡｓＢｙｔｅ
ＤｉｍｋＡｓＢｙｔｅ．ｍＡｓＢｙｔｅ Ｄｉｍ￥ｔｒ Ａｓ Ｓｔｒｉｎｇ ｓｉｘ－－”１２３４５６７８９ａｂｃｄｅｆｇｈｉｊｋｌｒｒｍｏｐｑｒｓｍｖｗｘｙｚＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴ ＵＶＷＸＹＺ” Ｄｉｍ ｏｕｔｐｕｔ Ａｓ ＳＵＩｎｇ ｉ＝ＵＢｏｕｎｄ（ｔｅｍｐ）＋ｌ ＯＵｔｐｕｔ＝Ｓｐａｃｅ（２’ｉ）
用Ｒａｎｄｏｍｉｚｅ函数初始化随机函数生成器，从而使用基于系统时间的
种子。如果要重复随机数序列，在带负数参数调用Ｒｎｄ函数之后接着
使用带有数值参数的Ｒａｎｄｏｍｉｚｅ语句。使用相同的ｎｕｍｂｅｒ隹［的
Ｒａｎｄｏｍｉｚｅ语句并不会重复以前的随机数序列。
（４）函数返回值：
参ｔＮ的取值 ０１、子０ 是于０
到真正的随机序列。
２ Ｒｎｄ函数
（１）格式：Ｐ．ｎｄ【（Ｎ）１
（２）参数说明：其中的Ｎ为双精度数，可以省略。
（３）用法：Ｒｎｄ函数的返回值小于ｌ。大于或等于０。参数Ｎ函数
Ｒｎｄ怎样产生随机数：对于任何给出的初始的种子数据．则产生同一
个数据序列，因为每一个对Ｒｎｄ函数的反复调用都把序列中的前一个
数值作为下一个数值的种子。如果需要产生不同的随机序列，需要调
进社团给与表彰，并请这些社团负责人介绍社团建设方面的经验方 ’一ｉ：？”辜慧豢三赢ｉ采团羹展的背景研究ｏ】．四川体育科学，２０７－ａ
．（０３）
法。同时，加强杜团骨干培养。社团骨干素质如何，直接关系到活动
洒俞宏建．高校体育社团产生的背景及萁；寺征分析Ⅱ】．南京体育每院
那兰塞笔些孽出妻。思璧曼兰要想曼篓擎政意妻彗治 乙荔言蓼素删二差窑质很’２【９高】０Ｌ釜、 囊菁，李专 少龙诃南业省高校学技生体育社能团存在的和问题及对责策Ｉ 任心强、有一定的组织协调能力
基于Ｖ Ｂ的随机数算法探讨
马小龙
（甘肃民族师范学院计算机科学系 兰州大学信息科学与工程学院）
摘要随机数是我们在现实生活中接触很广的一个词，在很多领域都用到了随机数，本文介绍ＶｉｓｕａｌＢａｓｉｃ中的随机函数，以及． 如何利用随机函数生成随机数序，一ｌ，并通过实例程序说明如何利用Ｖｉｓｕａｉ Ｂａｓｉｃ来实现随机取数。
芝训誊翌恐型翌璺曼王箩行培切，提高他们的思想水平和工作能
力，保障杜团又好又快发展。 …．．
抽报． 【１】曹） ＃’江苏省高校体育社团发展现状与对策卟首都体育学院学 ，
【８】汪颖．学校体育与大学生。心理健康问题探讨【Ｉ】ｔ体育科技文献通
田．科爱信薹＿２麓．于（：产”…１”“１。”刖４”１””“”“４。８ ……ｉ耐蜀岳磊．美苗‘妄，校体育社团发展存在的问题及对策【Ｊ】．辽宁体育科
２（）（）７
【ｓ】高春艳等．ＶｉｓｕｄＢａｓｉｃ程序开发范例宝典．人民邮电出版社。２００６ 【６】（芙）Ｄａｍｏｎ Ａｌｌｉｓｏｎ Ｂｅｎ Ｈｙｒｍａｎ．ＶＢ．ＮＥＴ＂－Ｔ伸缩性技术手册．清华 大学出版社．２００３ 闭赛奎春。李俊民．Ｖｉｓｕａｌ Ｂａｓｉｃ函数参考大全．人民邮电出版社，２００６
作者简介马小龙（１９７９一）．回族，现任甘肃民族师范学院计算杌
ｔｅｍｐｓ＝Ｍｉｄ（ｓｉｒ，ｋ＋ｉ。１）＋Ｍｉｄ（ｓｔｒ．ｍ＋１，１） Ｍｉｄ（ｏｕｔｐｕｔ，２＋ｉ＋Ｉ，２）＝ｔｅｍｐｓ Ｎｅｘｔ
Ｅｎｃｏｄｅ＝ｏｕｔｐｕｔ
Ｅｎｄ Ｆｕｎｃｔｉｏｎ Ｐｒｉｖａｔｅ Ｆｕｎｃｔｉｏｎ Ｄｅｃｏｄｅ（ＢｙＶａｌ ｃｈ３ Ａｓ Ｓｔｒｉｎｇ）Ａｓ Ｓｕｉｎｇ懈密函数
Ｏｎ）／１０‘ｘ＋ａ就可以实现。
３ “种子”（ｓｅｎｄ）
ＶＢ提供的随机函数Ｒｎｄ并不能生成真正的随机序列，它的随机性 依赖于Ｒａｎｄｏｍｉｚｅ函数中的“种子”的选取。随机数是就是用一个数 做“种子”，然后经过一系列的函数运算，算法是固定的，所以每次 都会得到同样的一个数列，也就是每次重新运行程序得到的数字都是
ＤｉｍｉＡｓＬｏｎｇ Ｄｉｍ ｃｈｌ Ａｓ Ｓｕｉｎｇ Ｆｏｒｉ＝１Ｔ０１００
ｃｈｌ＝Ｅｎｃｏｄｅ（”文｛‘｝：加密解密测试．‘）
ＥｎｃｏｄｅＬｉｓｔ．Ａｄｄｌｔｅｍ ｃｈｌ ｃｈｌ＝Ｄｅｃｏｄｅ（ｃｈｌ） ＤｅｃｏｄｅＬｉｓｔ．Ａｄｄｌｔｃｍ ｃｈｌ
Ｎｅｘｔ
Ｄｅｃｏｄｅ＝ＳｔｒＣｏｎｖ（ｔｅｍｐ，ＶＢＵｎｉｃｏｄｅ） Ｅｘｉｔ Ｆｕｎｃｔｉｏｎ
ＥＲＲＳ： Ｄｅｃｏｄｅ＝”
Ｅｎｄ Ｆｕｎｃｔｉｏｎ
以上程序已经在ＶＢ６．０和Ｗｉｎｄｏｗｓ下测试通过。 用ＶＢ实现随机取数的方法已经运用到很多领域中，如各类试题 库软件证明该方法有较好的使用效果，出卷时，选出的试题具有很强 的随机性，并且算法的运行效率也比较理想。
Ｄｉｍ ｔｅｍｐｓ Ａｓ Ｓｕｉｎｇ Ｆｏｒ ｉ；０ Ｔｏ ＵＢｏｕｎｄ（ｔｅｍｐ）
Ｒａｎｄｏｍｉｚｅ Ｔｉｍｅ
ｊ＝ＣＢｙｔｅ（５＋（Ｍａｔｈ．ＲｎｄＯ）＋ｏ） ｔｅｍｐ（ｉ）；ｔｅｍｐ（ｉ）Ｘｏｒ Ｊ ｋ＝ｔｅｍｐ（ｉ）Ｍｏｄ Ｌｅｎ（ｓｔｒ）
ｍ；ｔｅｍｐ（ｉ）＼Ｌｅｎ（ｓ廿） ｍ；ｍ‘２‘３＋ｊ
技，２００６，２８（３）：７８—７９
、¨１田”日：
（收稿日期：２００９－１２－１４）２００８（ｏｓ
（接１５９页）适应大中专院校发展和广大体育教师需求的开放的激励 体系，努力做到全面激励、全程激励，最大限度地调动广大体育教师 的工作积极性，才能使大中专院校在未来的竞争中始终立于不败之 地。
参考文献 【１】孙建萍．孙建红，安寸然．高校教师工作满意度调查与分析【Ｉ】．教 育探索，２００６（９）：７８—８０ 【２】杨继平，张雪莲．山西省高校教师工作满意度的调查研究【『】．教育 理论与实践．２００６（７）：３４—４３． 【３】周丽超．高校教师工作满意度的研究Ｕ】．天津电大学报．２００４，８
Ｄｉｍ ｔｌ Ａｓ Ｓｔｒｉｎｇ，ｔ２ Ａｓ Ｓｕｉｎｇ Ｄｉｍ ｔｅｍｐ（）Ａｓ Ｂｙｔｅ Ｄｉｍ ｎ Ａｓ Ｌｏｎｇ ｎ＝０
Ｆｏｒｉ＝ｌ ＴＯＬｅｎ（ｃｈ３】Ｓｔｅｐ２ ｔｌ＝Ｍｉｄ（ｃｈ３，ｉ．１） ｔ２＝Ｍｉｄ（ｃｈ３．ｉ＋ｌ，１） ｋ；ＩｎＳ蜓ｌ，毗，ｔ１）一ｌ ｍ；ＩｎＳｔｒ（１．ｓｔｒ，ｔ２）一ｌ ｉｒ－－ＩＵ、２‘３ ｍ＝ｍ—ｉ●２‘３ ＲｅＤｉｍ Ｐｒｅｓｅｔ＇ｒｅ ｔｅｍｐ（ｎ） ｔｅｍｐ（ｎ）；ｊ‘Ｌｅｎ（ｓｔｒ）＋ｋ ｔｅｍｐ（ｎ）＝ｔｅｍｐ（ｎ）Ｘｏｒｍ ｎ譬ｎ＋ｌ
ｆ７】伯尼．Ｌ．帕克豪斯．体育管理学【Ｍ】．清华大学出版社。２００３ 【８１ Ｂｒｏｗｎ，Ｓ．Ｐ．，＆Ｐｅｔｅｒ，Ｒ．Ａ．Ｅｆｆｅｃｔ ｏｆｅｆｆｏｒｔ Ｏｉｌ ｓａｌｅｓ ｐｅｒｆｏｍｍｎｃｅ ａｎｄｊｏｂ ｓａ商ｆｆａｃｔｉｏｎＤ】Ｊｏｕｒｎａｌ ｏｆＭａｒｋｅｔｉｎｇｔ １９９４，５８：７０—８０ 作者简介刘全成。河南省周口市职业技术学院。
现随机抽奖的目的。本文介绍的刺用Ⅶ实现随机取数的方法，随机
性水平较高，具有一定的通用性。
（１）说明：用来初始化随机数生成器，使随机函数Ｒｎｄ每次产 生不同序列的随机数。
（２）格式：Ｒａｎｄｏｍｉｚｅ【（ｎｕｍｂｅｒ）】 （３）参数说明：其中ｎｕｍｂｅｒ－是随机数生成器的开始值（即“种
子”）。随机数生成器给ｎ啪ｂｅｒｌ嘶的种子值，以产生不重复的序
列；如果省略ｎｕｍｂｅｒ，则用系统计时器返回值作为新的种子值。 （４）返回值：整数，如果省略ｎｕｍｂｃｒ，贝ｌＪＲａｎｄｏｍｉｚｅ函数返回空
值。 （５）用法；反复调用Ｒｎｄ函数生成的随机序列是由电脑产生的
伪随机序列。为了产生真正的随机序列，可以从系统时钟或其他途径 选取变化的数，利用Ｒａｎｄｏｍｉｚｅ函数初始化随机函数生成器．从而得
（收稿日期：２００９—１２—０３）
（接２００页）四个盒子中的三个盒子里，有名种不同的放法，依据乘 法原理，共有口Ａ：＝１４４种不同的放法。
说明：这是一道排列组合的混合应用题，这类题的一般解法是先 取（组合）后排（排列）。本题正确求解的关键是把四个小球中的两 个视为一个整体．如果考虑不周，就会出现重复和遗漏的错误。
同一个顺序，叫做伪随机。 随机种子（ｓｅｎｄ）是保证你每次产生的随机数是不同的，种子数是
系统产生的，也可以根据需要自己选择合适的种子，但如何选取种
子，直接关系到弛ｄ函数的随机性。可以根据时问、网卡号、ＩＰ地 址、硬盘序列号等一系列方法产生一个随机数。例如将当前时间作为 种子，然后进行规定好的计算方法（如加、减、乘、除等）开始计算 第一个值，然后将计算结果返回同时将它当作新种子以备下一次使
Ｒｎｄ函数的返田值 把Ｎ作为种子数据．每次退田相网的越 序列中的下一个随机敷
等于０ 崔略
ｔ近产生的般 序纠中的下一个随机牧
（５）使用Ｉｎｔ（Ｒｎｄ＊（上界一下界＋Ｄ＋－Ｆ界）可以产生一个介于上
界和下界之间（包括上界和一Ｆ界）的随机整数。侧如，如果保留小数
为ｘ位，要生成ａ至，Ｊｂ的数（包括ａ、ｂ），则用表达式两ｔ（Ｒｎｄ（）·（（ｂ—ａ）
rnd函数应用实例optionexplicitprivatesubcommand1clickdimiaslongdimch1asstringfori1to100ch1encode文件加密解密测试encodelistadditemch1ch1decodech1decodelistadditemch1nextiendsubprivatefunctionencodebyvalch2asstringasstring加密函数iflench20thenexitfunctiondimtempasbytetempstrconvch2vbfromunicodedimiaslongdimjasbytedimkasbytemasbytedimstrasstringstr123456789abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzdimoutputasstringiuboundtemp1outputspace2idimtempsasstringfori0touboundtemprandomizetimejcbyte5mathrnd0tempitempixorjktempimodlenstrmtempilenstrtempsmidstrk11midstrm11midoutput2i12tempsnextencodeoutputendfunctionprivatefunctiondecodebyvalch3asstringasstring解密函数onerrorgotoerrsdimiaslong基于vb的随机数算法探讨马小龙甘肃民族师范学院计算机科学系兰州大学信息科学与工程学院关键词随机数是我们在现实生活中接触很广的一个词在很多领域都用到了随机数本文介绍visualbasic中的随机函数以及如何利用随机函数生成随机数序列并通过实例程序说明如何利用visualbasic来实现随机取数
Ｎｅｘｔｉ
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｆｕｎｃｔｉｏｎ Ｅｎｃｏｄｅ（ＢｙＶａｌ ｃｈ２ Ａｓ Ｓｕｉｎｇ）Ａｓ Ｓｕｉｎｇ’加密函数 Ｉｆ Ｌｅｎ（ｃＩｌ２）＝０ Ｔｈｅｎ Ｅｘｉｔ Ｆｕｎｃｔｉｏｎ Ｄｉｍ ｔｅｍｐＯ Ａｓ Ｂｙｔｅ ｔｅｍｐ＝ＳｔｒＣｏｎｖ（ｃｈ２，ＶＢＦｒｏｍＵｎｉｃｏｄｅ）
用。
４ Ｒｎｄ函数应用实例
下面通过使用Ｒｎｄ函数实现文件加密和解密的功能，来说明在 Ｖｉｓｕａｌ Ｂａｓｉｃ中如何利用Ｒｎｄ函数实现随机取数。该程序的主要功能是 对所传输的文件进行加密传输，到达接收方后进行解密；加密和解密 是两个互逆的函数，加密的文件可以是任意字符，加密结果仅限制在 大小写字母和数字，传输的文件中的每个字节加密后有６种结果（占 两个字节，如果需要大于６种的话，就要多用１个字节，即占３个字 节），也就是说如果字串占ｎ个字节的话，可能产生的结果为６的ｎ次 方个。首先在进入ＶＢ集成开发环境后新建一个标准的ＥＸＥ工程，并 在窗体上添加一个命令按钮（Ｃｏｍｍａｎｄｌ）和两个列表框控件 （ＥｎｃｏｄｅＬｉｓｔ和ＤｅｃｏｄｅＬｉｓｔ），然后在代码窗口中编写事件过程：
（１０）：３５－３９ 【４】 兰惠敏．固外教师工作满意度综述ｏ】．教育探索，２００７。１９２
（６）：１３１－１９２ 【５】擂彩莲．高校教师工作满意度的影响因素探析【Ｉ】．高教论坛，
２００６．４：１７９—１８１
【６】诸葛伟民．浙江、上海、江苏高校体育教师工作满意度现状的调 番分析田．北京体育大学学报，２００１，（１）：８卜８３
Ｄｉｍ ｉ Ａｓ Ｌｏｎｇ
万方数据
＂矗南缸习呼ｊ文２０１０年第２期
信息纵横
Ｄｉｍ ｊ Ａｓ Ｂｙｔｅ
Ｄｉｍ ｋ Ａｓ Ｂｙｔｅ Ｄｉｍ ｍ Ａｓ Ｂｙｔｅ Ｄｉｍ ｓｔｒ Ａｓ Ｓｕｉｎｇ
ｓｉｒ＝’’１２３４５６７８９ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲ ＳＴＵＶＷＸＹＺ”
科学系讲师．兰州大学信息与工程学院在读工程硕士，主要从事信息管理
方面的教学和研究工作。
（收稿日期：２００９－１２－２３）
构先进性，形成良性运营机制。
【３】．尊竺妻，？３侠，陆光平·论体育社团在高校体育中的地位与作
些…孽对：絮ｎ粤妻譬＝翌当垡塑团登嘎整黧６二１黧制．妻·竺耋翌蠢璺黧譬望聱塑苎量ｊｉ苎磐璧：：Ⅲ些矬尝＝到竺德查彻验研‘芰高Ｊ册海孟等主妻爵嘉≥？：麓Ｉ赫：．裟。毁？磊校丁体“育１１…社…团”促”进“大“４牡“心’一理。健‘康”的”实“
关键词随机取数伪随机随机函数
随机数在现实世界中涉及到很多方面的很多问题，例如，中国福
利彩票和中国体育彩票中号码的随机产生；奥运年出现的刮刮奖；考 试系统的试题库中试题的随机抽取；产品质量的随机抽样检验；文件 传输过程中的加密和解密等等，都不同程度的用到了随机数函数。近
年来，在娱乐节目之中常常见到的利用电脑进行抽奖的活动，其主要 原理也是利用随机数函数来实现随机查找和打乱排序的功能，从而实
参考文献 【１】１ 龚沛曾．Ｖｉｓｕａｌ Ｂａｓｉｃ程序设计简明教程（６．０）Ｒ）．高等教育出版 社．２０００
【２】饶宇等．ＶｉｓｕａｌＢａｓｉｃ６．０实例教程脯东电子出版社，２０００ 【３１谭浩强．ＶｉｓｕａｌＢａｓｉｃ程序设计请华大学出版社，２００４
【４】刘瑞新等．Ｖｉｓｕａｌ Ｂａｓｉｃ程序设计教程（９３版）．电子工业出版社。
ＤｉｍｉＡｓＬｏｎｇ
Ｄｉｍｊ ＡｓＢｙｔｅ
ＤｉｍｋＡｓＢｙｔｅ．ｍＡｓＢｙｔｅ Ｄｉｍ￥ｔｒ Ａｓ Ｓｔｒｉｎｇ ｓｉｘ－－”１２３４５６７８９ａｂｃｄｅｆｇｈｉｊｋｌｒｒｍｏｐｑｒｓｍｖｗｘｙｚＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴ ＵＶＷＸＹＺ” Ｄｉｍ ｏｕｔｐｕｔ Ａｓ ＳＵＩｎｇ ｉ＝ＵＢｏｕｎｄ（ｔｅｍｐ）＋ｌ ＯＵｔｐｕｔ＝Ｓｐａｃｅ（２’ｉ）
用Ｒａｎｄｏｍｉｚｅ函数初始化随机函数生成器，从而使用基于系统时间的
种子。如果要重复随机数序列，在带负数参数调用Ｒｎｄ函数之后接着
使用带有数值参数的Ｒａｎｄｏｍｉｚｅ语句。使用相同的ｎｕｍｂｅｒ隹［的
Ｒａｎｄｏｍｉｚｅ语句并不会重复以前的随机数序列。
（４）函数返回值：
参ｔＮ的取值 ０１、子０ 是于０
到真正的随机序列。
２ Ｒｎｄ函数
（１）格式：Ｐ．ｎｄ【（Ｎ）１
（２）参数说明：其中的Ｎ为双精度数，可以省略。
（３）用法：Ｒｎｄ函数的返回值小于ｌ。大于或等于０。参数Ｎ函数
Ｒｎｄ怎样产生随机数：对于任何给出的初始的种子数据．则产生同一
个数据序列，因为每一个对Ｒｎｄ函数的反复调用都把序列中的前一个
数值作为下一个数值的种子。如果需要产生不同的随机序列，需要调
进社团给与表彰，并请这些社团负责人介绍社团建设方面的经验方 ’一ｉ：？”辜慧豢三赢ｉ采团羹展的背景研究ｏ】．四川体育科学，２０７－ａ
．（０３）
法。同时，加强杜团骨干培养。社团骨干素质如何，直接关系到活动
洒俞宏建．高校体育社团产生的背景及萁；寺征分析Ⅱ】．南京体育每院
那兰塞笔些孽出妻。思璧曼兰要想曼篓擎政意妻彗治 乙荔言蓼素删二差窑质很’２【９高】０Ｌ釜、 囊菁，李专 少龙诃南业省高校学技生体育社能团存在的和问题及对责策Ｉ 任心强、有一定的组织协调能力
基于Ｖ Ｂ的随机数算法探讨
马小龙
（甘肃民族师范学院计算机科学系 兰州大学信息科学与工程学院）
摘要随机数是我们在现实生活中接触很广的一个词，在很多领域都用到了随机数，本文介绍ＶｉｓｕａｌＢａｓｉｃ中的随机函数，以及． 如何利用随机函数生成随机数序，一ｌ，并通过实例程序说明如何利用Ｖｉｓｕａｉ Ｂａｓｉｃ来实现随机取数。
芝训誊翌恐型翌璺曼王箩行培切，提高他们的思想水平和工作能
力，保障杜团又好又快发展。 …．．
抽报． 【１】曹） ＃’江苏省高校体育社团发展现状与对策卟首都体育学院学 ，
【８】汪颖．学校体育与大学生。心理健康问题探讨【Ｉ】ｔ体育科技文献通
田．科爱信薹＿２麓．于（：产”…１”“１。”刖４”１””“”“４。８ ……ｉ耐蜀岳磊．美苗‘妄，校体育社团发展存在的问题及对策【Ｊ】．辽宁体育科
２（）（）７
【ｓ】高春艳等．ＶｉｓｕｄＢａｓｉｃ程序开发范例宝典．人民邮电出版社。２００６ 【６】（芙）Ｄａｍｏｎ Ａｌｌｉｓｏｎ Ｂｅｎ Ｈｙｒｍａｎ．ＶＢ．ＮＥＴ＂－Ｔ伸缩性技术手册．清华 大学出版社．２００３ 闭赛奎春。李俊民．Ｖｉｓｕａｌ Ｂａｓｉｃ函数参考大全．人民邮电出版社，２００６
作者简介马小龙（１９７９一）．回族，现任甘肃民族师范学院计算杌
ｔｅｍｐｓ＝Ｍｉｄ（ｓｉｒ，ｋ＋ｉ。１）＋Ｍｉｄ（ｓｔｒ．ｍ＋１，１） Ｍｉｄ（ｏｕｔｐｕｔ，２＋ｉ＋Ｉ，２）＝ｔｅｍｐｓ Ｎｅｘｔ
Ｅｎｃｏｄｅ＝ｏｕｔｐｕｔ
Ｅｎｄ Ｆｕｎｃｔｉｏｎ Ｐｒｉｖａｔｅ Ｆｕｎｃｔｉｏｎ Ｄｅｃｏｄｅ（ＢｙＶａｌ ｃｈ３ Ａｓ Ｓｔｒｉｎｇ）Ａｓ Ｓｕｉｎｇ懈密函数
Ｏｎ）／１０‘ｘ＋ａ就可以实现。
３ “种子”（ｓｅｎｄ）
ＶＢ提供的随机函数Ｒｎｄ并不能生成真正的随机序列，它的随机性 依赖于Ｒａｎｄｏｍｉｚｅ函数中的“种子”的选取。随机数是就是用一个数 做“种子”，然后经过一系列的函数运算，算法是固定的，所以每次 都会得到同样的一个数列，也就是每次重新运行程序得到的数字都是