QTP生成随机数字+字母

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

Dim targetstring
targetstring = targetrandstring("ABCDEFGHJKLMNPRSTUVWXYZ0123456789") ‘调用返回函数给变量。Function过程通过函数名返回一个值
‘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

QTP生成随机数字+字母

原文：http://www.cnblogs.com/chenri/p/7719924.html