以下函數實現隨機生成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生成隨機數字+字母