数组、列表框和组合框.ppt

5.1 数组的使用 5.2 控件数组 5.3 列表框与组合框 5.4 小结 5.1 数组的使用 【引例】 计算20个数据的平均值。程序运行时随机产生20个两位整数显示在上面标签中；单击 “平均值”按钮时，计算20个数据的平均值显示在下面的标签中。 操作步骤 1、界面设计 2、编写窗体的Load事件 2、编写窗体的Load事件 2、编写窗体的Load事件 【修改引例】 添加“大于平均值”按钮。单击 “大于平均值”按钮时，将20个数据中大于平均值的数据显示在下面标签中。 分析 单击“平均值”按钮后才能使用“大于平均值”按钮 定义窗体级变量 Dim s As Integer Dim a1 As Integer Dim a2 As Integer ? Dim a20 As Integer 编写窗体的Load事件 Private Sub Form_Load() End Sub 编写“平均值”按钮的单击事件 Private Sub cmdAve_Click() End Sub 编写“大于平均值”按钮的单击事件 Private Sub cmdLarge_Click() End Sub 思考：改进 20个变量的名字为a(1)、a(2)、……、a(20) 改写“大于平均值”按钮的单击事件 Private Sub cmdLarge_Click() End Sub 定义20个变量的方法 【实例5.1】 计算20个数据的总和与平均值。程序运行时随机产生20个两位整数显示在上面标签中；单击“求和”或“平均值”按钮时，计算20个数据的总和或平均值，显示在下面的标签中。 操作步骤 技能要点 数组的概念 数据类型相同的多个变量所构成的集合 所有的变量都使用相同的名字 — 数组名 不同的变量通过下标来区别 数组的定义 【实例5.2】数据的逆置。程序运行时随机产生10个两位整数显示在上面标签中；单击“逆置”按钮，将各数据按逆序重新放入原数组中并显示在下面标签中；单击“重置”按钮则重新产生10个两位整数显示在上面标签中，同时将下面标签清空。 操作步骤 【实例5.3】找数据中的最大、最小值。程序运行时随机产生10个两位整数显示在上面标签中；单击“最大”或“最小”按钮时，找出10个数据中的最大或最小值显示在下面标签中。 操作步骤 【实例5.4】数据排序。程序运行时，单击“产生数据” 按钮，随机产生20个0~100之间的整数显示在窗体上部；单击“排序” 按钮，将排序后的数据显示在窗体下部。 操作步骤 【实例5.5】在窗体上装载一幅图片，再加1个计时器控件。当程序运行时，计时器控件工作，窗体上不断飘落直径不等的白色圆，酷似下雪。 操作步骤 5.2 控件数组 【实例5.6】窗体中有1个按钮、5个标签、1个包含10个单选按钮的控件数组。程序运行时，单击“测试” 按钮，在标签中随机显示一个交通标识名，用户单击相应单选按钮后，程序提示结果。 操作步骤 （1）设计用户界面 添加控件数组的方法 （2）定义窗体级字符型数组 Dim tname(9) As String （3）编写窗体的装载事件过程代码 （4）编写“测试”按钮的单击事件过程代码 （5）编写单击单选按钮控件数组元素的代码 【实例5.7】窗体中有1个标签、1个包含10个单选按钮的控件数组。程序运行时，单击某一单选按钮，在标签中显示相应交通标识的名称。 操作步骤 （1）设计用户界面 （2）编写单击控件数组元素的代码 5.3列表框与组合框 5.3.1 列表框 5.3.2 组合框 5.3.1 列表框 【实例5.8】窗体中有1个标签，1个列表框和2个按钮。程序运行时列表框中显示“北京”、“上海”、“天津”和“重庆”；单击“添加”按钮，出现输入框，用户输入新城市名后随即将该城市名添加到列表框中；选中列表框中某项并单击“删除”按钮，从列表框中删除该城市名。 操作步骤 （1）在窗体中添加所需控件，列表框控件在工具 箱中的图标是 。 （2）编写窗体的装载事件过程代码 列表框的AddItem方法调用格式 列表框名.AddItem 字符串 [,索引号] （3）编写“添加”命令按钮的单击事件过程代码 （4）编写“删除”命令按钮的单击事件过程代码 RemoveItem方法调用格式 列表框名.RemoveItem 索引号 【实例5.9】程序运行时随机产生100个两位整数添加在左列表框中；单击左列表框中某项，该列表项移到右列表框中；单击“”按钮则将左列表框中所有项移到右列表框中；单击“还原”按钮，左列表框中显示原有100个整数，右列表框清空。