vb问题！怎么生成字母

来源：百度知道 编辑：UC知道 时间：2024/06/08 07:44:51
26个字母按顺序排列比如：
a ab abc acb abcd abdc acbd最多四位,就是这个样子的b的也是一样，请问这个怎么弄啊

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