51Testing软件测试论坛

标题: QTP函数调用的问题 [打印本页]

作者: yongyaya 时间: 2009-1-8 11:44
标题: QTP函数调用的问题
我在QTP专家视图的环境中，写了如下函数调用，但当我运行的时候，系统确提示：无效的参数调用。

AddTest 1,1
Function AddTest(a,b)
Dim c
c=a+b
Msgbox c
AddTest=c

End Function

ExecuteFile "MyFunctions.vbs"
x=AddTest(2,2)

这是为什么啊！？求各位高手给予指点！
多谢！

作者: rocky_chen0423 时间: 2009-1-10 02:36
addtest 1,1

Public Function addtest(byref a, byref b)
Dim c
c=a+b
addtest=c
End Function

option Explicit
Dim x
ExecuteFile "e:\test.vbs"
x=addtest(2,2)
msgbox x

试试这个

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)