|
在VB.NET编程中使用数组
|
|
来源：中国IT实验室收集整理 时间：2007-6-28
|
|
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
上一页 [1] [2] [3] [4] [5] [6] 下一页
 【责编:Youping】 |
|
|
|
