【文件属性】：
文件名称：VB 数组参数调用实例.rar
文件大小：2KB
文件格式：RAR
更新时间：2022-07-30 05:53:39
VB源码-其它源码
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
【文件预览】：
srcfans.com
----数组参数实例()
--------Form1.frm(6KB)
--------E193.vbp(684B)
--------MSSCCPRJ.SCC(189B)
--------E193.vbw(52B)