QTP生成随机数字+字母

以下函数实现随机生成17位数（包括字母和数字），仍有改进的空间，可根据具体要求适当修改

Dim targetstring

 '调用返回函数给变量。Function过程通过函数名返回一个值
targetstring = targetrandstring("ABCDEFGHJKLMNPRSTUVWXYZ0123456789")
'msgbox "车架号="& targetstring

 

 

Function targetrandstring( constring)
　　' Const constring = "ABCDEFGHJKLMNPRSTUVWXYZ0123456789" '定义一个包含所有数字和字母的常量,但字母不包含IOQ
　　Dim i, randsting
　　Randomize '直接用rnid函数，每次取的值是一样的。所以要用函数 randomize 初始化随机数发生器
　　For i=1 To 17 'Int(Len(constring)*Rnd)+1 返回一个1到37的随机整数，包括1和37
　　　　'Mid(constring, Int(Len(constring)*Rnd)+1, 1) 在constring中从第int个字符开始取1个字符
　　　　randsting = randsting& Mid(constring, Len(constring )*Rnd+1,1)
　　NEXT
　　targetrandstring = randsting
End Function