第3章 程序控制结构.ppt

第3 章程序控制结构,3.1 输入输出语句 3.2 顺序结构 3.3 选择结构 3.4 循环结构 3.5 辅助控制语句 3.6 常用算法举例,2019/3/11,2,输入：信息从计算机外传输到计算机内存。 输入方式有： 键盘、鼠标、外存储设备、文件、InputBox。 一般通过一个内存变量来接收所输入的数据 。 输出：信息从计算机内存传输到计算机主机外。 输出去向有： 显示器屏幕（程序界面,消息对话框MsgBox ） 打印机 文件,3.1 输入输出语句,2019/3/11,3,引例. 若书写下列语句： xInputBox(“请输入一个数“,“给x赋值“,“666“,100,200) 则执行上述语句时会出现下面所示的对话框： 若用户直接单击“确定”按钮，则x将得到值“666“；若用户输入“888“替换掉原默认值，再单击“确定”按钮，则x将得到值“888“。 InputBox函数的一般使用格式如下： xInputBox(提示内容 ,标题 ,函数的默认值 ,x ,y) 其中：提示内容 必填参数，是将出现在对话框的字符。 标题将出现在对话框标题栏的字符。 函数的默认值 默认出现的输入内容。 X和y对话框出现的位置（左上角点的水平、垂直坐标）。,3.1.1 InputBox函数,2019/3/11,4,引例. 若书写下列语句： xInputBox(“请输入密码字符“) If Len(x)6 Then '当x中的值少于6个字符时，则执行下面语句 y=MsgBox(“错误：您输入的字符串不足6位“,VbOkOnly,“密码消息“) End If 执行上述语句时若在输入框中输入少于6个字符的内容，则会出现下面图所示的消息框；而输入6个以上字符则不出现下面的消息框。 注意：消息框中出现的提示内容、标题栏内容、按钮的形式。,MsgBox例,3.1.2 MsgBox函数和MsgBox过程,2019/3/11,5,3.1.2 MsgBox函数和MsgBox过程,函数形式：变量名 = MsgBox( 提示 ,按钮,标题 ) 过程形式: MsgBox 提示 ,按钮 ,标题 按钮值如下: 函数返回所选按钮整数值:,2019/3/11,6,例3-1 编一程序，当用户单击图3-3的Command1按钮时程序弹出输入框，要求用户输入信息；当用户输入信息并确定后,接着弹出含有“是”和“否”按钮的消息框(标题为默认内容)。若用户单击“是”按钮则程序继续运行；若单击“否”按钮则程序退出。 程序如下： Private Sub Command1_Click() x = InputBox(“请输入信息“) y = MsgBox(x, vbYesNo) If y = 7 Then '如果用户单击“否”按钮，那么 End '结束程序 End If End Sub,当用户在前一个输入框中输入“AAA”时，弹出的消息框,InputBox和MsgBox的综合应用,2019/3/11,7,3.1.3 Print方法,Print方法的作用是在一些对象上输出信息,其一般使用格式如下： 对象.Print Spc(n) | Tab(n) 表达式列表 结束符 其中： 对象： 可选参数。可以是窗体、图片框名称或打印机对象。 Space(n)：可选参数。表示输出n个空格字符。 Tab(n)：可选参数；用来将插入点定位在绝对列号n上。 表达式列表：可选参数；是要打印的数值或字符串表达式。 结束符：可选参数；指定下一个字符的插入点位置。 如：Picture1.Print Tab(10); “abc “ ；12; 功能：定位在当前光标的第十列显示abc和12，最后的分号表示下个字符紧凑显示,2019/3/11,8,Print 方法的例题,例3-2 Print方法的使用例。本程序执行后，输出的结果如图所示。 Private Sub Form_Click() x = 50 : y = “库存书“ Print “ABC1“; “ Print “ABC2“, “ Picture1.Print Picture1.Print “1234567890“ Picture1.Print Tab(3); “111“; y; “=“; x; “本“ Picture1.Print Spc(3); “222“; y; “=“; x; “本“ End Sub,2019/3/11,9,3.1.4 格式输出,输出数据的格式由Format函数确定,Format的一般格式如下： Format（表达式,格式字符串） 其中： 1）表达式：是要格式化的数值、日期或字符串类型表达式。 2）格式字符串：是一个加双引号的字符串，它说明前面的表达式按什么格式输出。 如： Format(5459.4, “#,#0.00“) ' 返回 “5,459.40“ 格式字符串有三类：数值格式、日期格式和字符串格式。分别参见表3-3、表3-4和表3-5。,2019/3/11,10,1）数值格式,2019/3/11,11,2）日期格式,2019/3/11,12,3）字符串格式,2019/3/11,13,Format格式的例题,举例: Dim MyTime, MyDate, MyStr MyTime = #17:04:23# MyDate = #January 27, 1993# MyStr = Format(MyTime, “h:m:s“) '返回 “17:4:23“ MyStr = Format(MyTime, “hh:mm:ss AMPM“) ' 返回 “05:04:23 PM“ MyStr = Format(MyDate, “dddd, mmm d yyyy“) ' 返回“Wednesday,Jan 27 1993“ MyStr = Format(5459.4, “#,#0.00“) ' 返回 “5,459.40“ MyStr = Format(334.9, “#0.00“) ' 返回 “334.90“ MyStr = Format(5, “0.00%“) ' 返回 “500.00%“ MyStr = Format(“HELLO“, “) ' 返回 “THIS IS IT“,2019/3/11,14,3.1.5 打印机输出,1. 打印机对象 VB6提供的打印机对象（Printer）允许用户使用安装在Windows中的打印机。使用打印机对象的Print方法可以把以往输出到屏幕的内容输出到打印机。 （1）打印机对象的常用属性 FontCount：打印机可用的字体总数。 FontName：字体名称。其值是字符串表达式，如：“宋体“。 FontSize：字体大小。其值是数值表达式，用磅为单位。 PrintQuality：打印质量。设置或返回打印机的分辨率，是整型数（-1-4对应分辨率从低到高）。如设置草稿质量：Printer.PrintQuality-1。,2019/3/11,15,（2）打印机对象的常用方法,Print：打印。向打印机输出文本或数据。 Pset、Line、Circle：分别为画点、画线、画园。 PaintPicture：打印图形。 EndDoc：文档结束。 NewPage：用以结束Printer对象中的当前页并前进到下一页。 KillDoc：删除文档。立即终止当前的打印。 3）语句示例： Printer.Print “VB编程“ Printer.NewPage Pi3.1415926 Printer.Print “Pi=“;Pi Printer.EndDoc,2019/3/11,16,3.1.5 打印机输出,2. 打印VB代码 在工程窗口内选择要打印哪个窗体或模块中的代码，接着打开“文件”菜单中的“打印”命令，出现如图3-5所示的“打印”对话框。在“范围”栏内选择“当前模块”；在“打印内容”栏内选择“代码”。 3. 打印VB窗体 方法一、在图3-5对话框选择“窗体图像”即可。 方法二、 使用窗体的PrintForm方法，其语法为： 窗体名. PrintForm,图3-5 打印对话框,2019/3/11,17,3.1.6 字型,Font对象包含格式化文本所需要的信息。 经常用显示文本的对象的Font属性来标识Font对象。 对象的Font属性包括6类子属性。 设定字体各类属性的语句(对当前对象设置可省略对象名)： 设置字体类型语句：对象名.FontName =字体类型 设置字符尺寸语句：对象名.FontSize =数值 设置是否加粗语句：对象名.FontBold =True / False 设置是否倾斜语句：对象名.FontItalic =True / False 设置是否加删除线：对象名.FontStrikethru =True / False 设置是否加下划线：对象名.FontUnderline =True / False,2019/3/11,18,3.2 顺序结构,顺序结构是程序三种基本结构中的一种最常见、最简单的情景。顺序结构一般有赋值语句、输出数据语句和输入数据语句这几个类型。 3.2.1 赋值语句 赋值语句的功能就是将一种数据送到某个内存变量存储单员。 格式：变量名数据 例如：X=5 (此语句的作用如下图所示）：,2019/3/11,19,3.2.2 输出数据,输出数据是通过输出语句将常量、变量的值、对象属性的值或表达式的值向容器控件、显示器、打印机、磁盘文件输送。 （1）常见的输出语句类型： MsgBox消息框； Print方法； 写文件的语句（见第10章）。 （2）输出的数据表达形式： 常量（如：5、True、“Book”）； 变量； 对象属性的值（如：Text1.Text)； 表达式(如：2*x+1)； 函数（如：Sqr(16)等。 （3）输出的位置： 容器控件（如窗体、图片框等）； 显示器； 打印机； 磁盘文件。,2019/3/11,20,3.2.3 顺序结构的特征,组成顺序结构的基本语句是一些输入、输出语句。 写顺序结构程序时，须明白：先作什么？后做什么？ 例3-3 编一个转换华氏温度与摄氏温度的程序，转换公式是： F=9/5*C+32 '(1) 将摄氏温度转换为华氏温度，F为华氏温度值 C=5/9*(F32) '(2) 将华氏温度转换为摄氏温度，C为摄氏温度值 要求：单击“转华氏”按钮，则将摄氏温度转换为华氏温度； 单击“转摄氏”按钮，则将华氏温度转换为摄氏温度。,2019/3/11,21,3.3.1 单分支选择 If Then End If 或: If Then 例:已知两个数x和y,比较它们的大小,使得x大于y. If xy Then t=x x=y y=t End If 或 If xy Then t=x : x=y : y=t 重要的是学会两个数的交换，若上述语句次序变一下，结果如何？,3.3 选择结构,块IF,行IF,2019/3/11,22,3.3.2 二分支选择,If Then Else End If If Then Else 举例： 1）用单分支结构来实现两分支: y=cos(x)x3+3*x If x0 Then y=sin(x)+sqrt(x*x+1) 2）用双分支结构实现: If x0 Then y=sin(x)+sqrt(x*x+1) Else y=cos(x)x3+3*x End If,例题：计算分段函数,块IF,行IF,2019/3/11,23,若IF结构中的或至少有一个又是一个完整的IF结构。就属于IF结构的嵌套情况。 比如：给定三个数a、b、c，判断其能否构成一个三角形的三边？。若“能”，则进一步判断能否构成直角三角形。 可写如下程序段解决此问题： a=InputBox(“请输入变量a的值“) '给定变量a的数值 b=InputBox(“请输入变量b的值“) '给定变量b的数值 c=InputBox(“请输入变量c的值“) '给定变量c的数值 If (a+bc) And (b+ca) And (c+ab) Then '外层If的分支一 IF （a2+b2=c2）Or (b2+c2=a2) Or (c2+a2=b2) Then Print “a、b、c能构成直角三角形“ Else Print “a、b、c能构成一般三角形“ End If Else '外层If分支二 Print “a、b、c不能构成三角形“ End If,3.3.3 IF结构的嵌套,2019/3/11,24,3.3.4 多分支选择,1.用If实现多分支选择 格式如下： If Then ElseIf Then Else 语句块 n+1 End If 不管有几个分支，依次判断，当某条件满足，执行相应的语句块，其余分支不再执行；若条件都不满足，且有Else子句，则执行该语句块，否则什么也不执行。 注意：ElseIf不能写成 Else If。,2019/3/11,25,If 多分支语句例题,例3-4 已知百分制成绩mark，显示对应的五级制成绩， 哪些正确，哪些错误？,2019/3/11,26,2. 用Select Case实现多分支选择,形式： Select Case Case Case Case Else End Select ：是与同类型的下面四种形式之一： 表达式 例: “A” 一组枚举表达式(用逗号分隔) 例: 2,4,6,8 表达式1 To 表达式2 例: 60 To 100 Is 关系运算符表达式 例: Is 60 注：Select Case 后不能出现多个变量；Case后不能出现变量及有关运算符。,数值型或字符串表达式,用Select Case语句实现: Select Case strC Case “a“ To “z“，“A“ To “Z“ Print strC + “是字母字符“ Case “0“ To “9“ Print strC + “是数字字符“ Case Else Print strC + “其他字符“ End Select,2019/3/11,27,Select Case 应用例题,例3-5 已知变量strC中存放了一个字符，判断该字符是字母字符、数字字符还是其他字符。 用多分支If结构实现: If Ucase(strC) =“ A“ And Ucase (strC) =“ 0“ And strC =“ 9“ Then Print strC + “是数字字符“ Else Print strC + “其他字符“ End If,用Select Case语句实现: Select Case strC Case “a“ To “z“，“A“ To “Z“ Print strC + “是字母字符“ Case “0“ To “9“ Print strC + “是数字字符“ Case Else Print strC + “其他字符“ End Select,2019/3/11,28,哪些能实现，哪些不能实现？,例： 输入百分制成绩mark，显示对应的五级制成绩,2019/3/11,29,3.3.5 条件函数,1）IIf函数形式是： IIf（表达式，当表达式为True时的值，当表达式为False时的值） 例如，求x,y中大的数，放入Tmax变量中，语句如下： Tmax=IIf（x y，x，y） 如 Tmax=IIf(56,5,6) Tmax=IIf(65,6,5) 2）Choose函数形式是： Choose（数字类型变量，值为1的返回值，值为2的返回值） 例如，Nop是1-4的值，转换成 + 、-、×、÷运算符的语句如下： Op= Choose（Nop，“+“，“-“，“ד，“÷“） 当Nop值为1，返回字符串“+”给变量Op； Nop值为2，返回字符串“-”给变量Op ；依次类推。当Nop是1-4的非整数，系统自动取Nop的整数办法在判断；若Nop不在1-4之间，函数返回Null值。,2019/3/11,30,选择分支例题,例3-6 下列程序运行时，若键入2，则该程序的运行结果是 。 Private Sub Command1_Click() x = InputBox(“请输入一个数“) Select Case x Case Is 3 Print (5 * x + 1) / (6 * x-3) End Select End Sub,2019/3/11,31,常见错误,1)在选择结构中缺少配对的结束语句 对多行式的If块语句中，应有配对的 End If语句结束。 2)多边选择ElseIf关键字的书写和条件表达式的表示 ElseIf 不要写成Else If； 多个条件表达式次序问题。 3. Select Case语句的使用 Select Case 后不能出现多个变量；Case子句后不能出现变量。,2019/3/11,32,3.4.1 ForNext循环 形式 For 循环变量初值 to 终值 Step 步长 语句块 Exit For 语句块 Next 循环变量 步长 循环次数 例: For i=2 To 13 Step 3 循环执行次数 Print i , 输出I 的值分别为: Next I 2 5 8 11 Print : Print “ i =“, i 出了循环后输出 i 值为: i=14,循环体,3.4 循环结构,2019/3/11,33,循环的步步剖析（For语句）,代码： s0 For i=2 To 13 Step 3 s=s+i Next I Print “s=“;s Print “i =“; i,执行过程中s和i值的变化 s i 循环前 0 2 第1次循环后 2 5 第2次循环后 7 8 第3次循环后 15 11 第4次循环后 26 14,条件不符合，退出循环,显示： s26 i 14,2019/3/11,34,3.4.1 ForNext循环的简单应用,简单应用： 例3-7 对110000区间的奇数从最小数开始逐个累加求和，检测总和首次超过32767时就终止循环。并输出：1 ）最后所加的那个数； 2）一共加了多少个数； 3）实际总和。 例3-8 依次打印ASCII码值从48到66的所有字符，并对照打印出每个字符的ASCII码值。 例3-9 任意输入一串字符，由计算机找出其中有多少个英文字母“A“（大小写都算）。,2019/3/11,35,3.4.2 Do循环,Do语句用于控制循环次数未知的循环结构。有两种语法形式： 形式1： Do While|Until 语句块 Exit Do 语句块 Loop,形式2：Do 语句块 Exit Do 语句块 Loop While|Until ,2019/3/11,36,Do While 循环例题,例3-10 十进制整数转换为二进制整数程序。从文本框输入一个十进制整数m，将m转换为二进制数，再将该二进制数以字符串形式输出。 程序如下： Private Sub Command1_Click() Dim m As Integer 'm代表十进制数 Dim n1 As String 'n1存放一位二进制数的字符值 Dim n As String 'n存放一个二进制数组成的字符串 m = Val(Text1) n = “ '初始化n为空字符串 Do While m 0 '只要当前部分商m（被除数）不为0就进入循环 r = m Mod 2 '得到一位二进制数 n1 = Trim(Str(r) '将所得的二进制数位转化成一位字符 n = n1 n End Sub,2019/3/11,37,例3.11 用辗转相除法求两自然数m，n的最大公约数和最小公倍数。 分析：求最大公约数的算法思想： (1)对于已知两数m，n，使得mn； (2) m除以n得余数r； (3)若r=0，则n为最大公约数结束；否则执行(4)； (4)mn，nr，再重复执行(2)。 例 求 m=14 ,n=6 的最大公约数. m=InputBox(“请输入m”) n=InputBox(“请输入n”) Do While (n 0) r=m m=n n=r mod n Loop Print “最大公约数=“, m,参考算法：辗转相减法,Do While m n If m n Then m = m - n Else n = n - m End If Loop,变化表 m n 14 6 8 6 2 6 2 4 2 2,经典算法：辗转相除求公约数,2019/3/11,38,一个循环体内又包含了一个完整的循环结构称为循环的嵌套. 例3.12 打印九九乘法表. For i = 1 To 9 For j = 1 To 9 se = i Next j Picture1.Print Next i,思考：打印上三角或下三角程序如何改动？要打印下三角?,3.4.3 循环的嵌套,2019/3/11,39,For ii =1 To 10 For jj=1 To 20 Next ii Next jj,For ii =1 To 10 For ii=1 To 20 Next ii Next ii,For ii =1 To 10 For jj=1 To 20 Next jj Next ii,For ii =1 To 10 Next ii For ii =1 To 10 Next ii,循环嵌套注意事项,对于循环的嵌套，要注意以下事项： (1)内循环变量与外循环变量不能同名； (2)外循环必须完全包含内循环，不能交叉； (3)不能从循环体外转向循环体内，也不能从外循环转向内循环，反之则可以。,正 确,错 误,2019/3/11,40,3.5 辅助控制语句 I,3.5.1 GoTo型控制 1. GoTo语句 使用GoTo语句将无条件地转移到指定的语句去执行。GoTo语句的 格式如下： GoTo | 作用：无条件地转移到标号或行号指定的那行语句. 如：goto lineA 标号是一个字符序列,行号是一个数字序列. 如：goto 12 2. On-GoTo语句 On-GoTo语句类似于情况语句，用于多分支程序设计。格式为： On GoTo 示例： On m GoTo 11,22,Start,Loop1 m为1,2,3,4时跳转到相应位置 3.5.2 Exit语句 多种： Exit For、Exit Do、Exit Sub、Exit Function等。 作用：退出某种控制结构的执行。,2019/3/11,41,3.5.3 End语句 多种: End、 End If、 End Select、 End With、 End Type、 End Sub、 End Function等。 作用:End结束一个程序的运行；其余表示某个结构的结束。 3.5.4 With语句 形式如下： With 对象 语句块 End With 作用：对某个对象执行一系列的操作，而不用重复指出对象的名称。 With Label1 .Height = 2000 .Width = 2000 .FontSize=22 .Caption = “This is MyLabel“ End With 注意： (1) 用With语句只能对同一个对象使用，即With结构里面的语句都是对同一对象执行的，不能用一个With结构来设置多个不同对象； (2) With结构里面的语句块省略了对象名，但不能省略点号（“.”）。,等价于,辅助控制语句 I I,Label1.Height = 2000 Label1.Width = 2000 Label1.FontSize=22 Label1.Caption = “This is MyLabel“,2019/3/11,42,3.6 常用算法举例,算法是对某个问题求解过程的描述。 3.6.1 累加、连乘 1. 累加 求1100中5或7的倍数的和 ： Sum = 0 For i = 1 To 100 If i Mod 5 = 0 Or i Mod 7 = 0 Then Sum = Sum + i End If Next i Print Sum 思考：若把循环体前面置各变量初值的语句放在循环体内，程序运行时会产生什么情况？ 例3-13 先求120中所有能被5整除的数之和，然后将范围扩大到求1200中所有能被5整除的数之和。,2019/3/11,43,3.6.1.2 连乘,2. 连乘 如：求310中所有自然数的乘积： t = 1 For i =3 To 10 t = t * i Next i Print t 例3-14 求20的双阶乘20!（即t20×18××2）。 Private Sub Command1_Click() Dim T As Double '连乘结果较大，要用Double型变量存放 Dim n As Integer, MaxN As Integer MaxN = InputBox(“输入MaxN“) T = 1 For n = 2 To MaxN Step 2 T = T * n Next n Print MaxN; “! = “; T End Sub,2019/3/11,44,3.6.2 求素数,素数是大于等于2的正整数，它只能被1和自己整除。判别某数m是否为素数最简单的方法是：对于m，从i=2，3，m-1中判别m能否被i整除，只要有一个i能整除m ，就说明m不是素数；否则m是素数。 例3-15 求100以内的所有素数。 Private Sub Command1_Click() '单击命令按钮运行该事件函数 Dim i As Integer, m As Integer, flag As Boolean For m = 2 To 100 '对100以内的每个数逐个判断 flag = True ' tag值内True时标志m为素数 For i = 2 To m 1 ' 内循环对一个具体数m进行判断 If (m Mod i) = 0 Then flag = False 'm能被i整除，该m不是素数 Next i If flag Then Print m ' m不能被i=2m-1整除，m是素数，显示 Next m End Sub,2019/3/11,45,3.6.3 最大、最小值问题,在若干个数中求最大值，一般先假设一个较小的数为最大值的初值，若无法估计较小的值，则取第一个数为最大值的初值；然后将每一个数与存放最大值的变量比较，若该数大于最大值，则用该数替换最大值变量中的内容；依次逐一比较。 例3-16 随机产生10个100200之间的整数，求最大值。 Private Sub Command1_Click() Max = 100 For i = 1 To 10 x = Int(Rnd * 101 + 100) ' 随机产生1个100200之间的整数 Print x; If x Max Then Max = x Next i Print “最大值=“; Max End Sub 最小值问题原理类似，但先假设一个较大的数为最小值的初值。 例3-17 任意输入一串字符，求其中Ascii码最小的字符。,2019/3/11,46,3.6.4 穷举法,“穷举法”也称为“枚举法”或“试凑法”， 即将可能出现的各种情况一一测试，判断是否满足条件，一般采用循环来实现。 例3-18 百元买百鸡问题。假定小鸡每只5角,公鸡每只2元，母鸡每只3元。现在有100元钱要求买100只鸡，编程列出所有可能的购鸡方案。 设母鸡、公鸡、小鸡各为x、y、z只，根据题目要求，列出方程为： x+y+y=100 3x+2y+0.5z=100 三个未知数，两个方程，此题有若干个解。 解决此类问题采用“试凑法”，把每一种情况都考虑到。 方法一：最简单三个未知数利用三重循环来实现。 方法二：从三个未知数的关系，利用两重循环来实现。,2019/3/11,47,3.6.5 递推法,“递推法”又称为“迭代法”，其基本思想是把一个复杂的计算过程转化为简单过程的多次重复。每次重复都从老值的基础上递推出新值，并由新值代替老值。 例3-19 猴子吃桃子。小猴在一天摘了若干个桃子，当天吃掉一半多一个；第二天接着吃了剩下的桃子的一半多一个；以后每天都吃尚存桃子的一半零一个,到第7天早上要吃时只剩下一个了,问小猴那天共摘了多少个桃子？ 分析：这是一个“递推”问题，先从最后一天推出倒数第二天的桃子，再从倒数第二天的桃子推出倒数第三天的桃子。 设第n天的桃子为xn，那么它与前一天桃子数Xn-1的关系是：,2019/3/11,48,循环中的常见错误,1.不循环或死循环的问题 主要是循环条件、循环初值、循环终值、循环步长的设置有问题。 2.循环结构中缺少配对的结束语句 For 少 配对的Next 3.循环嵌套时,内外循环交叉 4.累加、连乘时，存放累加、连乘结果的变量赋初值问题 1)一重循环 在一重循环中,存放累加、连乘结果的变量初值设置应在循环语句前。 2)多重循环 这要视具体问题分别对待。,2019/3/11,49,谢谢大家,