第7章使用数组

第7章使用数组内容摘要：

45 命令按钮“删除” 删除列表框中所选的项目（允许多选）。 注意：删除一个， ListCount的值就会减 1。 主要属性设置： Listl的 Sorted：由于要求升序，设置为 True。 Listl的 MultiSelect：由于允许多选，设置为 2。 Visual Basic程序设计教程 46 【 例 76】 程序运行界面如图。 程序： Private Sub Command1_Click() If = 30 Then MsgBox 个数已到，不能再添加 , , 提示 Else = End If End Sub Private Sub Command2_Click() Dim i As Integer For i = 1 To 0 Step 1 If (i) Then i Next i End Sub Visual Basic程序设计教程 47 组合框（ ComboBox） 组合框兼有文本框和列表框两者的功能 它既允许用户输入文本，也允许在列表中选择项目 1．创建组合框控件 创建组合框在工具箱内选取列表组合框工具。 2．组合框控件的属性 与列表框相同的 List、 ListCount、 ListIndex、Sorted属性 与文本框相同的 Locked、 SelStart、 SelLength、SelText Visual Basic程序设计教程 48 其他主要属性： （名称） Name：组合框名称。 缺省值为 Combo1 Text：用户输入的文本内容或选中的文字 Style：确定组合框性能和样式。 可设 0、 2三个值： 0：下拉组合框，包括 1个下拉式列表和 1个文本框（缺省值）； 1：简单组合框，包括 1个文本框和 1个不能下拉的列表； 2：下拉式列表，只能选择，不能输入 Visual Basic程序设计教程 49 3．组合框控件的方法 AddItem：添加项目 RemoveItem：删除项目 Clear：删除所有项目 4．组合框控件的常用事件 Click事件： 选择项目时发生 Change事件： Style为 0或 1时，用户在组合框控件的文本框部分输入文字时，驱动事件代码执行。 Visual Basic程序设计教程 50 【 例 77】 编制设置字体、字型和字号的演示程序。 如图。 控件： 6个标签，其中 1个用于显示预览效果 1个框架 3个组合框 Visual Basic程序设计教程 51 事件： Form_Load事件：添加组合框中初始项目等。 三个组合框的 Click事件：在选择项目时驱动 Combo1_KeyPress事件：有输完字体名回车后，改变字体 Combo3_Change事件：通过输入改变预览文字大小。 主要属性： 预览 Name设为 lblExample， WordWrap为 True 字体、字型和字号组合框的 Style值分别设置成 2和 0 Visual Basic程序设计教程 52 Private Sub Combo1_KeyPress(KeyAscii As Integer) ‗输入字体名改字体 Dim i As Integer If KeyAscii = 13 Then For i = 0 To 1 If (i) = Then Exit For Next i If i = 1 Then = End If End Sub Private Sub Combo1_Click() 39。 通过选择改字体 = End Sub Visual Basic程序设计教程 53 Private Sub Combo2_Click() ‗通过选择改变字型 Select Case Case 粗体 = True : = False Case 斜体“ = False : = True Case 粗体斜体“ =True : =True Case 标准 = False : = False End Select End Sub Visual Basic程序设计教程 54 Private Sub Combo3_Change() 39。 通过输入字号改字号 Dim N As Integer N = Val() If N = 6 And N = 150 Then = N End Sub Private Sub Combo3_Click() 39。 通过选择改字号 = Val() End Sub Visual Basic程序设计教程 55 Private Sub Form_Load() 39。 初始化 Dim i As Integer For i = 6 To 26 Step 2 : i : Next i 39。 定义字号表项 For i = 28 To 72 Step 4 : i : Next i 39。 定义字号表项 宋体 39。 定义字体表项 隶书 : 楷体 _GB2312 黑体 : 幼圆 标准 : 粗体 39。 定义字形表项 斜体 : 粗体斜体 = 隶书 : = 斜体 39。 初始化组合框 = 26 = 隶书 39。 初始化演示标签框 = True : = 26 =RGB(255, 0, 0) =中文字型示例“ End Sub Visual Basic程序设计教程 56 对一批同类且功能类似的控件，可以建成控件数组 控件数组可以简化编程 控件数组中的每一个元素是同类控件，并且具有相同的名称。 控件数组用索引值 Index属性区分元素。 Visual Basic程序设计教程 57 创建控件数组 创建控件数组的步骤： 首先，与创建其它控件一样，创建第 1个控件 如果需要修改名称，则可先在属性窗口修改该控件名称； 选择该控件，使用“编辑”菜单的“复制”命令 使用“编辑”菜单的“粘贴”命令 这时 VB出现对话框，询问是否建立控件数组，单击“是” 这时新控件的 Index索引值为 1，而原控件索引值自动为 0； 控件数组已经产生 Visual Basic程序设计教程 58 把新粘贴的控件拖动到窗体的合适位置； 若数组含有多个控件，则重复“粘贴”和调整位置操作。 控件数组及元素，也有属性、方法和事件。 元素的方法、事件和属性与它的非数组同类控件一样 但有一个重要的属性是 Index属性，相当于数组下标，编程用 对于整个数组，属性 LBound、 UBound和 Count，分别表示着整个控件数组下标的下界、上界和元素个数。 Visual Basic程序设计教程 59 访问控件数组元素 访问控件数组元素与访问普通数组元素一样 通过控件名称 (索引值 )来确定每个控件 如 Command1(2). Caption=问候。 如果是一批很有规律的操作，一般可以通过循环进行。 注意： 若删除了其中某数组元素（控件），则将导致索引Index不连续，此时再使用该索引值将出错。 解决的方法是重新修改其他元素的 Index值 Visual Basic程序设计教程 60 【 例 78】 修改例 44，要求用控件数组。 创建有 3个单选钮的控件数组 程序代码如下： Private Sub Form_Load() = 10 Option1(0).Value = True 39。 使索引值 0的控件处于选中状态 = Hello! End Sub Visual Basic程序设计教程 61 Private Sub Option1_Click(Index As Integer) 39。 设置字号 = Val(Option1(Index).Caption) End Sub 程序运行时单击单选按钮， Index就自动作为 Click事件的参数，传给 Click事件。 Visual Basic程序设计教程 62 【 例 79】 编写一个运行界面如图的程序，其中“ +‖、“ ‖、“ ‖、“ 247。 ‖为命令按钮控件数组， 2个文本框用于输入数据，当单击四个运算符按钮中的任一个，则开始计算，并在 Label Label2和 Label3上分别显示运算符、等号和运算结果。 Visual Basic程序设计教程 63 Private Sub Command1_Click(Index As Integer) = Command1(Index).Caption 39。 将运算符显示在Label1上 = = Select Case Index Case 0 : = Val() + Val() 39。 加法 Case 1 : = Val() Val() 39。 减法 Case 2 : = Val() * Val() 39。 乘法 Visual Basic程序设计教程 64 Case 3 39。 除法 If Val() = 0 Then MsgBox 除法错误 !, vbCritical, 出错 Else = Val() / Val() End If End Select End Sub Private Sub Command2_Click() ‗―清除”按钮 = : = = : = : = ― End Sub Private Sub Command3_Click() 39。 ―退出”按钮 End End Sub Visual Basic程序设计教程 65 二维数组有两个下标 二维数组可表示一个矩阵 可以把第一个下标看作行，第二个下标看作列。 121110987654321矩 阵 Visual Basic程序设计教程 66 如何声明二维数组 声明格式： Dim 数组名 (下标说明 ,下标说明 ) [As 类型名 ] 数组名、下标说明的要求和格式与一维数组一样。