随机生成数字字母

Function makePassword(maxLen)
Dim strNewPass
Dim whatsNext, upper, lower, intCounter
Randomize
For intCounter = 1 To maxLen
whatsNext = Int((1 - 0 + 1) * Rnd + 0)
If whatsNext = 0 Then
'character
upper = 90
lower = 65
Else
upper = 57
lower = 48
End If
strNewPass = strNewPass & Chr(Int((upper - lower + 1) * Rnd + lower))
Next
makePassword = strNewPass
End Function 

'随机产生编号

 numaz="" dim num20(19)

 For j=0 to 19

 Do

 Randomize

asciicode=Int((122 - 48 + 1) * Rnd + 48)

Loop Until asciicode<=57 or (65<=asciicode and asciicode<=90) or 97<=asciicode

num20(j)=chr(asciicode)

Next

numaz=Join(num20,"")