计算机vb-5精要.pptVIP

第五章 数组 5.1 数组 5.2 数组的基本操作 5.3 列表框和组合框 5.5 综合应用 数组不是一种数据类型，而是一组相同类型的变量的集合，数组必须先声明后使用。 两类数组： 静态(定长)数组、动态(可变长)数组 (1) 静态数组及声明 形式: Dim 数组名(下标1[,下标2…]) [As 类型] 声明了数组的名、维数、大小、类型 维数：几个下标为几维数组，最多60维。 下标: [下界 To ] 上界 省略下界为0 ，必须为常数。 每一维大小: 上界－下界 + 1 数组大小: 每一维大小的乘积 例：Dim mark(1 to 100) As Integer 5.3 列表框和组合框 列表框各主要属性的值： List1.ListIndex = 3 (下标从0开始的) List1. ListCount = 5 List1. Selected(3) = True，其余为False。 List1. Sorted = False，没有排序。 List1. Text 为 “cox” ， List1. Text等于List1. List(List1. ListIndex) 4. 方法 AddItem 对象.AddItem 项目字符串 [, 索引值] RemoveItem 对象.RemoveItem 索引值 Clear 对象.Clear 5. 事件 列表框：Click、DblClick 组合框：Click，只有简单组合框才有DblClick事件 一般不需要编写Click事件过程 通常在单击命令按钮或发生DblClick事件时才读取Text属性 例5.9: 对列表框进行项目添加、删除和清除的操作。 例5.10 编写一个使用屏幕字体、字号的程序。 例5.11 利用列表框完成对有序数插入数据、删除数据操作。 例5.12 设计一个利用简单组合框对各省和直辖市名称 进行维护的应用程序。 要求：添加不重复的省和直辖市名到组合框，对不正确的名称可作修改，按拼音字符顺序有序显示。 * 1.引例 例5.1 若我们要求一个班100个学生的平均成绩，然后统计高于平均分的人数。 按以前简单变量的使用和循环结构相结合，求平均成绩程序段如下： aver = 0 For i = 1 To 100 mark = InputBox(“输入第 str( i ) 位学生的成绩) aver = aver + mark Next i aver = aver / 100 但若要统计高于平均分的人数，则无法实现。mark是一个简单变量，存放的是最后一个学生的成绩。 已有知识解决方法：再重复输入成绩，带来两个问题： （1）输入数据的工作量成倍增加； （2）若本次输入的成绩与上次不同，则统计的结果不正确。 解决此问题的根本方法，引入数组，始终保持输入的数据，一次输入，多次使用。 5.1 数组的概念 用数组解决100人的平均分和高于平均分的人数，程序如下: Private Sub Command2_Click() Dim mark(1 To 100) As Integer Dim aver!, n%, i% aver = 0 For i = 1 To 100 mark(i) = InputBox(输入第 Str(i) 位学生的成绩) aver = aver + mark(i) Next i aver = aver / 100 n = 0 For i = 1 To 100 If mark(i) aver Then n = n + 1 Next i Print 平均分:, aver, 高于平均分的人数:, n End Sub 2. 定长数组及声明 Dim lArray( 0 To 3， 0 To 4) As Long 共有 4×5个元素 等价于: Dim lArray(3， 4) As Long 注意: (1) 下界缺省为0，也可重新定义数组的下界。例如： Option Base 1 (2) 错误的声明，下标是变量 n =Inputbox(“输入n”）：Dim x(n) As Single