备注:a为每次生产随机数的记录变量 temp为记录生产结果字符串变量,生成结果就在其中
i为记录temp长度的变量 n为需要生产字符串的长度 chr(a)取ascii码为a的字符
asc("0")取“0”的ascii码
总的来说这段程序就是随机生产一段长度为n的只包含大写字母,小写字母和数字的字符串(搞不懂这种程序段你要用来干嘛,既没输入也没有输出)
dim a as byte ’定义一个字节变量
do ‘循环的开始
a = int(150 * rnd) ’将0-149的一个随机整数赋值到a中
if a =< asc("9") and a >= asc("0") then ‘如果chr(a)是个数字则执行一下语句
temp = temp & chr(a) ’temp字符串加上chr(a)这个数字
i = i +1 '记录temp的长度的变量加一
endif ‘语句执行完毕
if a =< asc("z") and a => asc("a") then ‘如果chr(a)是个小写字母则执行一下语句
temp = temp & chr(a)’temp字符串加上chr(a)这个小写字母
i = i +1'记录temp的长度的变量加一
endif ‘语句执行完毕
if a =< asc("Z") and a => asc("A") then ‘如果chr(a)是个大写字母则执行一下语句
temp = temp & chr(a)’temp字符串加上chr(a)这个大写字母
i = i +1记录temp的长度的变量加一
endif ‘语句执行完毕
if i >n then exit do ’如果字符串temp的长度大于n时退出循环,即字符串生产完毕
loop 返回循环开始,重复循环
VB的代码肯定不能在按键精灵上用
在按键精灵里不能用vb的脚本