展开全部
dim a as byte
do
a = int(150 * rnd)
if a =< asc("9") and a >= asc("0") then
temp = temp & chr(a)
i = i +1
endif
if a =< asc("z") and a => asc("a") then
temp = temp & chr(a)
i = i +1
endif
if a =< asc("Z") and a => asc("A") then
temp = temp & chr(a)
i = i +1
endif
if i >n then exit do 'n 是你要的字符串的数量
loop
do
a = int(150 * rnd)
if a =< asc("9") and a >= asc("0") then
temp = temp & chr(a)
i = i +1
endif
if a =< asc("z") and a => asc("a") then
temp = temp & chr(a)
i = i +1
endif
if a =< asc("Z") and a => asc("A") then
temp = temp & chr(a)
i = i +1
endif
if i >n then exit do 'n 是你要的字符串的数量
loop
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
