在函数定义里使用ParamArray关键字出现错误提示，删除该关键字就不会现错误提示。Why

qkateh

下面这个过程在运行时会出现“类型不匹配”的错误提示。
我试了一下，如果删除函数定义里的ParamArray关键字后就不会出现错误提示。
请问原因是什么？麻烦讲一下具体的语法知识。谢谢！
Sub a()
     Dim num(2) As Variant, n As Integer
     n = 2
     num(0) = 10
     num(1) = 20
     num(2) = 30
     MsgBox addmultipleargs(n, num)
End Sub
Function addmultipleargs(i As Integer, ParamArray mynumbers() As Variant)
     Dim mysum As Single
     Dim myvalue As Variant
     For Each myvalue In mynumbers
         mysum = mysum + myvalue
     Next
     addmultipleargs = mysum / i
End Function

jsxjd

1. Sub a()
   
2.      Dim num(2) As Variant, n As Integer
   
3.      n = 2
   
4.      MsgBox addmultipleargs(n, 10, 20, 30, 40, "123456")
   
5. End Sub
   
6. Function addmultipleargs(i As Integer, ParamArray mynumbers())
   
7.      Dim mysum As Single
   
8.      Dim myvalue As Variant
   
9.      For Each myvalue In mynumbers
   
10.          mysum = mysum + myvalue
    
11.          MsgBox myvalue
    
12.      Next
    
13.      addmultipleargs = mysum / i
    
14. End Function
    
15. 
    
16. 
    
17. 
    

复制代码

qkateh

jsxjd 发表于 2015-4-15 17:22

感谢版主的帮助！

我又试了一下，下面的过程会提示“类型不匹配”的错误，但是只要把MsgBox f2(num())换成MsgBox (10,20,30)就不会出现错误提示了。
是否函数定义里使用了ParamArray关键字，则在调用该函数时就只能使用类似(x1,x2,x3...)的形式给ParamArray后面的数组传递数值？
Sub a2()
    Dim num(2) As Integer
    num(0) = 10
    num(1) = 20
    num(2) = 30
    MsgBox f2(num())
End Sub
Function f2(ParamArray mynum())
    Dim myvalue As Variant
    Dim mysum As Integer: mysum = 0
    For Each myvalue In mynum
        mysum = myvalue + mysum
        MsgBox myvalue
    Next
    f2 = mysum
End Function

jsxjd

可变数量参数

qkateh

版主，能不能详细解释一下？谢谢！

qkateh

jsxjd 发表于 2015-4-16 10:13
可变数量参数

版主，能不能详细解释一下？谢谢！

jsxjd

qkateh 发表于 2015-4-16 13:52
版主，能不能详细解释一下？谢谢！

参数数量不确定的情况下才考虑

qkateh

jsxjd 发表于 2015-4-16 14:07
参数数量不确定的情况下才考虑

版主的意思是：ParamArray关键字只在参数数量不确定的情况下才使用？

jsxjd

qkateh 发表于 2015-4-16 15:02
版主的意思是：ParamArray关键字只在参数数量不确定的情况下才使用？

是这个意思

qkateh

jsxjd 发表于 2015-4-16 15:06
是这个意思

谢谢了。还想请教一下，下面这种说法是对的吗？
“函数定义里使用了ParamArray关键字，则在调用该函数时就只能使用类似(x1,x2,x3...)的形式给ParamArray后面的数组传递数值，而不能使用数组名称传递数值。”