- 1、本文档共22页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
vb程序设计语言与程序设计第5章
Visual Basic 程 序 设 计 第5章 循环结构 本章主要内容 1、For …Next 循环 2、While……Wend 循环 3、Do……While 循环 4、循环嵌套 5、其它辅助语句 6、综合举例 循环结构 循环结构: 所谓循环,就是重复执行某些操作。 循环结构主要包括:当型循环和直到型循环。 VB 提供了三种不同风格的循环语句 : 1、 For …Next 循环 2、While……Wend 循环 3、Do……While 循环 例 5.2 判断用户输入的数是否为素数 li5_2.vbp 应用程序界面如图: 编写代码: Private Sub Command1_Click() Dim m as integer ,k as integer Dim n As Long If Val(Text1.Text) 2147483647 Then MsgBox 数据溢出,请重新输入, vbOKCancel + vbInformation, “数据错误” Text1.Text = Else n = CLng(Text1.Text) k =Int(Sqr(n) ) m = 0 ‘ m是一个标记 :1—否,0—是 For i=2 To k If n Mod k = 0 Then m = 1 Next i If m = 0 Then Label2.Caption = “是一个素数” Else Label2.Caption = “不是一个素数” End If End If Text1.SetFocus End Sub 例5.3:求∏的值。计算公式见P67 练习1:写出下面程序的运行结果 Private Sub Form_Click() Dim a As Integer, i As Integer, j As Integer a = 0 For i = 1 To 5 For j = -2 To 2 a = a + i + j Next j Print a; Next i Print Print i, j, a End Sub 练习2:编程显示如图所示的乘法九九表 编写command1_click事件的代码如下: Private Sub Command1_Click() Dim I%, j% Dim expss As String For i = 1 To 9 For j = 1 To i expss = i × j = i * j Picture1.Print Tab((j - 1) * 10 + 1); expss; Next j Picture1.Print Next i End Sub Do 循环举例 例 5.6 求 s=1+2+3+……+100 的和 例 5.7 求两自然数m,n 的最大公约数和最小公倍数 其设计思路是: 最大公约数----辗转相除法 (1)假设m大于n; (2)m除以n,得余数r。 (3)若r=0,则n即为所求的最大公约数,结束; 否则,执行步骤(4); (4)令m←n,n←r再转到(2)执行。 最小公倍数:两数的乘积除以最大公约数 见 li5_7.vbp 5.5 其他辅助语句 With语句 With语句的功能是在一个单一对象或一个用户定义类型上执行一系列的语句。 其语法结构为: With 对象 [语句块] End With
您可能关注的文档
- 2016仁爱英语八年级上册期中考试复习课件解析.ppt
- 20161024任务驱动-你驱动了ma?.ppt
- 2016人教版七年级历史上册第16课《三国鼎立》课件-(共27张PPT).ppt
- 2016年新人教版七年级上册语文第6课《散步》(一).ppt
- 2016新北师大版五上《认识底和高》4.2.ppt
- 2017人教版七年级地理上册第二章第一节大洲和大洋课件共37张PPT.ppt.ppt
- 2016必威体育精装版部编小学语文一年级上册比尾巴--公开课精品课件(最全面).ppt
- 2016新部编一年级上《语文园地三》.ppt
- 2017年10月月考--炎德--英才大联考广西月考(二)语文试题讲评参考 答案-及评分细则.ppt
- 2017新人教版五年级数学上册第五单元简易方程-用字母表示数例5课件.ppt
文档评论(0)