山东外贸学院VB第5章循环结构.ppt

1、Visual Basic 程 序 设 计,山东外贸职业学院,E-mail：,信息管理系 柳淑花,2020年8月24日,第5章 循环结构,本章主要内容 1、For Next 循环 2、WhileWend 循环 3、DoWhile 循环 4、循环嵌套 5、其它辅助语句 6、综合举例,作业 本章小结,退出,2020年8月24日,循环结构,循环结构： 所谓循环，就是重复执行某些操作。 循环结构主要包括：当型循环和直到型循环。 VB 提供了三种不同风格的循环语句 ： 1、 For Next 循环 2、WhileWend 循环 3、DoWhile 循环,上一页,下一页,返回本章首页,2020年8月24日,

2、For V=e1 To e2 Step e3 Exit For Next V,循环次数已知的循环, 它的一般形式如：,循环次数计算公式: 循环次数=Int(E2-E1)/E3)+1,例 5.1 求N!（阶乘）li5_1.vbp,5.1 For-Next 循环,上一页,下一页,返回本章首页,2020年8月24日,例 5.2 判断用户输入的数是否为素数 li5_2.vbp,应用程序界面如图： 编写代码： Private Sub Command1_Click() Dim m as integer ,k as integer Dim n As Long If Val(Text1.Text) 21474

3、83647 Then MsgBox 数据溢出，请重新输入, vbOKCancel + vbInformation, “数据错误” Text1.Text = Else,上一页,下一页,返回本章首页,2020年8月24日,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 Text

4、1.SetFocus End Sub,上一页,下一页,返回本章首页,2020年8月24日,例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; 时, =; p End Sub,上一页,下一页,返回本章首页,2020年8月24日

5、,练习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,上一页,下一页,返回本章首页,2020年8月24日,练习2：编程显示如图所示的乘法九九表,作业 P77 2、3,在窗体上添加一个命令按钮和一个Pictrue控件,上一页,下一页,返回本章首页,2020年8月24日,编写co

6、mmand1_click事件的代码如下： Private Sub Command1_Click() Dim I%, j% Dim expss As String For i = 1 To 9 For j = 1 To i expss = i Next j Picture1.Print Next i End Sub,上一页,下一页,返回本章首页,2020年8月24日,5.2 While 循环,例 5.5 见P69,例 5.4 找出最大整数n, 使得N! 1000,上一页,下一页,返回本章首页,2020年8月24日,上一页,下一页,返回本章首页,2020年8月24日,上一页,下一页,返回本章首页,

7、2020年8月24日,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）令mn，nr再转到（2）执行。 最小公倍数：两数的乘积除以最大公约数 见 li5_7.vbp,上一页,下一页,返回本章首页,2020年8月24日,循环嵌套：即大循环中包含小循环。无论是Do-Loop循环， 还是For-Next循环，都可以进行循环嵌套。 注意：内循环一定要完整地包含在外循环

8、内，不得相互 交叉。 示例： For i=e1 To e2 Step e3 For j=d1 to d2 Step d3 . Next j Next i,5.4 循环嵌套,上一页,下一页,返回本章首页,2020年8月24日,循环嵌套举例： 例5.8：打印九九乘法表（各种格式）。 例5.9：求11000之间的“水仙花数”。Li5_9.vbp 注：“水仙花数”是一个三位数，其各位数的立方和等于 该数本身。 分析：该题可用三重循环，也可用一重循环 百位i ：i= n 100 或： i= int（n/100） 十位j ：j=n 10 i*10 个位k ：k=n Mod 10 界面如图： 例5.10：求

9、sinx（见P74）,上一页,下一页,返回本章首页,2020年8月24日,5.5 其他辅助语句,With语句 With语句的功能是在一个单一对象或一个用户定义类型上执行一系列的语句。 其语法结构为： With End With,With CmdFirst .Height=.Height + 2000 .Caption= “Hello” .Move 0,0 End With,如：CmdFirst.Height= CmdFirst.Height + 2000 CmdFirst.Caption= “Hello” CmdFirst.move 0,0,上一页,下一页,返回本章首页,2020年8月24日,

10、Exit语句,有多种形式的Exit 语句，如： Exit For-用于For循环体 Exit Do -用于Do循环体 Exit Sub -用于Sub 过程体 Exit Function -用于Function 过程体 其功能是：强制退出当前循环（或过程）体 注意：它们通常和分支语句配合使用。,上一页,下一页,返回本章首页,2020年8月24日,5.6 综合举例,数值转换： 将一个十进制数m转换成 (216)进值数r的思路是： 将m不断除 r 取余数，直到商为0，以反序排列即得到结果。 例11：数值转换。 Li5_11.vbp,上一页,下一页,返回本章首页,2020年8月24日,5.6 综合举例,数据的加密和解密： 基本原理：将英文字符的ASC码加上某个值，使其变成另外一个字符，实现加密。解密的过程则是加密的逆操作。 例12：对输入的文本加密和解密。Li5