随机生成N个字符（包含数字和字母）

'*************************************************************

' Name: GetRandomString

' Purpose: 随机生成N个字符（包含数字和字母）

' Parameters: 
 'strGet -output string

' *************************************************************

Function GetRandomString(strGet,iSize)

       ' TODO: add function body here

        strGet=""

        Randomize

        For j=1 to iSize

            i=RandomNumber(0,1)

            If i=0 Then

                strGet=strGet & Chr(Int(Rnd()*10)+48)

            Elseif i=1 then

                strGet=strGet & Chr(Int(Rnd()*26)+65)

'            Else

'                strGet=strGet & Chr(Int(Rnd()*26)+97)

            End If

        Next

End Function

'调用GetRandomString函数，可组合形成：固定字符+随机字符

Function GetVehicleNo(strVehicleNo)

   GetRandomString strGet,5

   strVehicleNo=strVehicleNo & strGet

   GetVehicleNo=strVehicleNo

End Function