《程序设计语言与程序设计.pptx》由会员分享，可在线阅读，更多相关《程序设计语言与程序设计.pptx（22页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、2023年2月23日第第5 5章章 循环结构循环结构本章主要内容1、For Next 循环2、WhileWend 循环3、DoWhile 循环4、循环嵌套5、其它辅助语句6、综合举例作业 本章小结 退出退出第1页/共22页2023年2月23日循环结构循环结构循环结构：所谓循环，就是重复执行某些操作。循环结构主要包括：当型循环和直到型循环。VB 提供了三种不同风格的循环语句：1、For Next 循环 2、WhileWend 循环 3、DoWhile 循环上一页上一页下一页下一页返回本章首页返回本章首页第2页/共22页2023年2月23日For V=e1 To e2 Step e3 Exit F
2、or Next V计算e1、e2、e3v=e1V超过e2?v=v+e3循环体TrueFalse 循环次数已知的循环,它的一般形式如：循环次数计算公式循环次数计算公式:循环次数=Int(E2-E1)/E3)+1=Int(E2-E1)/E3)+1例例 5.1 5.1 求求N!N!（阶乘）（阶乘）li5_1.vbpli5_1.vbp5.1 For-Next 循环循环上一页上一页下一页下一页返回本章首页返回本章首页第3页/共22页2023年2月23日例 5.2 判断用户输入的数是否为素数 li5_2.vbp应用程序界面如图：编写代码：Private Sub Command1_Click()Dim m
3、as integer,k as integer Dim n As Long If Val(Text1.Text)2147483647 Then MsgBox 数据溢出，请重新输入,vbOKCancel+vbInformation,“数据错误”Text1.Text=Else上一页上一页下一页下一页返回本章首页返回本章首页第4页/共22页2023年2月23日 n=CLng(Text1.Text)k=Int(Sqr(n)m=0 m m是一个标记是一个标记 ：11否，否，00是是 For i=2 To k If n Mod k=0 Then m=1 Next i If m=0 Then Label2.
4、Caption=“是一个素数”Else Label2.Caption=“不是一个素数”End If End If Text1.SetFocus End Sub上一页上一页下一页下一页返回本章首页返回本章首页第5页/共22页2023年2月23日例5.3：求的值。计算公式见P67 应用程序 li5_3.vbp界面如图：编写代码编写代码：Private Sub Form_Click()Dim I%,n%,p#n=InputBox(请输入n的值（1-32767）：)p=1 For I=1 To n p=p*(4*I*I)/(2*I-1)*(2*I+1)Next I p=2*p Print n=;n;时
5、,=;pEnd Sub上一页上一页下一页下一页返回本章首页返回本章首页第6页/共22页2023年2月23日练习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,aEnd Sub上一页上一页下一页下一页返回本章首页返回本章首页第7页/共22页2023年2月23日练习2：编程显示如图所示的乘法九九表作业作业 P77 2P77 2、3 3在
6、窗体上添加一个命令按钮和一个Pictrue控件上一页上一页下一页下一页返回本章首页返回本章首页第8页/共22页2023年2月23日编写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 iEnd Sub上一页上一页下一页下一页返回本章首页返回本章首页第9页/共22页2023年2月23
7、日5.2 While 循环循环语句格式：While Exit Do Wend循环体TrueFalse循环体条件是否为真计算条件的值例例 5.5 5.5 见见P69 P69 例例 5.4 5.4 找出最大整数找出最大整数n,n,使得使得N!1000N!1000上一页上一页下一页下一页返回本章首页返回本章首页第10页/共22页2023年2月23日Do While Exit Do Loop循环体条件TrueFalse循环体循环体条件条件FalseFalseTrueTrueDo Until Do Until Exit Do Exit Do LoopLoop5.3 Do 循环循环-当型循环当型循环上一页
8、上一页下一页下一页返回本章首页返回本章首页第11页/共22页2023年2月23日Do Exit Do Loop While 循环体循环体条件条件TrueTrueFalseFalse5.3 Do 循环循环-直到型循环直到型循环DoDo Exit Do Exit Do Loop Until Loop Until 循环体循环体条件条件FalseFalse TrueTrue上一页上一页下一页下一页返回本章首页返回本章首页第12页/共22页2023年2月23日Do 循环举例例例 5.6 5.6 求求 s=1+2+3+100 s=1+2+3+100 的和的和例例 5.7 5.7 求两自然数求两自然数m,n
9、 m,n 的最大公约数和最小公倍数的最大公约数和最小公倍数 其设计思路是：其设计思路是：最大公约数最大公约数-辗转相除法 （1）假设m大于n；（2）m除以n，得余数r。（3）若r=0，则n即为所求的最大公约数，结束；否则，执行步骤（4）；（4）令mn，nr再转到（2）执行。最小公倍数：最小公倍数：两数的乘积除以最大公约数两数的乘积除以最大公约数 见见 li5_7.vbpli5_7.vbp 上一页上一页下一页下一页返回本章首页返回本章首页第13页/共22页2023年2月23日循环嵌套：循环嵌套：即大循环中包含小循环。无论是Do-Loop循环，还是For-Next循环，都可以进行循环嵌套。注意：注
10、意：内循环一定要完整地包含在外循环内，不得相互 交叉。示例：示例：For i=e1 To e2 Step e3 For j=d1 to d2 Step d3 .Next j Next i 5.4 循环嵌套上一页上一页下一页下一页返回本章首页返回本章首页第14页/共22页2023年2月23日循环嵌套举例：循环嵌套举例：例例5.85.8：打印九九乘法表（各种格式）。例例5.95.9：求11000之间的“水仙花数”。Li5_9.vbp 注：注：“水仙花数”是一个三位数，其各位数的立方和等于 该数本身。分析：分析：该题可用三重循环，也可用一重循环该题可用三重循环，也可用一重循环 百位i：i=n 100
11、 或：i=int（n/100）十位j：j=n 10 i*10 个位k：k=n Mod 10 界面如图界面如图：例例5.105.10：求sinx（见见P74P74）上一页上一页下一页下一页返回本章首页返回本章首页第15页/共22页2023年2月23日5.5 其他辅助语句 With With语句语句 With语句的功能是在一个单一对象或一个用户定义类型上执行一系列的语句。其语法结构为：其语法结构为：With End WithWith CmdFirst .Height=.Height+2000 .Caption=“Hello”.Move 0,0End With如：如：CmdFirst.Height=
12、CmdFirst.Height+2000 CmdFirst.Caption=“Hello”CmdFirst.move 0,0上一页上一页下一页下一页返回本章首页返回本章首页第16页/共22页2023年2月23日 Exit语句 有多种形式的Exit 语句，如：Exit For-用于For循环体 Exit Do-用于Do循环体 Exit Sub-用于Sub 过程体 Exit Function-用于Function 过程体 其功能是：强制退出当前循环（或过程）体 注意：它们通常和分支语句配合使用。上一页上一页下一页下一页返回本章首页返回本章首页第17页/共22页2023年2月23日5.6 5.6 综
13、合举例综合举例 数值转换：数值转换：将一个十进制数将一个十进制数mm转换成转换成 (216)(216)进值数进值数r r的思路是：的思路是：将m不断除 r 取余数，直到商为0，以反序排列即得到结果。例例1111：数值转换。Li5_11.vbpLi5_11.vbp 上一页上一页下一页下一页返回本章首页返回本章首页第18页/共22页2023年2月23日5.6 5.6 综合举例综合举例 数据的加密和解密：数据的加密和解密：基本原理：基本原理：将英文字符的ASC码加上某个值加上某个值，使其变成另外一个字符，实现加密。解密的过程则是加密的逆操作。例例1212：对输入的文本加密和解密。Li5_12.vbpLi5_12.vbp 上一页上一页下一页下一页返回本章首页返回本章首页第19页/共22页2023年2月23日上机实训 实训六 作业：P77 5、6、7、8上一页上一页下一页下一页返回本章首页返回本章首页第20页/共22页2023年2月23日本 章 小 结1 1、循环结构、循环结构2、For Next 语句3、WhileWend 语句4、DoWhile 语句5、循环嵌套 上一页上一页返回本章首页返回本章首页退出退出第21页/共22页2023年2月23日感谢您的观看！第22页/共22页