vb 怎么定义静态数组

Private Sub Command1_Click()
Static a As Integer
Dim b As Integer
a = a + 1
b = b + 1
MsgBox "a=" & a & vbCrLf & "a是个静态变量，每次运行时它会保留上次运行的值，所以a+1后a的值会一直递增下去" & vbCrLf & vbCrLf & "b=" & b & vbCrLf & "b不是静态变量，每次运行时它会被重新初始化为0，所以b+1的结果b的值会永远固定为1" & vbCrLf & vbCrLf & "再次点击Command1你就明白了"
End Sub

在VB中，可以通过写索引号的方式定义多维数组，如下代码所示：
Dim multi(1 to 10,1 to 10 ) as Integer
按照这种方式，即定义了一个10 × 10的二维数组。

定义动态数组，有利于系统回收资源。
Dim arr() 这样即定义了一个动态数组
ReDim arr(2 to 8) 给数组定上下界
arr（2）="hello"
Redim preserve arr(2 to 10) preserve重定义大小
这样做了以后，原来的值会被保留。

Dim cnt1 as Variant
cnt1=array(1600,0,0,0,0)
================================
Array 函数
返回一个包含数组的 Variant。
语法
Array(arglist)
所需的 arglist 参数是一个用逗号隔开的值表，这些值用于给 Variant 所包含的数组的各元素赋值。如果不提供参数，则创建一个长度为 0 的数组。
说明
用来表示数组元素的符号由变量名、圆括号以及括号中的所需元素的索引号组成。在下面的示例中，第一条语句创建一个 Variant 的变量 A。第二条语句将一个数组赋给变量 A。最后一条语句将该数组的第二个元素的值赋给另一个变量。
Dim A As Variant
A = Array(10,20,30)
B = A(2)
使用 Array 函数创建的数组的下界受 Option Base 语句指定的下界的决定, 除非 Array 是由类型库（例如 VBAArray )名称限定。如果是由类型库名称限定，则 Array 不受 Option Base 的影响。
注意 没有作为数组声明的 Variant 也可以表示数组。除了长度固定的字符串以及用户定义类型之外，Variant 变量可以表示任何类型的数组。尽管一个包含数组的 Variant 和一个元素为 Variant 类型的数组在概念上有所不同，但对数组元素的访问方式是相同的。

采用VB动态数组，下面的代码基于VB6环境；

Dim d() As Integer
Dim i As Integer
Dim N As Integer
Dim a As Integer
'生成数组
N = Val(InputBox("输入N：（小于100）"))
a = 1
ReDim d(a) As Integer
i = 0
d(a) = i
Do While i + N <= 100
   i = i + N
   a = a + 1
   ReDim Preserve d(a) As Integer
   d(a) = i
Loop
'输出数组，一行8个数字
Mecls
N = 0
For i = 1 To UBound(d)
   Print d(i),
   N = N + 1
   If N Mod 8 = 0 Then Print
Next i

dim|private|public，数组名(维数及大小) as 类型。

dim|private|public，定义数组作用域。

维数及大小，即数组是几维数组以及每个维的大小类型。

数据类型，数组的类型'。

首先将你的文本框的MultiLine设置为True然后将数组值写入便可：DimA(1to5,1to4),Xaslong,Yaslong,Sasstringfory=1to4forx=1to5数组的赋值进程nextnextforY=1To4ForX=1to5s=sformat(a(x,y),@@@@@@@@),nexts=svbcrlfnext文本框Text=S

dim a(2) as byte '0-2 3个
dim a() as byte
redim a(2) '动态设置
redim Preserve a(4) '保留原值的增加数量
dim a(5,2) as byte 多维数组

---