第第4章章 顺序结构和选择结构顺序结构和选择结构VBVBVBVB应应应应用用用用程程程程序序序序的的的的执执执执行行行行是是是是由由由由事事事事件件件件驱驱驱驱动动动动的的的的，当当当当用用用用户户户户触触触触发发发发某一事件时，执行相对应的事件过程，不分先后。某一事件时，执行相对应的事件过程，不分先后。某一事件时，执行相对应的事件过程，不分先后。某一事件时，执行相对应的事件过程，不分先后。 但但但但是是是是，在在在在每每每每一一一一个个个个事事事事件件件件过过过过程程程程内内内内部部部部，是是是是有有有有一一一一定定定定的的的的执执执执行行行行控制流程的，就是通常所说的控制流程的，就是通常所说的控制流程的，就是通常所说的控制流程的，就是通常所说的三种基本结构三种基本结构三种基本结构三种基本结构：顺序结构顺序结构分支结构分支结构循环结构循环结构输入数据输入数据加工处理加工处理输出结果输出结果途径途径1：使用文本框：使用文本框途径途径2：使用：使用赋值语句赋值语句途径途径3：使用：使用InputBox函数函数 条件语句、循环语句等条件语句、循环语句等途径途径1：使用标签、文本框：使用标签、文本框途径途径2：使用：使用Print语句语句途径途径3：使用：使用消息框消息框MsgBox顺顺序序结结构构一个程序的构成：一个程序的构成：一、赋值语句: LETLETLETLET变量名表达式变量名表达式变量名表达式变量名表达式 例：例： x=100 : y=x Label2.caption=2*3.14*val(text1) n=n+1 a=b=5 当表达式的类型与变量的类型不一致时，强制转换当表达式的类型与变量的类型不一致时，强制转换成左边的精度，如成左边的精度，如 x = 10.6 x中的结果为中的结果为11 z=xy z中的结果为中的结果为0或者或者-1 二、 Print 方法、 Format 函数1、 Print的格式及功能的格式及功能格式：格式：对象名对象名. Print 表达式列表表达式列表功能：在对象上输出表达式的值。功能：在对象上输出表达式的值。 Print 3*2Print 3*2 即即即即 Form1 . Print 3*2 Form1 . Print 3*2 在当前窗体上输出在当前窗体上输出在当前窗体上输出在当前窗体上输出6 6 Picture1 . Print Good Picture1 . Print Good 在图片框在图片框在图片框在图片框Picture1Picture1上输出上输出上输出上输出Good Good Printer . Print sPrinter . Print s 在打印机上输出变量在打印机上输出变量在打印机上输出变量在打印机上输出变量 s s中的值中的值中的值中的值 分隔符分隔符分隔符分隔符：各打印项之间用：各打印项之间用：各打印项之间用：各打印项之间用“ “，” ”或或或或“ “；” ”隔开。隔开。隔开。隔开。 若只有一个若只有一个若只有一个若只有一个Print Print 词词词词，则表示输出一空行。则表示输出一空行。则表示输出一空行。则表示输出一空行。2 2个函数：个函数：个函数：个函数： 定位函数：用定位函数：用定位函数：用定位函数：用Tab(n)Tab(n) 对输出项进行定位。对输出项进行定位。对输出项进行定位。对输出项进行定位。 打印空格：用打印空格：用打印空格：用打印空格：用Spc(n)Spc(n)函数输出函数输出函数输出函数输出n n个空位置。个空位置。个空位置。个空位置。这这这这2 2 2 2个函数后面要用分号个函数后面要用分号个函数后面要用分号个函数后面要用分号“ “；” ”例如：课本例例如：课本例4-2Private Sub Form_Click() Print 123456789012345678901234567890 Print Tab(6); 2008, 北京欢迎您北京欢迎您 Print Tab(5); 为为, Spc(10); 为为 Print Tab(4); 中国中国, Spc(9); 奥运奥运 Print Tab(3); 加油！加油！, Spc(8); 喝彩！喝彩！End Sub2、格式输出函数、格式输出函数 Format（）（） Format(,格式字符串格式字符串) 按按格格式式字字符符串串指指定定的的格格式式输输出出数数值值型型、字字符符型型、日期型数据。日期型数据。 实验实验3-23-24.1.3 与用户交互的函数及过程与用户交互的函数及过程InputBox 弹出一个对话框，供用户输入信息。弹出一个对话框，供用户输入信息。不论输入什么，都得到一字符型数据。不论输入什么，都得到一字符型数据。x = InputBox(请输入奥运会的开幕时间请输入奥运会的开幕时间, 2008北京北京, 8-8-20:00)变量名变量名= InputBox（提示语（提示语 ,标题标题 ,缺省值缺省值 ,x坐标坐标位置位置 ,y坐标位置坐标位置）f = InputBoxf = InputBox（“ “第一行第一行第一行第一行” ” & vbNewLine & “& vbNewLine & “第二行第二行第二行第二行” ”，“ “ddd”ddd”，200200，200200） 运行时如下：运行时如下：运行时如下：运行时如下：2. Msgbox2. Msgbox函数和函数和函数和函数和MsgboxMsgbox过程过程过程过程 弹弹弹弹出出出出一一一一个个个个消消消消息息息息框框框框，告告告告诉诉诉诉用用用用户户户户信信信信息息息息，让让让让用用用用户户户户通通通通过过过过单单单单击击击击按钮做出选择。按钮做出选择。按钮做出选择。按钮做出选择。函数格式：函数格式：函数格式：函数格式：变量变量变量变量=MsgBox=MsgBox（提示（提示（提示（提示 , ,按钮数值按钮数值按钮数值按钮数值 , ,标题标题标题标题 ） 函数的返回值是一个与所按钮有关的整数函数的返回值是一个与所按钮有关的整数函数的返回值是一个与所按钮有关的整数函数的返回值是一个与所按钮有关的整数. .过程格式：过程格式：过程格式：过程格式：MsgBox MsgBox 提示提示提示提示 , ,按钮数值按钮数值按钮数值按钮数值 , ,标题标题标题标题 过程无返回值，过程无返回值，过程无返回值，过程无返回值，常用于简单的信息输出。常用于简单的信息输出。常用于简单的信息输出。常用于简单的信息输出。例如：课本例如：课本例如：课本例如：课本7575页例子页例子页例子页例子4.2 4.2 选择结构选择结构( (单分支结构单分支结构) )( (双分支结构双分支结构) ) 条件FT 语句块 条件 T语句块1 语句块2 F表达式n FT 语句块n 表达式1 表达式2 语句块n+1 语句块1 语句块2 TTFF( (多多分分支支结结构构) ) 1. 1. 单分支结构单分支结构If Then 语句语句块块 End If或或 If Then 重要的是学会两个数的交换，若上述语句次序变一下，结果如何？重要的是学会两个数的交换，若上述语句次序变一下，结果如何？ 条件FT 语句块 例：例：已知两个数已知两个数a和和b，比较大小并交换，比较大小并交换， 使得使得a大于大于b. If ab Then t=a a=b b=t End If 或或 If ab Then t=a: a=b: b=tabt 两数交换过程两数交换过程2. 2. 双分支结构双分支结构 If Then Else End If 或者：或者： If Then Else 条件 T语句块1 语句块2 F课本课本P77,例例4-73. 3. 多分支结构多分支结构 If Then ElseIf Then Else 语句块语句块 n+1 End If表达式n FT 语句块n 表达式1 表达式2 语句块n+1 语句块1 语句块2 TTFF例例4.8 输入百分制成绩输入百分制成绩mark，判定成绩的等级。，判定成绩的等级。 哪些对？哪些对？4If语句的嵌套语句的嵌套 是指 If 的语句块语句块中又包含新的 If 语句。形式如下： If Then If Then End If End If 注意：书写锯齿型；注意：书写锯齿型； If 与与End If配对。配对。 表达式表达式 例例: A 列表项列表项 2,4,6,8 表达式表达式1 To 表达式表达式2 60 To 100 Is 关系表达式关系表达式 (不能用不能用and,or) Is a+b4.2.2 Select Case4.2.2 Select Case语句语句( (情况语句情况语句) )形式：Select Case 变量或表达式变量或表达式Case 测试值测试值1 语句块语句块1Case 测试值测试值2 语句块语句块2Case Else 语句块语句块n+1End Select例例4.11：输入一个字符，判断该字符类型。 str=text1 Select Case strCCase a To z，A To ZPrint strC ； 是字母Case 0 To 9Print strC ； 是数字Case ElsePrint strC ； 其他 End Select例: 已知坐标点(x，y)，判断其落在哪个象限。 方法一方法一If x 0 And y 0 ThenIf x 0 And y 0 Then Print Print 在第一象限在第一象限 ElseIf x 0 ThenElseIf x 0 Then Print Print 在第二象限在第二象限 ElseIf x 0 And y 0 ThenElseIf x 0 And y 0 And y 0 And y 0 And y 0 Case x 0 And y 0Print Print 在第一象限在第一象限 Case x 0 Case x 0Print Print 在第二象限在第二象限 Case x 0 And y 0 Case x 0 And y 0 And y 0 And y 0Print Print 在第四象限在第四象限End SelectEnd Select注意注意：1. Select Case 后只能是一个变量；后只能是一个变量； 2. Case后不能出现变量名及有关运算符后不能出现变量名及有关运算符。 isis4.2.3 4.2.3 条件函数条件函数 IIf函数函数：iif(表达式，表达式，True时的值，时的值，False时的值）时的值） 例, 求x,y中小的数，放入Tmin变量中，语句如下： Tmin=IIf（x y，x，y） Choose函数：函数： Choose (数值型变量，值为数值型变量，值为1的值，值为的值，值为2的值的值） xq = Choose(nxq = Choose(n, , 星期一星期一, , 星期三星期三, , 星期五星期五, , 星期六星期六) 常常 见见 错错 误误1 1在选择结构中缺少配对的结束语句在选择结构中缺少配对的结束语句对多行式的对多行式的IfIf块语句中，应有配对的块语句中，应有配对的 End IfEnd If语句结束。语句结束。2. 2. 多边选择多边选择ElseIfElseIf关键字的书写和条件表达式的表示关键字的书写和条件表达式的表示 ElseIf ElseIf 不要写成不要写成Else IfElse If；多个条件表达式次序问题多个条件表达式次序问题, , 3. Select Case3. Select Case语句的使用语句的使用 Select Case Select Case 后不能出现多个变量；后不能出现多个变量；CaseCase子句后不子句后不能出现变量。能出现变量。