VB子程序或函数中怎么用数组作参数?

freelazy 2003-10-17 08:43:31
如题:
...全文
57 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
zjcxc 2003-10-17
  • 打赏
  • 举报
回复
或者:

Private Sub Command1_Click()
Dim b(10) As Long,i&

For i = 1 To 10
b(i) = i
Next

Call aa(b)
End Sub

Private Sub aa(a)
Dim i As Long

For i = 1 To UBound(a)
MsgBox a(i)
Next
End Sub
射天狼 2003-10-17
  • 打赏
  • 举报
回复
Option Explicit

Private Sub Command1_Click()
Dim b() As Long
Dim i As Long

ReDim b(10)
For i = 1 To 10
b(i) = i
Next

Call aa(b)
End Sub

Private Sub aa(a() As Long)
Dim i As Long

For i = 1 To UBound(a)
MsgBox a(i)
Next
End Sub

7,759

社区成员

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

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