Randomize timer 这个TIMER是什么啊
Dim zimg(6),NStr
For i=0 To 5
rnum=cstr(cint(35*Rnd))这个35*这个RND的值应该是多少哇我
zimg(i)=rnum
select case rnum
case "10"
rnum="a"
case "11"
rnum="b"
case "12"
rnum="c"
case "13"
rnum="d"
case "14"
rnum="e"
case "15"
rnum="f"
case "16"
rnum="g"
case "17"
rnum="h"
case "18"
rnum="i"
case "19"
rnum="j"
case "20"
rnum="k"
case "21"
rnum="l"
case "22"
rnum="m"
case "23"
rnum="n"
case "24"
rnum="o"
case "25"
rnum="p"
case "26"
rnum="q"
case "27"
rnum="r"
case "28"
rnum="s"
case "29"
rnum="t"
case "30"
rnum="u"
case "31"
rnum="v"
case "32"
rnum="w"
case "33"
rnum="x"
case "34"
rnum="y"
case "35"
rnum="z"
end select
希望能讲解详细点谢谢
參考答案:Timer 函数:返回一个 Single,代表从午夜开始到现在经过的秒数。
Rnd 函数:返回一个包含随机数值的 Single,该值小于 1 但大于或等于 0。
Randomize 语句:初始化随机数生成器。
语法:Randomize [number]
说明:Randomize 用 number 将 Rnd 函数的随机数生成器初始化,该随机数生成器给 number 一个新的种子值。如果省略 number,则用系统计时器返回的值作为新的种子值。
如果number不变,产生的随机数也是一个固定的序列。
所以一般使用 Timer 函数做为number,不同时间就能产生不同的序列。
*********************
这三个是经典搭档。反正就是为了产生随机数。
因为Rnd函数产生的随机浮点数的范围是0到1之间,
所以上面代码中使用35*Rnd来产生一个范围是0到35之间的随机浮点数;
然后使用CInt进行取整,使用Cstr转换成字符串。