- 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)