在VB.NET编程中使用数组

七．一个处理数组的具体示例：

　　下面介绍的示例的功能包含了数组的申明、初始化、重新申明、重新初始化、数组中各元素的排序、数组的遍历、查找以及以数组为参数的过程的定义及调用方法等。下面是此示例实现的具体步骤：

　　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类操作数组的具体方方法法。以上就是本文的主要内容，相信仔细阅读并进行相应练习的读者一定已经掌握了。

查看本文来源