do循环及数组

1、2.3.3 循环结构循环结构 2、do循环语句循环语句 一、当型循环一、当型循环 1. 语句格式语句格式 Do While Loop 3、流程图、流程图 2、执行过程、执行过程 （1）执行）执行Do While 语句：先判断条件，如果条件语句：先判断条件，如果条件 满足，则执行循环体；否则，跳出循环，执行满足，则执行循环体；否则，跳出循环，执行 Loop 下一语句。下一语句。 （2）执行）执行 Loop语句：直接回到语句：直接回到 Do While 语句。语句。 4、功能：、功能： 先判断条件表达式，如果条件满足，就执行循环体，先判断条件表达式，如果条件满足，就执行循环体， 否则执行否则执行

2、Loop 下一语句。下一语句。 二、直到型循环二、直到型循环 1. 语句格式语句格式 Do Loop While 3、流程图 2、执行过程、执行过程 （1）执行）执行 Do 语句：直接进入循环，执行循环体。语句：直接进入循环，执行循环体。 （2）执行）执行Loop While 语句：判断条件，如果条件语句：判断条件，如果条件 满足，回到上面执行循环体，否则跳出循环，执行满足，回到上面执行循环体，否则跳出循环，执行 Loop While 下一语句。下一语句。 4、功能：、功能： 先执行循环体，再判断条件表达式，先执行循环体，再判断条件表达式， 如条件满足，如条件满足， 回到上面执行循环体，否则跳

3、出循环，执行回到上面执行循环体，否则跳出循环，执行 Loop While 下一语句。下一语句。 例例1:假设你从今年开始，假设你从今年开始，1月份为月份为“希望工程存入希望工程存入 1元钱，元钱，2月份存入月份存入2元钱，元钱，3月份存入月份存入3元钱元钱” 依次类推，多少月依次类推，多少月“希望工程储蓄希望工程储蓄”才能多于才能多于 500元元。 程序代码程序代码: Private sub cmmand_click() Dim n As Integer, intsum As Integer n = 0 intsum = 0 Do While intsum = 500 n = n + 1 in

4、tsum = intsum + n Loop lblsum.Caption = n 列下标取值范围列下标取值范围 04;a数组共有数组共有45=20个元素。个元素。 各元素排列情况如下：各元素排列情况如下： A(0,0) a(0,1),a(0,2),a(0,3),a(0,4) A(1,0),a(1,1),a(1,2),a(1,3),a(1,4) A(2,0),a(2,1),a(2,2),a(2,3),a(2,4) A(3,0),a(3,1),a(3,2),a(3,3),a(3,4) 习题一：小华想定义两个数组用来存放本班习题一：小华想定义两个数组用来存放本班54 个同学的姓名和某一次信息技术测

5、试的成绩，个同学的姓名和某一次信息技术测试的成绩， 下列各选项中最恰当的语句是（下列各选项中最恰当的语句是（A） A、dim a(53) as string ,B(53) as single B、dim a(53) as integer,b(53) as integer C、dim a(53) as integer, b(53) as string D、dim a(53) as integer,b(53) as single 习题二：习题二： 定义数组定义数组A的语句为：的语句为：dim a(19) as integer。下列各选项中，能下列各选项中，能 正确地给所有数组元素赋值为正确地给所有

6、数组元素赋值为0的是（的是（B） A、for i=1 to 19 a(i)=0 next I B、for i=0 to 19 a(i)=0 next I C、for i=1 to 20 a(i)=0 next I D、for i=0 to 20 a(i)=0 next I 例例3：分析：分析 程序执行结果程序执行结果 Dim a(6),i as integer For I=1 to 5 A(I)=I*I Print a(I) Next I A(I)=I*I Print a(I) 结果：结果： 1 4 9 16 25 36 例例4：分析程序执行的结果：分析程序执行的结果 Dim array1(1

7、0, 10) As Integer Dim text As Integer Dim I, j As Integer For I = 1 To 3 For j = 1 To 4 array1(I, j) = I + j Next j Print Next I text = array1(2, 3) + array1(3, 4) Print text 结果：12 例例5：分析程序的执行结果：分析程序的执行结果： Dim a(5),b(5) as integer Dim I as integer For I=1 to 5 A(I)=2*I B(I)=a(I)*2 Next I Print b(5) 结果：结果：20 例例6：用随机函数生成：用随机函数生成10个个2位正整数，并找出其中的最大数和最小位正整数，并找出其中的最大数和最小 数。数。 Dim x(10) As Single: Dim max As Single: Dim min As Single: Dim I As Single Randomize For I = 1 To 10 x(I) = Int(Rnd * 90) + 10 Next I Print max = x(1): min = x(1) For I =