Question

请帮助做个随机生成指定长度字母+数字组合的VB代码

请帮助做个随机生成指定长度字母+数字组合的VB代码

能生成指定的长度，指定的个数。。。
并保存到桌面的suiji.txt上

Answer 1

dim N as integer,I as integer,R as string,T as integer,FilPath as string
FilPath=Environ("userprofile")+ "\桌面\suiji.txt"
open FilPath for output as #1
for I=1 to N 'N是指定长度
randomize
T=int(rnd()*4)
select case T
case 1
randomize
R=R+Chr(int(rnd()*25)+65)'生成一个大写字母
case 2
randomize
R=R+Chr(int(rnd()*25)+97)'生成一个小写字母
case 3
randomize
R=R+Chr(int(rnd()*9)+48)'生成一个数字
end select
next I
print #1,R
close #1