循环结构(又称为重复结构)2014技术介绍.ppt

一维数组 一维数组的定义 数组应当先定义后使用，数组的定义又称为数组的声明或说明。 对于固定大小的一维数组，用如下格式进行定义： 说明符 数组名（下标）[As 类型] 例如：Dim y（5）As Integer 定义了一个一维数组，该数组的名字为y，类型为Integer，占据6个（0～5）整型变量的空间。 说明： （1）定义数组后，数值数组中的全部元素都初始化为0，字符串数组中的全部元素都初始化为空字符串。 （2）“数组名”的命名遵守标识符规则。 （3）“下标”的一般形式为“[下界 to] 上界”。 下标的上界、下界为整数，不得超过Long数据类型的范围-2147483648 ～ +2147483647 ，并且下界应该小于上界。如果不指定下界，下界默认为0。 如：a(1 to 48) （4）要注意区分“可以使用的最大下标值”和“元素个数”。 （5）“As类型”用来说明“数组元素”的类型，可以是Integer，Long，Single，Double，String（定长或变长）等基本类型。 （6）在同一个过程中，数组名不能与变量名同名，否则会出错。 （7）可以通过类型说明符来指定数组的类型。 例如：Dim A%（5）代表integer， B！（3 To 5）代表single ，C#（12）代表double 一维数组的引用 数组的引用通常是对数组元素的引用。一维数组元素的表示形式为： 数组名（下标） 一般通过循环语句及InputBox函数、文本框给数组输入数据。数组的输出一般用Print方法、标签或文本框实现。 把输入的5个整数按顺序，和逆序输出 Dim a(5) As Integer For i = 1 To 5 ‘顺序输入 Input a(i) Next i For i = 1 To 5 ‘顺序输出 Print a(i) Next i For i = 5 To 1 step -1 ‘逆序输出 Print a(i) Next i Dim a(5) As Integer For i = 1 To 5 ‘顺序输入和输出 Input a(i) Print a(i) Next i 12个数据的平均值 s = 0 For i = 1 To 12 input a s = s + a Next i Print s / 12 一维数组的应用举例 从键盘上输入10人的考试成绩，输出高于平均成绩的分数。 分析：该问题可分三部分处理：一是输入10个人的成绩；二是求平均分；三是把这10个分数逐一和平均成绩进行比较，若高于平均成绩，则输出。 程序如下： Dim score（10）As Single aver = 0 For i = 1 To 10 Input score（i） aver = aver + score（i） Next i aver = aver / 10 For i = 1 To 10 If score（i） aver Then Print score（i） Next i 已知数组中放了5个数，输出其中的最大值，并输出最大值的位置。 Dim d(5) as integer i=1 K=d(i) N=i Do while i=5 If d(i)k then K=d(i) N=i Endif i=i+1 Loop Print k,n Dim d(5) as integer i=1 K=d(i) N=i Do while i=4 i=i+1 If d(i)k then K=d(i) N=i Endif Loop Print k,n S =1/2+1/22+1/23+1/24+1/25… 求出多少项后余下的部分的和小于0.00001 s = 0i = 0Do i = i + 1 s = s + 1 / 2 ^ iLoop Until s = 1 - 0.00001Print i s = 0t = 1i = 0Do While s 1 - 0.00001 _______ i = i + 1 s = s + 1 / t Loop Print i s = 0t = 1i = 0Do While s 1 - 0.00001 t = t * 2 i = i + 1 s = s + 1 / t Loop Print i 用辗转相减法求两自然数m，n的最大公约数 m n