山东外贸学院VB循环结构PPT学习教案

1、会计学1 山东外贸学院山东外贸学院VB循环结构循环结构 2021年7月31日 作业作业 本章小结本章小结 退出退出 第1页/共22页 2021年7月31日 所谓循环，就是重复执行某些操作。 和 。 上一页上一页 下一页下一页 返回本章首页返回本章首页 第2页/共22页 2021年7月31日 For V=e1 To e2 Step e3 Exit For Next V 计算计算e1、e2、e3 v=e1 V超过超过e2? v=v+e3 循环体循环体 True False 循环次数已知的循环循环次数已知的循环, 它它 的一般形式如：的一般形式如： 循环次数计算公式循环次数计算公式: : 循环次数循

2、环次数=Int(E2-E1)/E3)+1=Int(E2-E1)/E3)+1 For-Next 上一页上一页 下一页下一页 返回本章首页返回本章首页 第3页/共22页 2021年7月31日 应用程序界面如图： 编写代码： 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 上一页上一页 下一

3、页下一页 返回本章首页返回本章首页 第4页/共22页 2021年7月31日 n = CLng(Text1.Text) k =Int(Sqr(n) ) m = 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页/共22页 2021年7月31日 求求的值。计算公式的值。计算公式见见P

4、67 应用程序 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 上一页上一页 下一页下一页 返回本章首页返回本章首页 第6页/共22页 2021年7月31日 Private Sub Form_Click() Dim a As

5、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 上一页上一页 下一页下一页 返回本章首页返回本章首页 第7页/共22页 2021年7月31日 练习练习2：编程编程显示如显示如图所示图所示的的乘法九九表乘法九九表 在窗体上添加一个命令按钮和一个Pictrue控件 上一页上一页 下一页下一页 返回本章首页返回本章首页 第8页/共22页 2021年7月31日 编写comman

6、d1_click事件的代码如下： Private Sub Command1_Click() Dim I%, j% Dim expss As String For i = 1 To 9 For j = 1 To i expss = i expss; Next j Picture1.Print Next i End Sub 上一页上一页 下一页下一页 返回本章首页返回本章首页 第9页/共22页 2021年7月31日 While 语句格式：语句格式： While Exit Do Wend 循环体循环体 True False 循环体循环体 条件是否为真条件是否为真 计算条件的值计算条件的值 上一页上一

7、页 下一页下一页 返回本章首页返回本章首页 第10页/共22页 2021年7月31日 Do While Exit Do Loop 循环体循环体 条件条件 True False Do 上一页上一页 下一页下一页 返回本章首页返回本章首页 第11页/共22页 2021年7月31日 Do Exit Do Loop While Do 上一页上一页 下一页下一页 返回本章首页返回本章首页 第12页/共22页 2021年7月31日 辗转相除法 （1）假设m大于n； （2）m除以n，得余数r。 （3）若r=0，则n即为所求的最大公约数，结束； 否则，执行步骤（4）； （4）令mn，nr再转到（2）执行。 上

8、一页上一页 下一页下一页 返回本章首页返回本章首页 第13页/共22页 2021年7月31日 即大循环中包含小循环。无论是即大循环中包含小循环。无论是Do-Loop循环，循环， 还是还是For-Next循环，都可以进行循环嵌套。循环，都可以进行循环嵌套。 内循环一定要完整地包含在外循环内，不得相互内循环一定要完整地包含在外循环内，不得相互 交叉。交叉。 For i=e1 To e2 Step e3 For j=d1 to d2 Step d3 . Next j Next i 上一页上一页 下一页下一页 返回本章首页返回本章首页 第14页/共22页 2021年7月31日 打印九九乘法表（各种格式

9、）。打印九九乘法表（各种格式）。 求求11000之间的之间的“水仙花数水仙花数”。Li5_9.vbp “水仙花数水仙花数”是一个三位数，其是一个三位数，其各各位数的立方和等于位数的立方和等于 该数本身。该数本身。 百位百位i ：i= n 100 或：或： i= int（n/100） 十位十位j ：j=n 10 i*10 个位个位k ：k=n Mod 10 求求sinx（） 上一页上一页 下一页下一页 返回本章首页返回本章首页 第15页/共22页 2021年7月31日 With语句的功能是在一个单一对象或一个 用户定义类型上执行一系列的语句。 With End With With CmdFirs

10、t .Height=.Height + 2000 .Caption= “Hello” .Move 0,0 End With CmdFirst.Height= CmdFirst.Height + 2000 CmdFirst.Caption= “Hello” CmdFirst.move 0,0 上一页上一页 下一页下一页 返回本章首页返回本章首页 第16页/共22页 2021年7月31日 有多种形式的Exit 语句，如： Exit For-用于For循环 体 Exit Do -用于Do循环 体 Exit Sub -用于Sub 过程 体 Exit Function -用于Function 过程体 其功能是：强制退出当前循环 （或过程）体 注意：它们通常和分支语句配合 使用。 上一页上一页 下一页下一页 返回本章首页返回本章首页 第17页/共22页 2021年7月31日 将m不断除 r 取余数，直到商为0，以反 序排列即得到结果。 数值转换。 上一页上一页 下一页下一页 返回本章首页返回本章首页 第18页/共22页 2021年7月31日 将英文字符的 ASC码，使其变 成另外一个