社区
VB基础类
帖子详情
vb怎样传递数组?
gh188
2003-10-20 02:04:13
请问vb怎样将数组传递给过程。
...全文
157
4
打赏
收藏
vb怎样传递数组?
请问vb怎样将数组传递给过程。
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
4 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
Micro_Sheng
2003-10-20
打赏
举报
回复
假定你定义了如下数据组
dim AA(4) as integer
则传递时这样写
byref AA
如:
public function Test(ByRef AA) as ...
.
.
.
end sub
dinky
2003-10-20
打赏
举报
回复
在同一个窗体中只要把数组dim在通用部分就可以了
射天狼
2003-10-20
打赏
举报
回复
Option Explicit
Private Sub Command1_Click()
Dim a() As String
Dim i As Long
ReDim a(10)
For i = 0 To 9
a(i) = i
Next
aa a
End Sub
Private Sub aa(ary() As String)
Dim i As Long
For i = 0 To UBound(ary) - 1
MsgBox ary(i)
Next
End Sub
Wit253
2003-10-20
打赏
举报
回复
实在不行的话用字符串
VB
.NET二维
数组
快速排序(更新)
VB
.NET二维
数组
快速排序(更新) 'OldArrays(),为排序二维
数组
;NewArrays(),为存放结果
数组
,SortColumnsOrOrders(),
传递
排序参数
数组
,偶数个为排序列号,奇数为升降序,0为升序,1为降序;FieldRow,是否有字段行(第一行),true为有字段行,false为无字段行,默认为无字段行;TotalRow,是否有统计行(最后一行),true为有统计行,false为无统计行,默认为无统计行;
VB
数组
参数调用实例.rar
VB
6.0
数组
参数调用实例: Dim A1(), B1(), C1() '声明
数组
Private Sub Form_Load() Dim i As Integer '给
数组
赋初值 Show A1 = Array(2, 4, 6, 8, 10) '用Array函数赋值 B1 = Array(1, 3, 5, 7, 9, 11, 13, 15) For i = 0 To UBound(A1) Picture1.Print A1(i); '打印
数组
元素 Next i For i = 0 To UBound(B1) Picture2.Print B1(i); '打印
数组
元素 Next i ReDim C1(UBound(A1) UBound(B1) 1) '重定新
数组
个数 End Sub Private Sub Command1_Click() Call Merage(A1(), B1(), C1()) '调用合并过程,三个
数组
做实参 For i = 0 To UBound(C1) Picture3.Print C1(i); '打印
数组
If (i 1) Mod 10 = 0 Then Picture3.Print '换行 Next i End Sub
VB
.NET二维
数组
快速排序
VB
.NET二维
数组
快速排序: OldArrays(),为排序二维
数组
;NewArrays(),为存放结果
数组
;Header,是否有标题行;SortColumnsOrOrders(),
传递
排序参数
数组
,奇数个为排序列号,偶数为升降序,0为升序,1为降序
vb
程序设计-
数组
与过程课件
由竹林试题网提供,掌握
数组
的定义和应用,掌握参数的
传递
和shell函数。
两个
VB
程序间互相通信 可以传送数值 也可以传送字节
数组
两个
VB
程序间互相通信 可以传送数值 也可以传送字节
数组
。
VB基础类
7,763
社区成员
197,609
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章