5.10 练习

      练习：创建一个Windows Forms Application，其中包含一个TextBox控件和一个Button控件。

在窗口中，创建一个由名字初始化的数组。在按钮控件的Click事件中，添加一些代码，以通过保留现有

数据的元素来调整数组的大小，将文本框中的新名字添加给数组，并在消息框中显示添加给数组的姓。

 

实现代码：

 

 

 

Private strArray() As String = {"赵三", "李四", "王五"} Private Sub btnName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnName.Click '获取Textbox的值 Dim strName As String = txtName.Text If strName = "" Then MessageBox.Show("名字不可为空", "Error Demo") Else '获取数组上限值 Dim intUp As Integer = strArray.GetUpperBound(0) '获取数组长度值 Dim intLength As Integer = strArray.Length '重新定义数组长度 ReDim Preserve strArray(intLength) '将文本框中获取到的值添加到数组中 strArray(intUp) = strName '使用intLength，则数组个数进行累积 'strArray(intLength) = strName '获取到数组中序列最大的值 Dim strFirstName As String = strArray(intUp).Substring(0, 1) '相应使用intLength的strFirstName 'Dim strFirstName As String = strArray(intLength).Substring(0, 1) MessageBox.Show(strFirstName) End If End Sub '所有Name的输出 Private Sub btnNames_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNames.Click Dim strNames As String = "" For Each s As String In strArray strNames &= s & "," Next MessageBox.Show(strNames) End Sub

 

知识点：  Preserve关键字防止在重新设置数组维数时清除数组内容；

 

              GetUpperBound(0)获取第0维数组的上限值；

 

              Substring(0,1)获取第0个数组项的第1个字符；