4.4 循环结构2.ppt

4.4.1 For-Next循环结构 For i=1 to 10 step 2 print i; Next i print i=; i 3）循环变量的初值、终值及步长只在进入For循环时计算一次。 例题： a=5:b=10:c=2 For k=a to b step c c=3 print k Next k 4）循环变量和循环参数（初值、终值或步长）的类型不一致，先将表达式的最后结果转换为循环变量的类型，再执行循环。 单精度实数赋给整型变量---四舍五入 Dim x as integer For x=1.6 to 7.4 step 2.8 print x Next x 读 程 序 时 注 意: 循环变量的变化 循环体语句的执行次数 终止循环时循环变量的值 结果的显示输出 编程题(忌记录代码,应跟着思考) 【例9】给定正整数m，判定其是否为素数。 素数： 除了1和该数本身之外，不能被其他任何整数整除的数。 方法： ①将m作为被除数，将2到(m-1)各个整数轮流作为除数，如果都不能被整除，则m为素数。 ②将m作为被除数，只需被2到m的开方间整数除即可。 算法可以表示如下： S1：输入m的值 S2：i=2（i作为除数） S3：m被i除，得余数r S4：若r=0,表示m能被i整除,不 需要再除下去,结束循环,转到S7;否则执行S5 S5：i=i+1 S6：若i≤sqrt(m)，返回S3； S7：若isqrt(m),则打印 n “是素数”,否则打印n “不是素数”。 【例10】 编写程序,判断某正整数是否为回文数. 回文数是指左右数字完全对称的自然数, 如 121,15651,8888等。要求使用文本框获得字符串，使用消息框显示结果。 思路：依次比较对称位置的数字是否相同，若相同，则继续比下去，若不同，则终止比较。 此题同样可以采用素数的两种判断方法实现。 4.4.2 While-Wend循环结构 当事先未知循环的次数而根据条件来决定是否继续执行循环体时，可以使用While-Wend语句。也可用于循环次数已知的情况。 一般形式为： While e [循环体语句] Wend 【例1】求1+2+3+4+…+100的值。 循环体语句（重复？） 循环条件e(加数i满足？时重复） 死循环的产生（注意循环条件中涉及的 循环变量的更改） 若不小心编了死循环程序，Ctrl+Break终止循环。 分析： 重复执行的为求和（累加每一项） 循环条件---某一项不小于0.0001 设某一项为t,则t=1/(2n-1) 4.4.3 Do-Loop循环 循环是指重复地执行某些操作。 VB中提供的循环结构语句有: *计数型循环结构语句: For-Next *条件型循环结构语句: While-Wend Do-Loop Do-Loop循环结构语句 循环次数已知;循环次数未知 两种基本循环结构: 当型循环 直到型循环 一、Do-Loop 循环结构语句有四种形式: (1) 当型结构 (当条件为真循环) 形式1:先判断再执行 Do While e … [Exit Do] … Loop 【例1】读 程 序 执行以下程序代码，在窗体上显示的结果？ 循环（Do-Loop）结构(示例) 【例2】求 两种当型循环的比较 Dim sum As Integer Dim i As Integer sum = 0 i = 101 Do While i = 100 sum = sum + i i = i + 1 Loop Print sum 【例3】读 程 序 Dim x as integer,y as integer x=0:y=1 Do y=y+x*2 x=x+1 Loop Until x4 Print x,y Do Loop语句的应用 Do…Loop 表示无条件循环,此时在循环体内应该有 Exit Do 语句,否则为死循环 不循环 Do while false 循环条件永远不满足 死循环 Do wh