单元2-VB语言基础教学课件2-13随机函数.pptxVIP

下载本文档

6
0
约1.06千字
约 14页
2018-01-19 发布于未知
举报
版权申诉

单元2-VB语言基础教学课件2-13随机函数.pptx

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

VB程序设计随机函数问题引入这样的随机验证码在VB中可以实现吗？随机函数1 随机函数格式2 随机数产生3 随机数应用1随机函数格式【格式】Rnd[(x)] 【功能】产生一个大于或等于0小于1的单精度随机数。 070554750.5334240.814490.1098561随机数的产生参数x的值决定Rnd函数生成随机数的方式。 ⑴ x0：得到相同的随机数。 ⑵ x=0：产生最近生成的一个随机数。 ⑶ x0或省略：产生序列中下一个随机数。【示例1】Rnd(-5) 如：0.8383257【示例2】Rnd(0) 如：0.653125【示例3】Rnd(5) 如：0.579518、0.3287692随机数的产生962953老师：我需要两位随机正整数。Int(Rnd * 90)+1010Int(Rnd*90)Int(Rnd * 90)+102随机数的产生yvsChr(Int(Rnd * 26 ）+ 97)97老师：给我随机小写字母吧。Chr(97)Chr(Int(Rnd * 26)+97)2随机数的产生9.156.891.98Int(Rnd * 1000)/100老师：我需要随机小数。Int(Rnd*1000)Int(Rnd*1000)/1002随机数的产生为了使每次执行都得到不同的随机数，Visual Basic提供了初始化随机数发生器语句Randomize。【格式】Randomize [x] 参数x：是随机数发生器的种子值。若省略x：用系统时间作为随机数发生器的种子值。3随机函数应用【应用】选车牌号----随机产生5位字符的车牌号【规则】最高位是大写字母，其余4位是随机数字。如：A8906Private Sub Command1_Click() Dim ph As String, p As String Dim h As String Randomize p = Chr(Int(Rnd * 26) + 65) h = Str(Int(Rnd * 9000)+1000) ph = + p + Trim(h) Print phEnd Sub3随机函数应用【应用】随机产生4位大写字母验证码。如：随机函数拓展随机抽奖有100个用户进行抽奖，每人都有一个序号，抽取一等奖一名。你可以完成吗？获奖号码59总结利用表达式可随机产生：小数、整数、字母等每次执行产生不同随机数需语句：Randomize 利用随机函数Rnd产生随机数知识在于积累