6.3 动态数组控件数组和排序算法幻灯片.pptVIP

建立动态数组的方法是，首先在模块或过程中使用如下格式定义类型: Public | Private |Dim|Static 数组名（）as [数据类型] 然后在过程中用Redim语句指明该数组的大小。 格式：Redim [preserve ] 数组名 ( 下标1 [，下标2 …]) 说明 :① ReDim语句中的下标可以是常量，也可以是有了确定值的变量。 ②在过程中可以多次使用ReDim语句来改变数组的大小。 ④每次使用Redim语句都会使原来数组中的值丢失，即数组中的内容全部被重新初始化。 ?用Preserve选项，则在对数组重新说明时，将会保留数组中原来的数据。但该参数只能改变最后一维的大小，前面维的大小不能改变，且维数不能改变。 Option Base 1 Dim dynarry() As Integer Private Sub Form_Click() Dim i As Integer, j As Integer ReDim dynarry(3, 3) Print 数组dynarry(3, 3)的值 For i = 1 To 3 For j = 1 To 3 dynarry(i, j) = i * 10 + j Print dynarry(i, j);