计算机VB学习第5章

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

2、超过e2?v=v+e3循环体TrueFalse 循环次数已知的循环, 它的一般形式如： 循环次数计算公式: 循环次数=Int(E2-E1)/E3)+1例 5.1 求N!（阶乘）li5_1.vbp5.1 For-Next 循环上一页下一页返回本章首页例 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 数据溢出，请重新输入, vbOKC

3、ancel + 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 应

4、用程序 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; 时, =; pEnd Sub上一页下一页返回本章首页练习1：写出下面程序的运行结果Private Sub Form_Click() Dim a As Integer, i As Integer, j As Inte

5、ger 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上一页下一页返回本章首页练习2：编程显示如图所示的乘法九九表作业 P77 2、3在窗体上添加一个命令按钮和一个Pictrue控件上一页下一页返回本章首页编写command1_click事件的代码如下：Private Sub Command1_Click() Dim I%, j% Dim expss As String For i = 1 To 9 For j = 1 To i expss

6、= i & & j & = & i * j Picture1.Print Tab(j - 1) * 10 + 1); expss; Next j Picture1.Print Next iEnd Sub上一页下一页返回本章首页5.2 While 循环语句格式： While Exit Do Wend循环体TrueFalse循环体条件是否为真计算条件的值例 5.5 见P69 例 5.4 找出最大整数n, 使得N! 1000上一页下一页返回本章首页Do While Exit Do Loop循环体条件TrueFalse循环体条件FalseTrueDo Until Exit Do Loop5.3 Do

7、循环-当型循环上一页下一页返回本章首页Do Exit Do Loop While 循环体条件TrueFalse5.3 Do 循环-直到型循环Do Exit Do Loop Until 循环体条件False True上一页下一页返回本章首页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）执行。 最小公倍数：两数的乘积除以最大公约数 见 li

8、5_7.vbp 上一页下一页返回本章首页循环嵌套：即大循环中包含小循环。无论是Do-Loop循环， 还是For-Next循环，都可以进行循环嵌套。 注意：内循环一定要完整地包含在外循环内，不得相互 交叉。 示例：For i=e1 To e2 Step e3 For j=d1 to d2 Step d3 . Next j Next i 5.4 循环嵌套上一页下一页返回本章首页循环嵌套举例：例5.8：打印九九乘法表（各种格式）。例5.9：求11000之间的“水仙花数”。Li5_9.vbp 注：“水仙花数”是一个三位数，其各位数的立方和等于 该数本身。 分析：该题可用三重循环，也可用一重循环 百位i

9、 ：i= n 100 或： i= int（n/100） 十位j ：j=n 10 i*10 个位k ：k=n Mod 10 界面如图：例5.10：求sinx（见P74）上一页下一页返回本章首页5.5 其他辅助语句 With语句 With语句的功能是在一个单一对象或一个用户定义类型上执行一系列的语句。 其语法结构为： With End WithWith CmdFirst .Height=.Height + 2000 .Caption= “Hello” .Move 0,0End With如：CmdFirst.Height= CmdFirst.Height + 2000 CmdFirst.Captio

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