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

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



end function
其中a(30,30)为传递的参数!
...全文
46 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
大智 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
  • 打赏
  • 举报
回复
谢谢叶帆

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