,VB,程序设计,随机函数,问题引入,这样的随机验证码在VB中可以实现吗？,随机函数,随机函数格式,1,【格式】Rnd(x) 【功能】产生一个大于或等于0小于1的单精度随机数。,0.7055475,0.533424,0.81449,0.109856,0.5795186,随机数的产生,1,参数x的值决定Rnd函数生成随机数的方式。 x0或省略： 产生序列中下一个随机数。,【示例1】Rnd(-5) 如：0.8383257 【示例2】Rnd(0) 如：0.653125 【示例3】Rnd(5) 如：0.579518、0.328769,随机数的产生,2,老师：我需要两位随机正整数。,53,Int(Rnd * 90)+10,29,96,10,Int(Rnd*90),Int(Rnd * 90)+10,随机数的产生,2,y,Chr(Int(Rnd * 26 ）+ 97),老师：给我随机小写字母吧。,s,v,97,Chr(97),Chr(Int(Rnd * 26)+97),随机数的产生,2,老师：我需要随机小数。,1.98,6.89,9.15,Int(Rnd * 1000)/100,Int(Rnd*1000),Int(Rnd*1000)/100,随机数的产生,2,为了使每次执行都得到不同的随机数，Visual Basic提供了初始化随机数发生器语句Randomize。,参数x：是随机数发生器的种子值。 若省略x：用系统时间作为随机数发生器的种子值。,【格式】 Randomize x,随机函数应用,3,【应用】选车牌号-随机产生5位字符的车牌号 【规则】最高位是大写字母，其余4位是随机数字。 如：A8906,Private 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 ph End Sub,随机函数应用,3,【应用】随机产生4位大写字母验证码。,如：,随机函数拓展,随机抽奖,有100个用户进行抽奖，每人都有一个序号，抽取一等奖一名。,59,获奖号码,你可以完成吗？,总 结,知识在于积累,