ReDim语句和Preserve语句的使用,程序运行界面如图所示。 Dim a() As Integer Private Sub Picture1_Click() Dim i As Integer, j As Integer ReDim a(3, 2) For i = 0 To 3 For j = 0 To 2 ‘ 每个元素赋值并在图形框显示 Picture1.Print "a("; i; ","; j; ")="; a(i, j); " "; Next j Picture1.Print Next i ‘ 重新指明数组大小,并保留原来的值,这时只能改变最后一维大小 Picture1.Print "-------------------------------------------" For j = 3 To 4 a(3, j) = j + 20 ‘ 显示原来的最后两个元素 ‘ 显示新增加的最后两个元素 Next j End Sub