第七章--VisualBasic控制结构-循环结构习题ppt课件(全)

1、第七章 循环结结构习题 在Visual Basic程序的三种结构中,循环结构是一种重要结构。循环的本质：不断地重复某种动作。对计算机程序而言，循环必须具备两个重要因素：1. 在一定的条件下，重复执行一组语句2. 必然出现不满足条件的情况，使循环终止思考题编写程序实现计算：1+2+3+4+n的值前后两项之差都为1，是一个等差数列Sum=0Sum=sum+1Sum=sum+2Sum=sum+3Sum=sum+nSum=sum+ii是从1到n递增1的数列i=i+1重复执行n次Sum=0:i=1Sum=sum+ii=i+1Sum=sum+ii=i+1Sum=sum+ii=i+1Sum=sum+Ii=i

2、+1一、循环程序设计结构 VB中提供了两种类型的循环语句：一种是计数循环语句；另一种是条件循环语句。Visual Basic 支持的循环结构有： DoLoop For.Next WhileWend GoTo 语句重点掌握： DoLoop、 For.Next、 WhileWend等前三种循环1、DoLoop循环结构 DoLoop循环用于事先不知道循环次数的循环结构。此种语句四种语法格式： . Do While Loop 语句 . Do Loop While 语句 . Do Until Loop 语句 . Do Loop Until 语句 . Do While Loop语句语法格式：Do Whil

3、e 条件表达式 循环体 Exit Do 循环体 LoopTF条件循环体流程图说明： 条件表达式可以是一个逻辑表达式，也可以是一个关系表达式，其值应是逻辑型。 Do While和Loop应成对出现。 循环体中要有改变循环控制变量值的语句，以避免出现死循环。 由于该循环的特点是先判断条件，然后再决定是否要执行循环体里的语句。所以，这种循环可以一次也不执行循环体。 Exit Do 表示当遇到该语句时，强制退出循环，执行Loop后的下一条语句，一般与If 语句联用（2）. Do Loop While语句语法格式： Do 循环体 Exit Do 循环体 Loop While条件表达式流程图TF条件循环体

4、注意： 至少要执行循环体一次。 与Do While循环的区别：Do While循环先测试条件是否成立，只有成立才执行循环；而该循环先执行循环体，后测试条件是否成立。语法格式： Do Until条件表达式 循环体 Exit Do 循环体 Loop . Do Until Loop语句Do Until Loop语句流程图 . Do Loop Until语句格式:Do 循环体 Exit Do 循环体 Loop Until条件表达式TF条件循环体Do Loop Until语句流程图FT条件循环体2、ForNext循环结构循环体Exit For循环体循环变量增加步长循环变量获得初值FT变量在终值内?For

5、循环的执行过程语法格式：For 循环变量 = 初值 To 终值 Step 步长 Exit For Next 循环变量说明 格式中的参数说明： 循环变量必须为数值型。 循环的初值、终值和步长都是数值表达式，其值不一定是整数，可以是实数，VB自动取整。其中，增量参数可正可负。如果增量为正，则初值必须小于等于终值，否则不能执行循环体内的语句；如果增量为负，则初值必须大于等于终值。如果没有设置step，则增量默认为1。 在For语句和Next语句之间的语句序列称为循环体，可以是一个或多个语句。 Exit For为强行退出循环语句。当遇到该语句时，退出循环，执行Next的下一个语句。 Next是循环终端

6、语句，在Next后面的循环变量与For中的循环变量必须相同。当循环是单层循环时，Next后面的循环变量可以不写。 For循环语句的执行过程是：首先把初值赋给循环变量，接着检查循环变量的值是否超过终值，如果超过就不执行循环体，跳出循环，执行Next后面的语句；否则执行一次循环体，然后把循环变量增加步长，再赋给循环变量，重复上述过程。 当初值等于终值时，不管步长是正数还是负数，都执行一次循环体。 循环次数由初值、终值和步长决定，计算公式为： 循环次数=INT（终值 初值）/步长+1） For语句和Next语句必须成对出现，不能单独使用。 如果要在循环变量到达终值前退出循环，可用Exit For语句

7、来实现。该语句可以在For循环中出现多次，且位置不限。 在循环体中可以使用循环变量，但一般不再对循环变量赋值。功能：当While的条件表达式的值是True时执行循环体内的代码，直到While后的条件表达式的值为False。说明：它与Do Loop语句的差别是：While Wend语句中不能使用Exit语句跳出循环。语法格式：While 等价于 do While 循环体 循环体Wend LOOP3、WhileWend循环结构二、循环的嵌套多重循环结构1、如果在一个循环内完整地包含另一个循环结构，则称为多重循环，或循环嵌套，2、嵌套的层数可以根据需要而定，嵌套一层称为二重循环，嵌套二层称为三重循环

