QTP函数调用的问题

yongyaya

我在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

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

试试这个