文件名称：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)