7,762
社区成员
发帖
与我相关
我的任务
分享关于函数的参数传递问题
我想写一个函数，参数为数组。
例如：定义函数 Private Function SUMCOUNT( B_COUNT（） As Long) As String
定义 DIM W_COUNT(60) AS LONG
主程序中用 SUMCOUNT（W_COUNT）
编译时报错，这是怎么回事，应该怎样改？
例如：定义函数 Private Function SUMCOUNT( B_COUNT（） As Long) As String
定义 DIM W_COUNT(60) AS LONG
主程序中用 SUMCOUNT（W_COUNT）
编译时报错，这是怎么回事，应该怎样改？
...全文
请发表友善的回复…
发表回复
northwolves 2004-06-07
- 打赏
- 举报
Dim W_COUNT(60) As Long
Private Function SUMCOUNT(ByRef B_COUNT() As Long) As String
Dim i As Long
SUMCOUNT = 0
For i = LBound(B_COUNT) To UBound(B_COUNT)
SUMCOUNT = SUMCOUNT + B_COUNT(i)
Next
End Function
Private Sub Command1_Click()
Dim i As Long
For i = 0 To 60
W_COUNT(i) = i
Next
MsgBox SUMCOUNT(W_COUNT)
End Sub
Private Function SUMCOUNT(ByRef B_COUNT() As Long) As String
Dim i As Long
SUMCOUNT = 0
For i = LBound(B_COUNT) To UBound(B_COUNT)
SUMCOUNT = SUMCOUNT + B_COUNT(i)
Next
End Function
Private Sub Command1_Click()
Dim i As Long
For i = 0 To 60
W_COUNT(i) = i
Next
MsgBox SUMCOUNT(W_COUNT)
End Sub
huangjianyou 2004-06-07
- 打赏
- 举报
Option Explicit
Private Sub Form_Load()
Dim W_COUNT(60) As Long
Call SUMCOUNT(W_COUNT)
End Sub
Private Function SUMCOUNT(B_COUNT() As Long) As String
End Function
函数没错啊，是你调用错了，应该是：
Call SUMCOUNT(W_COUNT)
或者
SUMCOUNT W_COUNT
不应该加个括号的。^_^
Private Sub Form_Load()
Dim W_COUNT(60) As Long
Call SUMCOUNT(W_COUNT)
End Sub
Private Function SUMCOUNT(B_COUNT() As Long) As String
End Function
函数没错啊，是你调用错了，应该是：
Call SUMCOUNT(W_COUNT)
或者
SUMCOUNT W_COUNT
不应该加个括号的。^_^
beckham1122 2004-06-07
- 打赏
- 举报
传入参数时是w_count() 而不是w_count
yinweixian 2004-06-07
- 打赏
- 举报
把dim改成public
