第 9 10 11讲 循环结构一.pptVIP

常见错误 1 不循环或死循环的问题 主要是循环条件、循环初值、循环终值、循环步长的设置有问题。 2 循环结构中缺少配对的结束语句 For缺少配对的Next 3 循环嵌套时,内外循环交叉 4 累加、连乘时，存放累加、连乘结果的变量赋初值问题(1)一重循环:存放累加、连乘结果的变量初值设置应在循环语句前。（2）多重循环:变量初值设置要视具体问题分别对待。 试用do-while编写程序，已知本金为a，年利率为x%，试求存入银行多少年后本利之和是原来本金的2倍。 已知一个正整数,将它转换为二进制 Visual Basic程序设计 第 8 讲 内容安排与学习要求 环境熟悉(1) 基本控件(3) 编程基础(2) 三大基本结构(5,6) 综合应用(4,8,10) 过程(9) 数组(7) 三大基本结构 顺序结构:赋值语句 = 选择结构: if select case 循环结构: for while 循环结构 功能： 重复执行一组语句。 两种语句格式： For-Next语句 (一般用于循环次数已知) Do-Loop语句(用于控制循环次数未知)当型循环、直到型循环 1、形式 For 循环变量＝初值 to 终值 [Step 步长] 语句块 [Exit For] 语句块 Next 循环变量 循环次数= 一. For循环语句 0 初值终值 0 初值终值 =0 死循环 步长 猴子吃桃子。 小猴在某天摘桃若干个，当天吃掉一半多一个；第二天吃了剩下的桃子的一半多一个；以后每天都吃尚存桃子的一半多一个，到第7天要吃时只剩下一个，问小猴共摘下了多少个桃子？ 分析：这是一个“递推”问题，先从最后一天推出倒数第二天的桃子，再从倒数第二天的桃子推出倒数第三天的桃子……。设第n天的桃子为xn，那么它是前一天的桃子数的xn-1 的一半减1，即xn-1 =（ xn+1）×2 例：求1+2+3+…+100的值 S0=0 S1=S0+1 S2=S1+2 S3=S2+3 S4=S3+4 …… S100=S99+100 Si=Si-1+i i=1..100 S = 0 i = 1 S = S + i i = N i = i + 1 S即为所求 T F 例：求1+2+3+…+100的值 Dim Sum%, i% Sum=0 For i = 1 to 100 Sum=Sum + i 累加 Next i Textbox1.text = i= i Sum= Sum 循环次数=(100-1)\1+1 F S = 0 i = 1 S = S + i i = N i = i + 1 S即为所求 T 例：求一个数是否为素数 Dim i%, N% N= InputBox(请输入N) For i = 2 To N-1 If N Mod i = 0 Then Exit For Next i If i N Then Textbox1.text= N 不是一个素数 Else Textbox1.text= N 是一个素数 End If 判别某数n是否为素数最简单的方法是: 对于n 从i=2，3，…，n-1判别n能否被i整除，只要有一个能整除，n不是素数，否则n是素数。 例：求N! 流程图 积S赋初值 当前项i=第1项 累乘当前项 i = N 求下一项i S即为所求 T F F S = 1 i = 1 S = S * i i = N i = i + 1 S即为所求 T 例：求N! Dim S as long, N%,i% S=1 N=InputBox(请输入N) For i=1 to N S = S * i 连乘 Next i Textbox1.text= N 的阶乘为 S 二、 Do…Loop循环语句 当型形式1： Do While 条件 语句块 [Exit Do] 语句块 Loop 循环体 条件 T F Dim i%, S%, N% N = InputBox(请输入N) S = 0 i = 1 Do While i = N S = S + i i = i + 1 Loop 用Do While…Loop循环语句求1至N和 S = 0 i = 1 S = S + i i = N i = i + 1 S即为所求 T F D