|
下面介绍的示例的功能包含了数组的申明、初始化、重新申明、重新初始化、数组中各元素的排序、数组的遍历、查找以及以数组为参数的过程的定义及调用方法等。下面是此示例实现的具体步骤:
1. 启动Visual Studio .Net。
2. 选择菜单【文件】|【新建】|【项目】后,弹出【新建项目】对话框。
3. 将【项目类型】设置为【Visual Basic项目】。
4. 将【模板】设置为【Windows应用程序】。
5. 在【名称】文本框中输入【数组】。
6. 在【位置】的文本框中输入【E:VS.NET项目】,然后单击【确定】按钮,这样在“E:VS.NET项目”目录中就产生了名称为“数组”的文件夹,并在里面创建了名称为【数组】的项目文件。
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 |
表01表03:【数组】项目窗体中各组件的主要属性设定数值表
并按照图01中各组件的位置、大小和排列方式来调整窗体中各个组件:

图01:【数组】项目的设计界面
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
11. 用下列的代码替换Form1.vb中Button3组件的Click事件对应的处理代码,下列代码的功能是首先定义一个名称为“DisplayArray”的过程,此过程能够对给定的一维数组中的数据进行排序,并通过ListBox显示出来。其次是定义Button3的Click事件,在此事件中对调用DisplayArray过程,对一维数组中的数据进行排序:
'定义一个过程,过程的功能是通过ListBox组件显示给定的字符串数组中各元素
Sub DisplayArray ( ByVal myString ( ) As String )
ListBox1.Items.Clear ( )
Dim Temp As String
For Each Temp In myString
ListBox1.Items.Add ( Temp )
Next
End Sub
Private Sub Button3_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button3.Click
Array.Sort ( arrString )
DisplayArray ( arrString )
End Sub
|