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

例8.7 计算前三名职工工资 设计一个窗体，在窗体上添加两个命令按钮。运行程序时，单击【计算】，弹出输入对话框，要求输入员工人数。以后要求输入公司每个员工的工资，输入结束后计算并输出员工人数和平均工资，然后再输出工资最高的前三名职工工资。 8.4.4 可变类型数组 当一个数组被说明成变体类型的数组，它的每个元素也是变体类型的，因此，可以存放各种类型的数据，例如：? Option Base 1 Private Sub Form_Click() Dim an(6) For i = 1 To 3 an(i) = Name + Str(i) Next i For i = 4 To 6 an(i) = Int(Rnd * 10000) / 100 Next i For i = 1 To 3 Print an(i), an(i + 3) Next i End Sub 变体变量可以扩充为数组，用Array函数可以给变体变量赋一组数，这组数的数据类型可以不同，赋值以后变体变量扩充为数组，可访问其中的元素。例如：? Option Base 1 Private Sub Form_Click() Dim an an = Array(Name 1, Name 2, Name 3, Int(Rnd * 10000) / 100, Int(Rnd * 10000) / 100, Int(Rnd * 10000) / 100) For i = 1 To 3 Print an(i), an(i + 3) Next i End Sub 8.5 综 合 运 用 例8.8 入网登记 设计一个窗体，在窗体上添加3个标签、一个文本框、一个列表框和两个命令按钮。运行程序时，输入入网人员姓名，单击【入网登记】按钮，在列表框中增加一位网民，若在列表框中单击网民的姓名，将显示该网民入网时间，单击【退出】命令按钮，结束程序运行。 。 例8.9 二战后美国总统一览表。 设计一个窗体，在窗体上添加一个列表框、两个标签和两个文本框。运行程序时在列表框中加入总统姓名，在列表框中单击总统姓名后，文本框内会显示其党派及任职年份。美国总统的党派及任职年份请参考表8.8。 例8.10 不亮的灯 有一排灯，共200盏，最初全为关的状态，现在每隔一个灯拉一下开关，然后每隔两个灯拉一下开关，每隔3个灯拉一下开关，……依此类推，问最后哪些灯不亮？ /webnew/ /webnew/ 第8章 列表框、组合框和数组 （时间：2次课，4学时） 第8章 列表框、组合框和数组 教学提示：在第5章中，介绍了单选按钮、复选按钮和框架并介绍了分支程序设计的基本思想。本章将继续介绍提供用户选择的控件列表框和组合框。还将介绍数组的使用，在学习中要注意列表框和组合框的特殊属性和数组的定义和使用。 教学目标：掌握用Dim语句定义数组，数组元素的输入、输出和引用；掌握控件数组的建立和事件过程的编写；掌握列表框和组合框的主要属性和使用方法。 第8章 列表框、组合框和数组 8.1 认识列表框和组合框 8.2 列表框 8.3 组合框 8.4 数组 8.5 综合运用 8.1 认识列表框和组合框 列表框和组合框都能提供一个项目列表，用户可以从中选择一项或多项。 例8.1 组队程序 设计一个窗体，在窗体上添加一个组合框、一个列表框、两个标签和4个命令按钮。运行程序时，用户可从后备队员中选择队员。单击【参赛】，被选中的队员从后备队员列表中移动到参赛队员列表中。若从参赛队员列表中选择队员后，单击【后备】，则被选中的队员从参赛队员列表中移动到后备队员列表中。若双击列表中某个队员，则被双击的运动员同样也会从一个列表移动到另一个列表中。若有新队员加入，可在后备队员文本框中输入姓名，单击【增加】，输入队员的姓名将增加到后备队员列表中。 8.2 列表框 列表框控件在工具箱的图标是 。 列表框控件提供一个项目列表。用户可以从中选择一项或多项。如果列表中的项目太多，超过列表框设计高度，列表框会自动出现滚动条。在列表框中，可以单列显示。 列表框 8.2.1 列表框属性 8.2.2 列表框的事件和方法 8.2.1 列表框属性 1. Text属性 返回列表框被选择的列表项目，是字符串类型。在列表框中该属性为只读属性，界面设计阶段不能修改。 2. ListIndex属性 设置或返回列表框被选择的列表项的序号，是整型。在列表框中第一个列表项序号为0，第二个列表项序号为1，…，最后一个列表项目序号为List Count-1。 3. List