原创力文档- 1、本文档共27页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
循环结构;;一、循环程序设计结构;
编程计算：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
文档评论（0）