VB 数组参数调用实例.rar

VB6.0数组参数调用实例： 　　DimA1(),B1(),C1()'声明数组 　　PrivateSubForm_Load() 　　DimiAsInteger'给数组赋初值 　　Show 　　A1=Array(2,4,6,8,10)'用Array函数赋值 　　B1=Array(1,3,5,7,9,11,13,15) 　　Fori=0ToUBound(A1) 　　Picture1.PrintA1(i);'打印数组元素 　　Nexti 　　Fori=0ToUBound(B