[原创]QTP中产生随机字符串

产生背景：经常会有一些输入域的测试，少的有255，多的更可怕，在准备数据的时候会比较头疼，所以写了个函数和大家分享。

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")