三章VB的程序结构基础.ppt

现代教育技术中心 主讲人：姚灵 2010年2月 第三章 VB的程序结构基础 3.1 顺序结构 3.2 选择结构 3.3 循环结构 现代教育技术中心 WWW.LNCC.EDU.CN 本章主要内容本章主要内容 顺序与选择结构程序设计顺序与选择结构程序设计 ForFor循环结构程序设计循环结构程序设计 WhileWhile循环结构程序设计循环结构程序设计 DoDo循环结构程序设计循环结构程序设计 多重循环多重循环 程序举例程序举例 现代教育技术中心 WWW.LNCC.EDU.CN 1VB代码不区分字母的大小写 （l）VB中的关键字，首字母总被转换成大写，其 余字母被转换成小写。 （2）若关键字由多个英文单词组成，它会将每个 单词首字母转换成大写。 （3）对于用户自定义的变量、过程名，VB以第一 次定义为准，以后输入的自动向首次定义的转换。 2语句书写自由 （l）同一行上可以书写多条语句，语句间用冒号 “：”分隔。 VB编程风格（编 码 规 则） 现代教育技术中心 WWW.LNCC.EDU.CN （2）单行语句可分若干行书写，在本行后加入续行符（空格加 下划线“_”）； （3）一行允许多达255个字符。 3注释有利于程序的维护和调试 （l）注释以Rem开头，但一般用单撇号“”引导注释内容， 用撇号引导的注释可以直接出现在语句后面。 （2）也可以使用“编辑”工具栏的“设置注释块”、“解除 注释块”按钮，使选中的若干行语句（或文字）增加注释或取 消注释十分方便。 4保留行号与标号 VB源程序也接受行号与标号，但这不是必须的。标号是以字母 开始而以冒号结束的字符串，一般用在转向语句中。对于结构 化程序设计方法，应限制转向语句的使用。 VB编程风格（编 码 规 则） 现代教育技术中心 WWW.LNCC.EDU.CN 例如，下面是一段代码的书写： Rem This is example '注释 Dim x As Integer, y As Integer, _ z As Integer '续行符 x = 15: y = 10 一行多语句 z = (x + y) / 2 VB编程风格（编 码 规 则） 现代教育技术中心 WWW.LNCC.EDU.CN 三种控制结构:顺序结构、分支结构和循环 结构。 顺序结构即是整个程序按书写顺序依次执行 。流程图为： 语句1 语句2 str=“欢迎访问” text1.text=str 文本框中显示“欢迎访问” 3.1 顺序结构 现代教育技术中心 WWW.LNCC.EDU.CN 格式： 变量名=表达式 作用：计算右边表达式的值，然后赋给左 边的变量。 例如： Width = 10 '赋整型数 Height = 23 Area = Width * Height '赋表达式的值 R = Height / 4 Area = R * R * 3.14 赋值语句 现代教育技术中心 WWW.LNCC.EDU.CN 转换说明：变量名（或对象属性名）的类型与表达式的 类型通常要求一致，但VB提供的对某些数据类型的自 动转换机制，可强制变量转换为适当的数据类型。 1. 当表达式为数值型而与变量精度不同时，强制转换成 左边变量的精度。 2. 当表达式是数字字符串，左边变量是数值类型，自动 转换成数值类型再赋值，但当表达式有非数字字符或 空串，则出错。 3. 当逻辑型赋值给数值型时。True转换为-1，False转换 为0；反之当数值型赋值给逻辑型时，非0转换为 True ，0为False。 4. 任何非字符类型赋值给字符类型，自动转换为字符类 型。 赋值语句 现代教育技术中心 WWW.LNCC.EDU.CN 注意： (l)搞清赋值号与关系运算符等于号都用“=”表示。 例：赋值语句ab与ba是两个结果不相同的赋值语句， 而在关系表达式中ab与ba两种表示方法是等价的 (2)赋值号左边的变量只能是变量或者对象属性名 ，不能是常量、常数符号、表达式。 (3)不能在一句赋值语句中，同时给各变量赋值。 问题：下列赋值表达式的结果 n%=3.5 n=“123“ n=“1a23“ n%=True n$=123 四舍五入，n中的结果为4 ' n中的结果是123 ' 出现“类型不匹配”的错误 ' n中的结果是-1 ' n中的结果是“123” 现代教育技术中心 WWW.LNCC.EDU.CN 问题： 1、下面正确的赋值语句是（ ） A、x+y=30 B、y=*r*r C、y=x+30 D、3y=x 2、为了给x,y,z三个变量赋初值1，下面赋值语句正 确的是( ) A、x=1:y=1:z=1 B、x=1,y=1,z=1 C、x=y=z=1 D、xyz=1 3、赋值语句 a=123+MID(“123456”,3,2）执行后， a变量中的值是（ ）； 赋值语句 a=1233;Print 1,2;3; Print -4Print -4 Print 5; “Print 5; “abcdabcd” 运行结果：运行结果： 112233- -4 4 5 5abcdabcd 现代教育技术中心 WWW.LNCC.EDU.CN 与Print方法有关的函数 1、Tab（n） 功能：与Print方法一起使用，在参数n指定的位置输出 其后的表达式的值。 说明： 1）n是数值表达式，值为整数，若省略，则将输出点移 动到下一个输出区的起点。 2）若n小于1，则tab将输出位置移动到第1列。 3）一个print方法中使用多个Tab函数时，每个Tab函 数对应一个输出项，各项之间用分号隔开。 如：Print Tab(10);“Good”;tab(26);”Morning” 现代教育技术中心 WWW.LNCC.EDU.CN 2、Spc(n) 使光标从当前位置跳过使光标从当前位置跳过n n个空格，对输出进行定位个空格，对输出进行定位 。 比较比较： Print Tab(2);“Hello”;Tab(10);”world”Print Tab(2);“Hello”;Tab(10);”world” Print Spc(2);”Hello”;Spc(10);”world”Print Spc(2);”Hello”;Spc(10);”world” 3、Format$(数值表达式,格式字符串) 例如： Private Sub Command1_Click() Print Format$(348.52,“$#.00“),Format(Now,“hh:mm AM/PM“) Print Format$(1348.52,“$0,000.00“),Format(Now,“ttttt“) Print Format$(0.52,“#%“),Format(0.05,“00%“) End Sub 现代教育技术中心 WWW.LNCC.EDU.CN 选择结构即是对给定条件进行分析判断, 并根据结果采取不同的操作。 1）If语句 ¶ 单分支语句格式 (1) If Then 执行语句 End If 流程图 条件表达 式 执行语句 Y N (2) If Then 3.2选择结构 现代教育技术中心 WWW.LNCC.EDU.CN Dim x As Integer, y As Integer Dim Max As Integer, Min As Integer （1）If x y Then Max = x : Min = y End If If y x Then Max = y:Min = x End If （2） If x y Then Max = x : Min = y If y x Then Max = y: Min = x 例：已知两个数x和y,比较它们的大小。 现代教育技术中心 WWW.LNCC.EDU.CN 例：输入三个数，输出其中最大值。 Private Sub Command1_Click()Private Sub Command1_Click() Dim a!, b!, c!, max! Dim a!, b!, c!, max! a = a = InputBoxInputBox(“ (“请输入第一个数请输入第一个数“) “) b = b = InputBoxInputBox(“ (“请输入第二个数请输入第二个数“) “) c = c = InputBoxInputBox(“ (“请输入第三个数请输入第三个数“) “) max = a max = a If b max Then max = b If b max Then max = b If c max Then max = c If c max Then max = c Print a; “,“; b; “,“; c; “ Print a; “,“; b; “,“; c; “中最大值是：中最大值是：“; max“; max End SubEnd Sub 现代教育技术中心 WWW.LNCC.EDU.CN ¶ 双分支语句格式 （1） If Then 执行语句 Else 执行语句 End If 流程图 判断表达式 N 执行 语句2 Y 执行 语句1 （2） If Then Else 现代教育技术中心 WWW.LNCC.EDU.CN Dim x As Integer, y As Integer Dim Max As Integer, Min As Integer (1) If x y Then Max = x: Min = y Else Max = y: Min = x End If 前例已知两个数x和y,比较它们的大小,又可写成如 下代码。 (2) If x y Then Max = x : Min = y _ Else Max = y: Min = x xy Max = y Min = x Max = x Min = y YN 流程图 现代教育技术中心 WWW.LNCC.EDU.CN 1、下面程序段运行后，显示的结果（ ） Dim x% If x0 Then Print x Else Print x+1 2、下面程序运行后输出的结果为（ ） x=Int(Rnd)+3 If x28 Then y=x2+1 If x2=9 Then y=x2-2 If x2 Then 执行语句 ElseIf Then 执行语句 . Else 执行语句 End If 判2 判1 判n 块1块2块n Y Y Y 块n+1 N N N If语句的嵌套 现代教育技术中心 WWW.LNCC.EDU.CN If mark = 90 Then Print “优“ ElseIf mark = 80 Then Print “良“ ElseIf mark = 70 Then Print “中“ ElseIf mark = 60 Then Print “及格“ Else Print “不及格“ End If 注意： (1)不管有几个分支，程序 执行了一个分支后，其余分 支不再执行。 (2)当多分支中有多个表达 式同时满足，则只执行第一 个与之匹配的语句块。因此 ，要注意对多分支中表达式 的书写次序，防止某些值的 过滤。 例:已知输入某课程的百分制 成绩mark，要求显示对应五 级制的评定，评定条件如下 ： 优 mark=90 良 90mark=80 等级= 中 80mark=70 及格 70mark=60 不及格 mark= 60 Then Print “及格“ ElseIf mark = 70 Then Print “中“ ElseIf mark = 80 Then Print “良“ ElseIf mark =90 Then Print “优秀“ Else Print “不及格” End If 现代教育技术中心 WWW.LNCC.EDU.CN 形式2： If表达式1Then If表达式11then ··· End If ··· End If 注意： （l）对于嵌套结构 ，为了增强程序的可 读性，书写时采用锯 齿型； （2）If语句形式若 不在一行上书写，必 须与End If配对。多 个If嵌套，End If与 它最接近的If配对。 If语句的嵌套 现代教育技术中心 WWW.LNCC.EDU.CN 例:利用If语句设计程序，可以统计用户键 入的字符串中字母、数字和其他字符的个 数。 步骤： 1、添加控件。 新建工程，在窗体中添加4 个文本框和4个标签。 2、设置属性。4个标签的Caption属性分别 为：“输入字符串”、“字母个数”、“数字个数” 和“其他字符个数”。 3、编写代码（见下页）。 4、调试生成可执行文件。 现代教育技术中心 WWW.LNCC.EDU.CN Option Explicit Dim num As Integer， letter As Integer， Dim other As Integer Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = Asc(“a“) And KeyAscii = Asc(“A“) And KeyAscii = Asc(“0“) And KeyAscii ,2 当当“测试表达式测试表达式”的值与其中之一相同，就的值与其中之一相同，就 执行该执行该CaseCase子句中的语句块。子句中的语句块。 2 2） To To 2 当当“测试表达式测试表达式”的值落在表达式的值落在表达式1 1和表达和表达 式式2 2之间（含自身），则执行该之间（含自身），则执行该CaseCase子句中的子句中的 语句块。语句块。( (书写时必须把较小值写在前面书写时必须把较小值写在前面) ) 3 3）Is 当当“测试表达式测试表达式”的值满足的值满足“关系表达式关系表达式” 指定条件时，执行该指定条件时，执行该CaseCase子句中的语句块。子句中的语句块。 2）Select Case 语句（情况语句） 现代教育技术中心 WWW.LNCC.EDU.CN Select Case 语句与If块分支语句功能类似，可以将 前例改写成Select Case语句 Option Explicit Dim num As Integer， letter As Integer， Dim other As Integer Private Sub Text1_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case Asc(“a“) To Asc(“z“), Asc(“A“) To Asc(“Z“) letter = letter + 1 Text3.Text = Str(letter) Case Asc(“0“) To Asc(“9“) num = num + 1 Text2.Text = Str(num) Case Else other = other + 1 Text4.Text = Str(other) End Select End Sub 现代教育技术中心 WWW.LNCC.EDU.CN 用以下简易方法判断一个人的胖瘦。人的 身高与体重的关系是：身高低于166cm,体 重=身高-100(kg)；身高在166cm-175cm 之 间，体重=身高-105(kg)，身高在175cm- 185cm 之间，体重=身高-110(kg)；身高高 于是185cm，体重=身高- 115（kg）, 如果 一个人的实际体重超过上述体重指标的5% 为胖，低于上述体重指标的5%为瘦。 2）Select Case 语句（情况语句） 现代教育技术中心 WWW.LNCC.EDU.CN VB中提供的条件函数：IIF函数和Choose函 数，前者代替IF语句，后者可代替Select Case语句，均适用于简单的判断场合。 （l）IIf函数 IIf函数形式是： IIf（表达式，当条件为True时的值，当条件为 False时的值） 例如，求x，y中大的数，放入max变量中。 语句如下： Max = IIf(x y, x, y) 条件函数 现代教育技术中心 WWW.LNCC.EDU.CN 函数形式是： Choose（整数表达式，选项列表） 作用：Choose根据整数表达式的值来决定返回选 项列表中的某个值。如果整数表达式值是1，则 Choose会返回列表中的第1个选项。如果整数表达 式值是2，则会返回列表中的第2个选项，以此类推 。若整数表达式的值小于1或大于列出的选项数目 时，Choose函数返回Null。 例如，根据Nop是14的值，转换成+、-、*、/ 运 算符的语句如下: op = Choose(nop, “+“, “-“, “*“, “/“) （2）Choose函数 现代教育技术中心 WWW.LNCC.EDU.CN u暂停语句 格式：格式：StopStop 说明：说明： 1 1、可放置在过程中的任何地方，相当于、可放置在过程中的任何地方，相当于 在程序代码中设置断点，类似于执行在程序代码中设置断点，类似于执行“运行运行” 菜单中的菜单中的“中断中断”命令。命令。 2 2、执行、执行StopStop语句时，系统将自动打开语句时，系统将自动打开“立即窗立即窗 口口”，方便程序员调试跟踪程序。，方便程序员调试跟踪程序。 3 3、程序调试结束后，生成可执行文件之前，应、程序调试结束后，生成可执行文件之前，应 删除代码中的所有删除代码中的所有StopStop语句。语句。 补充：暂停与程序结束 现代教育技术中心 WWW.LNCC.EDU.CN u结束语句 格式：格式：EndEnd 功能：功能：通常用来结束一个程序的执行。通常用来结束一个程序的执行。 在不同环境下的其他用途：在不同环境下的其他用途： End SubEnd Sub：结束一个结束一个SubSub过程过程 End FunctionEnd Function：结束一个结束一个FunctionFunction过程过程 End IfEnd If：结束一个结束一个If If语句块语句块 End TypeEnd Type：结束记录类型的定义结束记录类型的定义 End SelectEnd Select：结束情况语句结束情况语句 补充：暂停与程序结束