VB教程---循环结构培训课件.ppt

循环结构;;一、循环程序设计结构; 编程计算：S=1+2+3+…+100 ;说明;④ 如果要在循环变量到达终值前退出循环，可用Exit For语句来实现。该语句可以在For循环中出现多次，且位置不限。;2、Do…Loop循环结构; ⑴. Do While … Loop语句;说明： ① 条件表达式可以是一个逻辑表达式，也可以是一个关系表达式，其值应是逻辑型。 ② Do While/Until和Loop应成对出现。 ③ 循环体中要有控制循环的语句，以避免出现死循环。 ④ 由于该循环的特点是先判断条件，然后再决定是否要执行循环体里的语句。所以，这种循环??以一次也不执行循环体。 ⑤ Exit Do 表示当遇到该语句时，强制退出循环，执行Loop后的下一条语句; ;例：输入有效位数，按下述公式计算圆周率∏的有效值。;功能：当While的条件表达式的值是True时执行循环体内的 代码，直到While后的条件表达式的值为False。 说明：它与Do …Loop语句的差别是： While …Wend语句中不能使用Exit语句跳出循环。;几种循环语句比较 ;练习： 1、求100~200之间不能被3整除的数。 2、判断一个数是否为质数。 ;4、验证哥德巴赫猜想:任意一个大于等于6的偶数都可以分解为两个质数之和。 基本思想：n为大于等于6的任一偶数，可分解为n1和n2两个数， 分别检查n1和n2是否为素数，如都是，则为一组解。 如n1不是素数，就不必再检查n2是否素数。先从n1=3开始， 检验n1和n2（n2=N-n1）是否素数。然后使n1+2 再检验n1、n2是否素数，… 直到n1=n/2为止。;二、循环的嵌套——多重循环结构;（1）For I=…. ….. For J=…. …. Next J ….. Next I;例题：在窗体上输出100以内质数。 Private Sub Command1_Click() Dim value As Integer Dim counter As Integer Dim num As Integer Me.Cls For value = 2 To 100 For counter = 2 To value - 1 If value Mod counter = 0 Then Exit For End If Next If counter = value Then Print value; Tab; num = num + 1 If num Mod 3 = 0 Then Print End If Next Print Print 100以内的质数有 num 个 End Sub;例题：在文本框内输出水仙花数。 Private Sub command1_Click() Dim x%, y%, z%, n% For x = 0 To 9 For y = 0 To 9 For z = 1 To 9 If x ^ 3 + y ^ 3 + z ^ 3 = x + y * 10 + z * 100 Then text1.text=x ^ 3 + y ^ 3 + z ^ 3 End If Next Next Next End sub; 我国古代数学家章丘建在“算经”里提出一个 世界数学史上有名的百钱百鸡问题：鸡翁 一，值钱五，鸡母一，值钱三，鸡雏一，值 钱一。百钱买百鸡，问鸡翁、母、雏各几 何？;例题：打印九九乘法表 For i = 1 To 9 For j = 1 To 9 e = i × j = i * j Print Tab((j - 1) * 9 + 1); e; Next j Print Next i;例题：打印九九乘法表 For i = 1 To 9 For j = 1 To i e = j × i = i * j Print Tab((j - 1) * 9 + 1); e; Next j