自编函数的数组参数怎么传递?

feifan98 2003-05-08 11:01:09
各位大侠,我想编写一个函数,要以数组为传递参数,怎么写呢?
是不是这样
function 函数名(a(30,30)as long) as long



end function
其中a(30,30)为传递的参数!
...全文
7 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
大智 Kevin 2003-05-09
实际上vb是有指针这个概念的,只不过ms没有公开。
回复
叶帆 2003-05-09
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim b(30, 30) As Long
For i = 0 To 30
For j = 0 To 30

b(i, j) = Rnd * 100 + 1000
Next j, i
Call aaa(b)

End Sub

Sub aaa(a() As Long)
Dim i As Integer
Dim j As Integer
For i = 0 To 30
For j = 0 To 30

Debug.Print a(i, j)
Next j, i

End Sub
回复
道素 2003-05-09
前边加一个byref传地址方式


SHANNON
----------------
CH21ST@HOTMAIL.COM
回复
feifan98 2003-05-09
谢谢叶帆
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7490

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-05-08 11:01
社区公告
暂无公告