'*************************************************************
' Name: GetRandomString
' Purpose: 随机生成N个字符（包含数字和字母）
' Parameters:
'strGet -output string
' *************************************************************
1 Function GetRandomString(strGet,iSize) 2 ' TODO: add function body here 3 strGet="" 4 Randomize 5 For j=1 to iSize 6 i=RandomNumber(0,1) 7 If i=0 Then 8 strGet=strGet & Chr(Int(Rnd()*10)+48) 9 Elseif i=1 then 10 strGet=strGet & Chr(Int(Rnd()*26)+65) 11 ' Else 12 ' strGet=strGet & Chr(Int(Rnd()*26)+97) 13 End If 14 Next 15 End Function
'调用GetRandomString函数，可组合形成：固定字符+随机字符
1 Function GetVehicleNo(strVehicleNo) 2 GetRandomString strGet,5 3 strVehicleNo=strVehicleNo & strGet 4 GetVehicleNo=strVehicleNo 5 End Function