七．一个处理数组的具体示例：
下面介绍的示例的功能包含了数组的申明、初始化、重新申明、重新初始化、数组中各元素的排序、数组的遍历、查找以及以数组为参数的过程的定义及调用方法等。下面是此示例实现的具体步骤：
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 |
12. 用下列的代码替换Form1.vb中Button4组件的Click事件对应的处理代码，下列代码的功能是重新定义一维数组：
Private Sub Button4_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button4.Click
ReDim Preserve arrString ( 5 )
'请注意Preserve关键字的作用
Dim i As Integer
For i = 4 To 5
arrString ( i ) = InputBox ( "请在下面文本框中输入字符串" , "请输入字符串 , 来初始化重新创建的一维数组！" , "Item " & i )
Next
DisplayArray ( arrString )
End Sub |
13. 保存上面的所有修改，至此【数组】项目的全部工作就完成了。此时单击快捷键F5运行程序，图02、图03是程序编译后的运行界面：
 图02：输入字符串来初始化一维数组的界面 |
 图03：对一维数组中的各元素进行排序后的界面 |
八．总结：
本文首先介绍了Visual Basic .Net中的数组和原先版本的Visual Basic中的区别，在Visual Basic .Net中数组从内涵上更像Visual C＃。其次介绍了数组的申明方法，其中包括一维数组、多维数组，也包括静态数组和动态数组，初始化数组，及其访问数组中的元素。接着介绍了重新申明数组方法，即ReDim语句的使用用法，及其Preserve关键字的作用。以及使用For Each …. Next语句来遍历数组中各个元素，For Each …. Next语句是操作数据最为常用的一种语句，它能够方便的访问到数组中的每一个元素。比用For ……Next语句要方便了许多。最后介绍在以数组为参数的过程和函数的调用方法，和Array类和其主要的使用方法。之所以提出来介绍以数组为参数的过程和函数的调用方法，是因为数组是引用类型，所以在申明参数为数组的函数或过程时，处理方法与参数为值类型的函数或过程有点不一样。Array是.Net FrameWork SDK中提供用来操作数组的类，本文主要是介绍利用Array类操作数组的具体方方法法。以上就是本文的主要内容，相信仔细阅读并进行相应练习的读者一定已经掌握了。
|
|
