Ch03_4_数组程序.pptVIP

3.4 数组及其应用 主要介绍: 简单变量: 一个变量处理一个数据，不同变量间是相互独立的。（名字不同 / 存储位置不同） 简单变量很难处理大量数据的问题，如排序、统计、矩阵运算等。 数组 – 解决批量数据的处理。 数组由多个同类型的元素组成。用同一个名、不同下标，标识数组中不同元素。 数组必须先声明、后引用。 数组必须先声明、后引用 数组声明示例： Dim y(5) As Single，a As Integer 数组y的元素有: y(0)、y(1)、y(2)、y(3)、y(4)、y(5) 数组必须先声明、后引用 数组声明示例： Dim m(6) As Integer, x(1 to 5) As Single 数组m的元素有: m(0)、m(1)、m(2)、m(3)、m(4)、m(5)、m(6) 数组x的元素有: x(1)、x(2)、x(3)、x(4)、x(5) Option Base 语句 Option Base 1 - 数组元素下标下限设为1。 Option Base 0 - 缺省值。 Option Base 写在通用对象声明部分。 一维数组的存储 如 Dim f(1 to 30) As Long 计算机给 f 数组分配 30 个连续的存储单元, 共 120 字节。 一维数组的存储 如 Dim s(1 to 100) As String*10 计算机给 s 数组分配 1000 个字节的连续的存储单元。 一维数组的使用 数组元素：数组名 + 下标（编号）。 数组元素 = 简单变量 通过数组元素的引用数组。X(i) 数组的输入。 数组的输出。 数组的处理。 例1: 打印数列1、1、2、3、5、8……中前30项的值。 请用简单变量和数组两种方法编写。 这个数列的前两个数是1、1， 第三个数是前两个数的和，以后的每个数都是其前两个数的和。 例2： 编程，输入x1、x2、...、x30，按下列公式计算、输出各点的滑动平均值。 xi i=1 或 i=30 yi= (xi-1+xi+xi+1)/3 1i30 例3： 编程，输入n(n≤10)个整数，求它们的最小公倍数。 例4： 随机产生 n 个整数, 求其中最大的数。 例5： 编程, 将 n 个数从小到大排列输出。 (介绍选择法排序) 例6： 编程,计算下列多项式的值。 例7： 有11个人围成1圈，发贺卡，依次给1、3、6、8、11、2、5、7、10、1、4、6、...号发，问至少发到多少张时每人都有贺卡。 Dim s(1 To 3, 1 To 4) As Integer 例8： 例9： *例10： 编程，计算下列矩阵的乘积并输出。 作业： 1、输入N个数，求其中的最大值。 2、用随机函数产生n个两位整数，用选择法排序后从大到小输出。 3、编程，输入n个数，求它们的最小公倍数。 4、P83，程序设计题-6。 例6: 算法 这是一个累加的问题： S = 0 S = Sqr(S + a(1)) I = 1 S = Sqr(S + a(2)) I = 2 S = Sqr(S + a(3)) I = 3 …… 归纳为：S = Sqr(S + a(I)) 例3: 流程图 输入N及N 个数到 X(1), X(2), …… X(N) GBS = X(1) Do While True For I = 2 to N GBS Mod X(I)0 Then Else Exit For I N Then Else Exit Do 输出GBS GBS = GBS + X(1) Dim a(10) As Integer, gbs As Long Dim n As Byte, I as Byte n = InputBox(n=) For i =1 To n a(i)=InputBox(a(+Str(i)+)=) Next i gbs = a(1) Do While True For i=2 To N If gbs Mod a(i)0 Then Exit For Next I If iN Then Exit Do Else gbs=gbs+a(1) End If Loop Print gbs 例3 Dim a(10) As Integer, gbs As Long Dim n As Integer, i as Integer, found