在VB.NET编程中使用数组(3)

7. 把Visual Studio .Net的当前窗口切换到【Form1.vb（设计）】窗口，并从【工具箱】中的【Windows窗体组件】选项卡中往Form1窗体中拖入下列组件，并执行相应操作：

四个Button组件，分别用来创建一个“创建一维数组”、创建“创建二维数组”、实现对“对一维数组排序”和实现“重定义一维数组”。并在这四个Button组件拖入Form1的设计窗体后，分别双击这四个组件，这样系统会在Form1.vb文件分别产生这四个组件的Click时间对应的处理代码。

一个ListBox组件，用来显示创建的一维数组的内容。

8. 按照表03中数值来设定设定组件的主要属性：

组件类型  组件名称  属性  设置结果
Form  Form1  Text  数组篇
Form1  MaximizeBox  False
Form1 MinimizeBox  False
Form1  FormBorderStyle  FixedSingle
ListBox  ListBox1  ItemHeight  12
ListBox1  Location Point  ( 28 , 169 )
ListBox1  Size Size  ( 246 , 136 )
Button  Button1  Text  创建一维数组
Button1  FlatStyle  Flat
Button2  Text  创建二维数组
Button2  FlatStyle  Flat
Button3  Text  对一维数组排序
Button3  FlatStyle  Flat
Button4  Text  重定义一维数组
Button4  FlatStyle  Flat

表03：【数组】项目窗体中各组件的主要属性设定数值表

9. 把Visual Studio .Net的当前窗口切换到【Form1.vb】，进入Form1.vb文件的编辑界面。然后用下列的代码替换Form1.vb中Button1组件的Click事件对应的处理代码，下列代码的功能是通过创建输入对话框来创建一个一维数组：

Private Sub Button1_Click ( ByVal sender As System.Object ,
ByVal e As System.EventArgs ) Handles Button1.Click

Dim i As Integer

For i = 0 To 3

arrString ( i ) = InputBox ( "请在下面文本框中输入字符串" ,
"请输入字符串 , 来初始化创建的一维数组！" , "Item " & i )

Next

Button3.Enabled = True

Button4.Enabled = True

DisplayArray ( arrString )

End Sub

10. 用下列的代码替换Form1.vb中Button2组件的Click事件对应的处理代码，下列代码的功能是创建一个二维数组，并进行初始化：

Private Sub Button2_Click ( ByVal sender As System.Object ,
ByVal e As System.EventArgs ) Handles Button2.Click

Dim arrDate ( , ) As String = {{"星期一" , "18号"} , {"星期二" , "19号"}}

''创建一个二维数组，并初始化

MsgBox ( arrDate ( 0 , 1 ) )

''访问这个二维数组中的元素

End Sub