可视化设计第五章课件.ppt

例:求100个学生的平均成绩，统计高于平均分的人数。 * 数组和自定义类型 aver = 0 For i = 1 To 100 mark = InputBox(输入 + i + 位学生的成绩) aver = aver + mark Next i aver = aver / 100 但若要统计高于平均分的人数? 解决此问题的根本方法，引入数组 定义数组和声明 数组使用注意： 先声明后使用，声明数组名、类型、维数、数组大小 静态(定长)数组、动态(可变长)数组 一维数组 Dim 数组名(下标) [As 类型] 下标: [下界 To ] 上界 省略下界为0,必须为常数。 数组大小: 上界－下界+1 * Dim mark(1 to 100) As Integer 多维数组 Dim 数组名(下标1[,下标2]) [As 类型] 下标的个数：决定数组的维数 数组大小：各维大小的乘积 Dim b(-2 to 3,3) as Integer 定义数组和声明 动态数组及声明 用Dim 声明数组，不指定数组的大小 Dim 数组名() as 数据类型 用ReDim 语句动态分配元素个数 ReDim 数组名(下标1[,下标2]) as 类型 Redim 的下标可以是常量，也可以是确定值的变量 可多次用Redim语句来改变数组的大小 * * 数组的基本操作 数组元素的引用 数组的赋值Array函数 Dim a a=array(1,2,3,4,5) For i=LBound(a) To UBound(a) print a(i) Next i 数组的输入 * Dim iA(1 to 10) For i = 1 To 10 iA(i)=0 Next i 数组的基本操作 数组的输出 * Dim iA(1 to 10) For i = 1 To 10 print iA(i) Next i 数组的基本操作 求数组中最大元素及所在下标 * Dim Max As Integer,iMax As Integer Dim IA(1 to 10) Max=iA(1)：iMax=1 For i = 2 To 10 If iA(i)Max Then Max=iA(i) iMax=i End If Next I 数组的基本操作 将数组中各元素交换 * For i =1 To 10\2 t=iA(i) iA(i)=iA(10-i+1) iA(10-i+1)=t Next I 数组的应用 * 例输入一串字符，统计各字母出现的次数,大小写字母不区分。 For I = 1 To le c = UCase(Mid(Text1, I, 1)) If c = A And c = Z Then j = Asc(c) - 65 + 1 a(j) = a(j) + 1 End If Next I 数组的应用 控件数组 控件数组:由一组相同类型的控件组成;共用一个控件名,具有相同的属性;共享同样的事件过程 控件数组的建立： 在设计时建立： 在窗体上画出某控件 选中该控件，复制、粘贴 * * 建立含有四个命令按钮的控件数组，当单击某个命令按钮，分别显示不同的图形或结束操作。 Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 …… 画直线 Case 1 …… 画矩形 Case 2 …… “画圆” Case Else End End Select End Sub 控件数组 数组中常见错误和注意事项 静态数组声明下标出现变量 n = InputBox(输入数组的上界) Dim a(1 To n) As Integer 数组下标越界 引用的下标比数组声明时的下标范围大或小。 数组维数错 数组声明时的维数与引用数组元素时的维数不一致。 Dim a(3, 5) As Long a(I)=10 * 列表框 列表框的特点:让用户在列出的若干项中,任意选择一项或多项,并对其作出某种处理。 属性：Name、Enabl