测试2

'*************************************************************
' 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

 

内容来源于网络如有侵权请私信删除
标签： 软件测试
你还没有登录，请先登录或注册！
  • 还没有人评论，欢迎说说您的想法！