VB数组编写

1。用For循环语句及InputBox()函数输入。
每次循环，由InputBox()函数弹出对话框等待用户输入数据。如：
Dim a(1 to 4) as Integer
For i=1 to 4
a(i)=InputBox("请输入")
Next i
如果是二维数组，则用两层循环，类推。
2。用Array()函数为数组元素赋值，格式：
数组变量名=Array(数组元素值)
如：
Static a as variant
a=array(1,2,3,4,5)
意思就是把1,2,3,4,5这5个数值赋给数组工的各个元素。即a(0)=1...a(4)=5

希望楼主清楚了:)

利用循环，每次循环执行复值语句，实现单个数组元素的复制。
数组的维数代表了循环的重数。

Dim shuzu(10) As Integer
Dim i As Integer
For i = 1 To 10
shuzh(i) = i
Next

定义shuzu数组,里面有10个元素,然后一个For对shuzu里面的每个元素赋值!