网站大量收购独家精品文档,联系QQ:2885784924

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

  1. 1、本文档共27页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 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)

yuzongxu123 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档