7数组!!.pptVIP

回顾前面内容 基本数据类型:标准数据是系统定义的数据类型，包括数值型、字符型、日期型、逻辑型、对象型、变体型。 定义一个变量：dim a as integer dim b as string Dim c as single 题目：要求10个同学的总分、平均分，高于平均分的人数？ 本章内容 基本概念及操作 静态数组 动态数组 基本概念及操作 数组 一组具有相同名字不同下标的变量构成了数组 score(1),score(2),score(3)……score(50) 例： 求50个学生的平均成绩，并统计高于平均成绩的人数。 基本概念及操作 For i = 1 To 50 score = val(InputBox(“请输入学生的成绩”)) sum = sum + score Next i ave = sum / (i - 1) Print ave End Sub 基本概念及操作 For i = 1 To 50 score(i) = InputBox(请输入学生的成绩) sum = sum + score(i) Next i ave = sum / (i - 1) Print ave For i = 1 To 50 If score(i) ave Then n = n + 1 Next i Print n 基本概念及操作 数组 静态数组 一维数组 二维数组 动态数组 一维数组 1、声明 声明一维数组的形式如下： Dim 数组名（[下界 To]上界）[As 类型] 例：Dim score(50) As Single Dim a(-5 To 3) As Integer dim a(-5 to -10) as integer ‘区间无值 请问系统一共定义了多少个元素？元素名分别是什么？ 数组的基本操作——数组的输入 利用循环结构分别给数组元素赋值 在一维数组中利用Array函数为数组元素赋值 ***此函数只能给变体型数组赋值。 数组名到数组名的直接赋值。 数组的基本操作——数组的输入 利用循环结构分别给数组元素赋值 For i = 1 To 50 score(i) = InputBox(请输入学生的成绩) Next i 数组的基本操作——数组的输入 在一维数组中利用Array函数为数组元素赋值 其格式为 ： 数组名=Array（数组元素值） 例：Dim s() s=Array(1,2,3,4,5) 数组的基本操作——数组的输入 数组名到数组名的直接赋值 例如： Dim a(), b() a = Array(1, 2, 3, 4, 5) b = a 将数组a的值1，2，3，4，5赋值给数组b相应的元素。 数组的基本操作——数组的输出 For Each．．．Next语句 其一般格式为： For Each 成员 In 数组 循环体 [Exit For] …… Next [成员] 数组的基本操作——数组的输出 用循环结构 例： Dim s() S=array(1,2,3,4,5) For i=0 to 4 print s(i); Next i 数组的使用 Dim s(5) As Single Private Sub cmdinput_Click() Dim i As Integer, j As Integer For i = 1 To 5 s(i) = Val(InputBox(请输入学生的成绩)) Next i For i = 1 To 5 pic1.Print s(i); Next i End Sub Private Sub cmdsort_Click() Dim i As Integer, j As Integer Dim temp As Single For i = 1 To 5 For j = i + 1 To 5 If s(i) s(j) Then temp = s(i): s(i) = s(j): s(j) = temp Next j Next i For i = 1 To 5 pic2.Print s(i); Next i End Sub 二、二维数组 1、二维数组的声明形式如下： Dim 数组名(下标1，下标2) [As 类型] 如：Dim a(5,6) As Integer 等价于 dim a (0 to 5 ,0 to 6) as integer