QTP产生随机字符串函数（转载）

Function makestring(inputlength)
If IsNumeric(inputlength) Then
For I = 1 To inputlength
'you may add a random function here
A = Array("a","b","c")
Randomize
x=RandomNumber (0,2)
B = A(x)
makestring =makestring +B
Next
msgbox ("output the string:"&makestring )
else
msgbox ("error format:"&inputlength)
End If
End Function
Call makestring("8")

 终于安装好了QTP测试工具,一开始安装的时候没有序列号,后来到网上找了一个,序列号用这个的时候,8888-8888888888,Microsoft脚本调试程序老是安装不上去,后来在网上看到了用序列号0123-2820602186这个时,我重新安装了一遍,发现Microsoft脚本调试程序可以安装上去,并下载了QTP8.2破解文件,只要把破解文件放入到安装目录/bin中就可以了,最后大功告成.