脚本如下:
Sub main ()
Dim i As Integer
Dim strL As String
i = 10
strL = StrRan(i)
Stop
End Sub
Function StrRan(ByVal maxLen) As String
Dim strNewPass As String
Dim whatsNext As Integer
Dim upper As Integer
Dim lower As Integer
Dim intCounter As Integer
Randomize
For intCounter = 1 To maxLen
whatsNext = Int((1 - 0 + 1) * Rnd + 0)
If whatsNext = 0 Then
upper = 90
lower = 65
Else
upper = 57
lower = 48
End If
strNewPass = strNewPass & Chr(Int((upper - lower + 1) * Rnd + lower))
Next
‘最后一位我加了一,生成的数据是总数位数
StrRan = strNewPass + CStr(maxLen + 1)