Visual Basic程序设计教程第六章数组.pptVIP

例6-7：打印一维数组A中所有的数据元素 Private Sub Form_Click() Dim a(1 To 10) As Integer Dim t For i = 1 To 10 a(i) = 2 * i Next i Print 数组a各元素的值如下： For Each t In a 该语句用来进行数组的输出 Print t; ; Next t End Sub * 例6-8：用For Each...Next打印二维数组的值。 Private Sub Form_Click() Dim a(1 To 4, 1 To 5) As Integer Dim t,i%, j%, n% For i = 1 To 4 For j = 1 To 5 a(i, j) = 2 * i + j Next j Next i Print 数组a各元素的值如下： n = 0 For Each t In a Print Tab((n Mod 5) * 5); t; n = n + 1 If n Mod 5 = 0 Then Print Next t End Sub * 6.5 控件数组 由一组相同类型的控件组成，它们共用一个控件名,具有相同的属性,建立时系统给每个元素赋一个唯一的索引号(Index),第一个下标为0。 控件数组共享同样的事件过程。 如：cmdName(3)代表控件数组名为 cmdName的第四个控件。 * 建立控件数组的两种方法 (1)设计时建立 ①在窗体上创建第一个控件，设置好控 件名。 ②选中该控件，进行Copy和Paste操作若 干次建立控件数组。 ③进行事件过程的编程。 * Private Sub Command1_Click(Index As Integer) Select Case Index 对Index值进行判断 Case 0 Text1.BackColor = RGB(255, 0, 0) Case 1 Text1.BackColor = RGB(0, 255, 0) Case 2 Text1.BackColor = RGB(0, 0, 255) Case Else End End Select End Sub 例6-9： * (2)在运行时添加控件数组 ①在窗体上画出某控件，设置该控件的 Index值为0，表示该控件为数组,这是建 立的第一个元素 ②在编程时通过Load方法添加其余的若干个 元素，也可以通过Unload方法删除某个添 加的元素。 ③每个新添加的控件数组通过Left和Top属 性确定其在窗体的位置，并将Visible属 性设置为True。 * Private Sub Command1_Click() 生成控件数组 For i = 1 To 3 Load TxtInput(i) TxtInput(i).Width = TxtInput(0).Width TxtInput(i).Height = TxtInput(0).Height TxtInput(i).Left = TxtInput(i - 1).Left + 600 TxtInput(i).Top = TxtInput(i - 1).Top + 800 TxtInput(i).Visible = True TxtInput(i).Text = 第 i + 1 个元素 Next i End Sub Private Sub Command2_Click() 删除控件数组元素 For i = 1 To 3 Unload TxtInput(i) Next i End Sub 例6-10： * 列表框（ListBox）和组合框（ComboBox）都是能提供选项的控件。这两个控件有些属性是数组，如List属性是字符型数组、Selected属性是逻辑型数组。 概述 6.6 列表框与组合框 * 列表框(ListBox) 是能提供“多选一”的控件。 * 常用属性 属性 描述 Columns 用于指定列表框中列的数目 0：单列