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

'*************************************************************
' Name: GetRandomString
' Purpose: 随机生成N个字符（包含数字和字母）
' Parameters: 
 'strGet -output string
' *************************************************************

 Function GetRandomString(strGet,iSize)
        ' TODO: add function body here
         strGet=""
         Randomize
         For j= to iSize
             i=RandomNumber(,)
             If i= Then
                 strGet=strGet & Chr(Int(Rnd()*)+)
             Elseif i= then
                 strGet=strGet & Chr(Int(Rnd()*)+)
 '            Else
 '                strGet=strGet & Chr(Int(Rnd()*26)+97)
             End If
         Next
 End Function  

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

 Function GetVehicleNo(strVehicleNo)
    GetRandomString strGet,
    strVehicleNo=strVehicleNo & strGet
    GetVehicleNo=strVehicleNo
 End Function