生成随机字符，n为字符的个数

生成随机字符，n为字符的个数

MyRandc(n)

function MyRandc(n) '生成随机字符，n为字符的个数
dim thechr
thechr = ""
for i=1 to n
   dim zNum,zNum2
   Randomize
   zNum = cint(25*Rnd)
   zNum2 = cint(10*Rnd)
   if zNum2 mod 2 = 0 then
    zNum = zNum + 97
   else
    zNum = zNum + 65
   end if
   thechr = thechr & chr(zNum)
next
MyRandc = thechr
end function