第7章_VisualBasic控制结构.ppt

第7章 VisualBasic控制结构 主讲教师：刘潇（计科系） 联系电话 QQ：421877450 E-mail：liuxiao528@163.com 目录 7.1 选择控制结构 7.1 选择控制结构 7.1 选择控制结构 7.1 选择控制结构 7.1 选择控制结构 7.1 选择控制结构 7.1 选择控制结构 7.2 多分支控制结构 7.2 多分支控制结构 7.2 多分支控制结构 7.3 For循环控制结构 7.3 For循环控制结构 7.3 For循环控制结构 7.4 当循环控制结构 7.4 当循环控制结构 7.5 Do循环控制结构 7.5 Do循环控制结构 7.5 Do循环控制结构 7.5 Do循环控制结构 7.5 Do循环控制结构 补充： 循环控制结构 补充： 循环控制结构 7.6 多重循环 7.6 多重循环 7.6 多重循环 7.7 GoTo型控制 7.7 GoTo型控制 思考与练习 思考与练习 思考与练习 思考与练习 思考与练习 Do...Loop循环语句 格式1： Do [{While|Until} 条件] 循环体 Loop 功能：当指定的“循环条件”为真或直到指定的“循环条件”变为真之前，重复执行循环体 格式2： Do 循环体 Loop [{While|Until}条件] Do…Loop Until循环逻辑框图 Do…Loop While循环逻辑框图 Do Until…Loop循环逻辑框图 Do While…Loop循环逻辑框图 求 S＝12 + 22 + … + 1002 采用Do While...Loop语句 采用Print直接在窗体上输出结果，程序代码 Private Sub Form_load() Dim n As Integer, s As Long Show n = 1: s = 0 Do While n = 100 s = s + n * n n = n + 1 Loop Print s=; s End Sub 程序运行结果： S＝338350 输入两个正整数，求它们的最大公约数 用“辗转相除法”算法：求出m/n余数p，若p＝0，n即为最大公约数；若p非0，则把原来的分母n作为新的分子m，把余数p作为新的分母n继续求解。 Private Sub command1_click() Dim m As Integer, n As Integer, p As Integer m = Val(Text1.Text) n = Val(Text2.Text) If m = 0 Or n = 0 Then MsgBox 数据错误! End End If Do p = m Mod n m = n n = p Loop While p 0 Text3.Text = m End Sub 循环出口语句 格式：Exit {For|Do} 功能：直接从For循环或Do循环中退出  当程序运行时遇到Exit语句时，就不再执行循环体中的任何语句而直接退出，转到循环语句(Next、Loop)的下面继续执行 设计一个“加法器”程序,把每次输入的数累加。 当输入-1时结束程序的运行。 Private Sub Form_load() Dim x As Single, Sum As Single Show Sum = 0 Do While True x = Val(InputBox(“请输入要加入的数 _ (-1表示结束), 输入数据)) If x = -1 Then Exit Do End If Sum = Sum + x Text1.Text = Sum Loop MsgBox 累加运算结束“ End Sub 多重循环程序示例 Private Sub Form_load() Show For i = 1 To 3 外循环 For j = 5 To 7 内循环 Print i, j Next j