实例2-9 ReDim和ReDim Preserve语句的比较

该实例实现步骤如下。

1 创建窗体

在本章的项目chapter2中，右键单击解决方案资源管理器中项目名下对应节文件夹“数组”，在弹出菜单中选择“添加”→“Windows窗体”菜单命令，在弹出的对话框中输入窗体名RDimPreFrm，单击“添加”按钮完成窗体的创建。

2 添加控件

添加三个Label控件到窗体上，对显示信息加以说明。

添加两个ListBox列表框控件到窗体上，用来显示两种重新定义数组的数据。

添加两个Button控件到窗体上。

3 添加代码

在两个Button按钮的单击事件过程中添加代码2-13中的代码。

        01  Public Class RDimPreFrm
        02      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles Button1.Click
        03          Dim array() As Integer = {1, 2, 3}
        04          ReDim array(5)
        05          For i As Integer = 0 To 4
        06              ListBox1.Items.Add(array(i))  ''将数组显示在列表框里
        07          Next
        08          End Sub
        09      Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles Button2.Click
        10          Dim array() As Integer = {1, 2, 3}

        11          ReDim Preserve array(5)
        12          For i As Integer = 0 To 4
        13              ListBox2.Items.Add(array(i))  ''将数组显示在列表框里
        14          Next
        15      End Sub
        16  End Class

代码2-13的执行步骤如下：

① 第2行代码是Button1控件单击事件过程，实现ReDim语句重定义数组并显示重定义数组的内容；

② 第3行代码定义一个三元数组，并赋了初值；

③ 第4行代码用ReDim语句重新声明数组，原来的数据都丢失；

④ 第5，6，7行代码是将用ReDim语句重定义的数组内容显示在listbox1控件上；

⑤ 第9行代码是Button2控件事件过程，实现ReDim Preserve语句重新定义数组并显示重定义数组的内容；

⑥ 第11行代码用ReDim Preserve语句重新声明数组，此时，原数组中的数据也被保留；

⑦ 第12，13，14行代码将用ReDim Preserve语句重定义的数组内容显示在listbox2中。

4 运行结果

按F5键，运行程序，结果如图2-14所示。