for each

[华夏小卒]

’msdn 上的例子，有错，怎么改就可以了
Dim x As Integer
Dim y As Integer
Dim intSum As Integer


Sub Sum(ParamArray intNums())

   For Each x In intNums      ‘报错：for each 数组的控件变量必须为变体，这是什么意思？
      y = y + x
   Next x
   intSum = y
   
End Sub

Private Sub Command1_Click()

   Sum 1, 3, 5, 7, 8
   List1.AddItem intSum

End Sub

[bcrun]

如楼上2位所说,楼主你意识到原因是ParamArray 型参数只接受variant型数组就行了

[贝隆]

学习。。

[clear_zero]

ParamArray 型参数只接受variant型数组就行了

[chinaboyzyq]

Dim x as Variant

[zzyong00]

Dim x As Integer
Dim y As Integer
Dim intSum As Integer


Sub Sum(ParamArray intNums())
   For x = LBound(intNums) To UBound(intNums)
      y = y + intNums(x)
   Next x
   intSum = y
   
End Sub

Private Sub Command1_Click()

   Sum 1, 3, 5, 7, 8
   List1.AddItem intSum

End Sub

这样也可

[ygg1314]

学习~~

[fq618]

学习了