8、。 上面介绍的几种循环控制结构可以相互嵌套，下面是几种常见的二重嵌套形式：Exit Do与Exit For语句语句功能：强制退出循环Exit Do语句只能用在Do循环语句中Exit For 语句只能用在For循环语句中使用方法：在循环体中，作为IF语句的子句循环结构程序的要素：循环体是什么？循环控制变量及循环控制表达式是什么？循环应如何初始化？对于每次循环，其控制变量如何改变？循环嵌套举例一、程序分析举例题目1:n = 1For i = 1 To 3 For j = 5 To I Step -1 n = n + 2 Next j Print n ; j ; iNext iPrint n ; j

9、 ; i写出程序的输出结果:程序分析举例题目2:k = 0For j = 1 To 2 Print I For i = 1 To 3 k = i + 1 Next I Print I For i = 1 To 2 k = k + 1 Next I Print INext jPrint k ; I写出程序的输出结果:程序分析举例题目3:For m = 1 To 2 For j = 1 To m For k = j To 2 Print m=“ ; m , j=; j , k= , kNext k , j , m写出程序的输出结果:注意其写法：顺序，原则，等价形式程序分析举例题目4:For i =

10、 5 To 4 Step -1 s = 0# For j = i To 3 Step -1 s = s + i * j Next jNext iPrint s写出程序的输出结果:总结：循环嵌套程序的执行方式、分析方法书写循环嵌套程序的习惯、原则二、程序填空题新的身份证号由18位组成，最低位（右边）为校验位，其算法是：10（前17位之和关于10的模）。mstr存放身份证号，md为产生的校验位，若校验正确，在L1中显示“yes”，否则在L1中显示“no” 。 Mstr$=text1.textmsum = 0 (1) mp = Mid(mstr, i, 1) msum = msum + Val(mp

11、) Next i md = 10 - (2) If md = (3) Then L1.Caption=“Yes” Else L1.Caption=“No” End If以下程序将十六进制整数字符串转换成十进制整数假设文本框中输入的十六进制字母符号全部为大写 s$=text1.text : d=0For i = (1) c = Mid(s$, i, 1) If c = A Then d = (2) - Asc(A) + 10 Else d = d * 16 + Val(c) End If Next (3) Text2.text=d三、程序设计举例题目1: 输出一行（20个）星号。 输出一列（20

12、个）星号。 输出三行星号，每行20个。 输出5行三角形形式星号。例题：打印九九乘法表. For i = 1 To 9 For j = 1 To 9 se = i & & j & = & i * j Picture1.Print Tab(j - 1) * 9 + 1); se; Next j Picture1.Print Next i程序设计举例题目2: (1)判断一个输入的数是否为素数。 (2)找出100到200之间的所有素数。题目3: 求S=1!+2!+3!+7！循环控制变量赋初值及其他相关初始化语句循环控制条件循环体语句改变循环控制变量的语句数值x8?X=1:Sum=0S=X!，累加到Su

13、mX=x+1循环控制变量赋初值及其他相关初始化语句循环控制条件循环体语句改变循环控制变量的语句k=x?K=1X=val(text1.text)S=S*KK=k+1循环控制变量赋初值及其他相关初始化语句循环控制条件改变循环控制变量的语句数值X8?X=1:Sum=0Sum=Sum+S：X=X+1初始化语句循环控制条件循环体语句改变循环控制变量的语句k=X?S=1:K=1S=S*KK=k+1Sum=0For x=1 to 8 s=1 for k=1 to x s=s*k next k sum=sum+sNext x练习：教材习题P119，二，2程序设计举例题目4:穷举法 for a=1 to 9 for b=0 to 9 for c=0 to 9 next c , b , a(1)请用上面的循环方式找出所有水仙花数(2)教材P114，例6-13(3)教材习题：P119，二，1以下代码用于计算的近似值，当级数第i项的绝对值小于10-5时计算结束，同时调用内部函数进行验证。这里，x为弧度。x=3.14159/6i=1:t=x:sinx=tDo While (1) i=i+2t= (2) sinx=sinx+tLoopPrint sinx, (3) 下面的程序用于对9位的准考证号进行校验。参数mno存放准考证号，mjy存放产生的校验位，tag判断校验正确否，若校