Visual Basic程序设计 (9).pptVIP

c = a - b Label3.Caption = 结果：a-b= + Str(c) Case 2 乘 c = a * b Label3.Caption = 结果：a*b= + Str(c) Case 3 除 If b = 0 Then MsgBox 除数不能为0!, 48, 提示 Exit Sub End If c = a / b Label3.Caption = 结果：a/b= + Str(c) End Select End Sub str1 = 请输入第 + Str(i) + 门课的成绩： score(i) = Val(InputBox(str1, 输入成绩)) sum = sum + score(i) Next i aver = sum / 5 Label1.Caption = Label1.Caption + Str(sum) Label2.Caption = Label2.Caption + Str(aver) End Sub * 第五章 数 组 本章要求： 1.掌握数组的概念 2.掌握数组（一、二维）的定义及其引用， 3.掌握控件数组的建立及使用。 本章重点： 数组定义及引用方法，与数组有关的一些常用算法 本章难点： 与数组有关的一些常用算法 输入10个数，输出它们的平均值及大于平均值的那些数？ 输入 A 当 N=10 N=N+1 打印 Ave S=0： N=1 S=S+A Ave=S/10 Dim N%, S!, A!, Ave! For N=1 to 10 A=Val(InputBox(“Enter A Number”)) S=S+A Next N Ave=S/10 Print Ave 引例 如果使用：A1，A2，A3，A4，A5，A6，A7，A8，A9，A10 Dim N%, S!, Ave!, A1!, A2！….,A10! ‘ 实际程序是不能这样写 A1=Val(InputBox(“Enter A1 Number”)) A2=Val(InputBox(“Enter A2 Number”)) A3=Val(InputBox(“Enter A3 Number”)) A4=Val(InputBox(“Enter A4 Number”)) A5=Val(InputBox(“Enter A5 Number”)) A6=Val(InputBox(“Enter A6 Number”)) A7=Val(InputBox(“Enter A7 Number”)) A8=Val(InputBox(“Enter A8 Number”)) A9=Val(InputBox(“Enter A9 Number”)) A10=Val(InputBox(“Enter A10 Number”)) S=A1+A2+A3+A4+A5+A6+A7+A8+A9+A10 Ave=S/10 IF A1Ave Then Print A1 IF A2Ave Then Print A2 IF A3Ave Then Print A3 IF A4Ave Then Print A4 ……….. ‘ 实际程序是不能这样写 思考： 如果能使用Ai ( i=1,2,…..10 ) 的形式？ 使用循环来写程序 VB中表示下标变量就是通过定义数组来实现的。 5.1 一维数组 数组的概念：数组并不是一种数据类型，而是一组相同类型数据的集合。用一个统一的名字（数组名）代表逻辑上相关的一批数据，每个元素用下标变量来区分；下标变量代表元素在数组中的位置。 VB中数组的表示形式： A(1), A(10) ‘ 一维数组 X(1,1), X(2,10) ‘ 二维数组 Y(0,0,0), Y(1,2,5) ‘ 三维数组 5.1 一维数组 Visual Basic中的数组分类： 按数组的大小（元素个数）是否可以改变来分为： 定长数组、动态（可变长）数组。 按元素的数据类型可分为： 数值型数组、字符串数组、逻辑数组、 日期型数组、变体数组等、对象数组。 按数组的维数