vb数组怎么赋值和取值？实例操作演示教学！

今天心血来潮，想试试VB里的数组到底怎么用。以前也接触过，但老是模模糊糊的，这回就下决心好好捣鼓一下。

开搞！先定义一个数组

我记得好像是用Dim来着？先试试：

Dim myArray(10) As Integer

这样应该就定义一个能放11个整数的数组（VB的数组下标好像是从0开始的，所以到10有11个位置）。

给数组里塞点东西

光定义不行，得放点数据进去。我想想，就用个循环：

Dim i As Integer

For i = 0 To 10
myArray(i) = i  2  '每个位置放个2倍的数进去
Next i

这样，数组里每个位置就放进去一个数字，是它位置编号的两倍。

看看成果，输出一下

放进去，总得看看对不对？我记得有个Print方法可以输出东西。再来个循环：

For i = 0 To 10
Print myArray(i) '直接在窗口上打印出来
Next i

运行！窗口上果然出来：0, 2, 4, 6... 一直到20。看来是成功！

再试试改一下数组大小

听说有个ReDim可以改数组大小？我来试试：

ReDim Preserve myArray(20)

加个Preserve，据说是为保留原来的数据。然后我再把后面几个位置也填上数：

For i = 11 To 20
myArray(i) = i  3 '这回填3倍的数
Next i

再打印出来看看：

For i = 0 To 20
Print myArray(i)
Next i

运行！0, 2, 4... 20, 然后是 33, 36, 39... 一直到60。成功！数组大小也改，数据也没丢。

今天这一通折腾，感觉对VB数组有点感觉。以后再遇到数组，应该不会再迷糊！