第五顺序结构和选择结构.pptx

《第五顺序结构和选择结构.pptx》由会员分享，可在线阅读，更多相关《第五顺序结构和选择结构.pptx（71页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、5.1 顺序结构InputBox函数MsgBox函数Print方法第1页/共71页InputBox函数格式：InputBox(“提示字符串”,”对话框的标题”，”输入框中的默认值”，对话框的屏幕左边距，上边距 )功能：产生一个对话框，等待用户在对话框中输入数据。必选参数第2页/共71页举例如：str=InputBox(你好，请您输入你想要的商品名称！,商品名输入框,TV,200,300)第3页/共71页InputBox注意事项注意事项：（1）如果在提示框中想输入多行文字，则可以加上chr$(13)+chr$(10)来换行，chr$(13)+chr$(10)是回车换行的ASCLL转换字符。举例：

2、Str1$=InputBox(尊敬的用户，您好！+Chr(13)+Chr(10)+请输入您的姓名？,姓名)第4页/共71页InputBox注意事项（2）InputBox返回值的类型为字符串型，按“确定”按钮，则返回值为输入的内容。如果在输入过程中你按了“取消”则返回一个空字符串。举例：Str1$=InputBox(请输入您的姓名？,姓名)单击确定按钮，则Str1变量的值为“李四”，单击取消铵钮，则为空串。第5页/共71页InputBox注意事项（3）InputBox返回值的类型为字符串型，所以需要输入的内容为数值并参与算术运算的话，必须加上VAL（）将字符串转换成数字。举例：x=val(Inp

3、utBox(求两数之和，输入第一个数,求和)y=val(InputBox(求两数之和，输入第二个数,求和)Print x+y第6页/共71页上机实验第7页/共71页（2012年9月第18题）窗体上有一个名称为Labe11 的标签和一个名称为Command1 的命令按钮，命令按钮的单击事件过程如下：Private Sub Command1_Click()x=InputBox(输入x：,0)y=InputBox(输入y：,0)Label1.Caption=x+yEnd Sub运行程序，单击命令按钮，在输入对话框中分别输入2、3，运行的结果是A）程序运行有错误，数据类型不匹配B）程序运行有错误，In

4、putBox 函数的格式不对C）在Labe11 中显示5D）在Labe11 中显示23答案：D第8页/共71页2012年3月第20题设程序中有如下语句：x=InputBox(输入,数据,100)Print x运行程序，执行上述语句，输入5 并单击输入对话框上的“取消”按钮，则窗体上输出A）0 B）5 C）100 D）空白答案：D第9页/共71页（2010年9月第24题）如果执行一个语句后弹出如图所示的窗口，则这个语句是（）A）InputBox（输入框”，”请输入VB数据”）B）x=InputBox（输入框”，”请输入VB数据”）C）InputB ox（请输入VB数据”，”输入框”）D）x=In

5、putBox（请输入VB数据”，”输入框”）答案：D第10页/共71页（2010年3月第30题）下面程序运行时，若输入395，则输出结果是Private Sub Comand1_Click()Dim x%x=InputBox(请输入一个3位整数)Print x Mod 10,x100,(x Mod 100)10End SubA)3 9 5B)5 3 9C)5 9 3 D)3 5 9答案：B第11页/共71页（2008年9月第20题）执行下列语句strInput=InputBox(请输入字符串，字符串对话框，字符串)将显示输入对话框。此时如果直接单击“确定”按钮，则变量strInput 的内容是

6、（）。A）请输入字符串 B）字符串对话框 C）字符串“D）空字符串答案：C第12页/共71页2005年9月第17题在窗体上有一个命令按钮和一个文本框，其名称分别为Command1 和Text1，把文本框的Text 属性设置为空白，然后编写下列事件过程：Private Sub Command1_Click()a=InputBox(Enter an integer)b=InputBox(Enter an integer)Text1.Text=b+aEnd Sub程序运行后，单击命令按钮，如果在输入对话框中分别输入8 和10，则文本框中显示的内容是（）。A）108 B）18 C）810 D）出错答案

7、：A第13页/共71页MsgBox函数格式：msgbox(提示信息内容，type，对话框标题)功能：向用户传送信息，并接收用户的响应。必选参数第14页/共71页MsgBox函数P77注意事项：（1）如果输入多行文字，用 chr(13)+chr(10)换行。（2）type的默认值为0，即只有“确定”按钮。（3）msgbox函数的返回值为1-7之间的整数。这个整数与你选择的命令按钮有关。P78第15页/共71页符号常量值作用按钮类型设置vbOKOnly0只显示“确定”按钮vbOKCancel1显示“确定”及“取消”按钮vbAbortRetryIgnore2显示“终止”、“重试”及“忽略”按钮vbY

8、esNoCancel3显示“是”、“否”及“取消”按钮vbYesNo4显示“是”及“否”按钮vbRetryCancel5显示“重试”及“取消”按钮图标类型设置vbCritical16显示Critical Message图标 vbQuestion32显示Warning Query图标 vbExclamation48显示Warning Message图标 vbInformation64显示Information Message图标 标识默认按钮vbDefaultButton10第一按钮是默认值vbDefaultButton2256第二按钮是默认值vbDefaultButton3512第三按钮是默认

9、值vbDefaultButton4768第四按钮是默认值应用程序和系统强制返回vbApplicationModal0应用程序强制返回；应用程序一直被挂起，直到用户对消息框作出响应才继续工作。vbSystemModal4096系统强制返回；全部应用程序都被挂起，直到用户对消息框作出响应才继续工作。第16页/共71页Type参数type参数由上面的4类数值组成，其组成原则为：从每一类中选择一个值，把这几个值加在一起就是type参数的值。35=3+32+0显示“是”、“否”及“取消”按钮，显示WarningQuery图标，默认按钮为“是”65=1+64+0显示“确定”及“取消”按钮，显示Inform

10、ationMessage图标，默认按钮为“确定”306=2+48+256显 示“终 止”、“重 试”及“忽 略”按 钮，显 示 WarningMessage图标，默认按钮为第二个按钮“重试”第17页/共71页举例第18页/共71页Msgbox返回值符号常量值选择的按钮vbOK1“确定”按钮vbCancel2“取消”按钮vbAbort3“终止”按钮vbRetry4“重试”按钮vbIgnore5“忽略”按钮vbYes6“是”按钮vbNo7“否”按钮第19页/共71页举例Private Sub Form_Click()Dim msg As String,msgtitle As String msg=

11、请确认您的注册信息是否正确？msgtitle=注册确认 button=MsgBox(msg,3+16,msgtitle)If button=6 Then Print 输入正确！Else Print 输入有误，请重新输入！End IfEnd Sub第20页/共71页Msgbox语句格式：msgbox 提示信息内容功能：没有返回值，只起到提示的作用。例如：msgbox“欢迎你登陆本系统！”没有圆括号第21页/共71页（2011年9月第16题）在窗体上画一个命令按钮，然后编写如下事件过程；Private Sub Command1_Click()MsgBox Str(123+321)End Sub程序

12、运行后，单击命令按钮，则在信息框中显示的提示信息为（）。A）字符串“123+321”B）字符串“444”C）数值“444”D）空白答案：B第22页/共71页（2009年3月第14题）下列叙述中正确的是A)MsgBox语句的返回值是一个整数B)执行MsgBox语句并出现信息框后,不用关闭信息框即可执行其他操作C)MsgBox语句的第一个参数不能省略D)如果省略MsgBox语句的第三个参数(Title),则信息框的标题为空答案：C第23页/共71页（2008年4月第24题）窗体上有一个名称为Command1 的命令按钮，其事件过程如下：Private Sub Command1.Click()x=V

13、isualBasicProgramminga=Right(x,11)b=Mid(x,7,5)c=MsgBox(a,b)End Sub运行程序后单击命令按钮，以下叙述中错误的是（）。A）信息框的标题是BasicB）信息框中的提示信息是ProgrammingC）c 的值是函数的返回值D）MsgBox 的使用格式有错答案：D第24页/共71页（2006年4月第19题）有下列的命令按钮（名称为Command1）事件过程：Private Sub Command1_Click()x=InputBox(输入:,输入整数)MsgBox 输入的数据是:，输入数据:+xEnd Sub程序运行后，单击命令按钮，如果

14、从键盘上输入整数10，则下列叙述中错误的是（）。A）x 的值是数值10B）输入对话框的标题是“输入整数”C）消息框的标题是“输入数据：10”D）消息框中显示的是“输入的数据是：”答案：A第25页/共71页数据输出print方法格式：对象名称.print 要输出的表达式表,|；例如：Form1.print“窗体上显示的文字信息”picture1.print“图片框上显示的文字信息”第26页/共71页数据输出print方法注意事项：（1）对象名称可为窗体名、图片框、打印机，也可以在立即窗口中使用，默认为窗体。Form1.print“显示信息”picture1.print“显示信息”printer.

15、print“显示信息”debug.print“显示信息”第27页/共71页数据输出print方法注意事项：(2)单个print输出一个空行。(3)print可以输出多个表达式，可以用分号和逗号分开，分号是紧密输出，逗 号是分区段输出。Print 1,2,3 print 1;2;3第28页/共71页数据输出print方法注意事项：(4)print在输出表达式时，是输出的其表达式的值。(5)print在输出完所有表达式的值之后会换行，如果不想换行，在后面一定要加上分号或逗号。第29页/共71页print上机实例print 4+12 form1.print“I love my parents”pri

16、ntprint 45,54,65print 45;54;65print 45;54;print 65print“23+54=”;77print:print在当前窗体输出在当前窗体输出1616在窗体在窗体FORM1FORM1中输出中输出输出空行输出空行以分区方式输出以分区方式输出455465455465以紧密方式输出以紧密方式输出 455465455465注意以分号结尾不会换行注意以分号结尾不会换行以紧密方式输出以紧密方式输出455465455465 输出：输出：23+54=7723+54=77 输出两个空行。输出两个空行。第30页/共71页与print方法有关的函数tab spcspacefo

17、rmat格式:tab(n)eg.print tab(10);45功能：把光标移动到参数n指定的位置，从这个位置开始输出数据。注意事项：(1）其中的n总是参照行首位置。（2）如果n超过了当前位置，则在下一行的对应位置显示。（3）一般tab与其它项用分号分隔。第31页/共71页与print方法有关的函数tab spcspaceformat格式：spc(n)功能：跳过n个空格位置继续输出。注意事项：(1)与其它输出项之间用分号隔开。（2）spc与tab不同，spc表示输出项的间隔，而tab表示相对于行首的位置。第32页/共71页与print方法有关的函数tab spcspaceformatspace

18、(n)返回n个空格。注意事项：与spc基本一致。但是spc不能参与字符串的连间操作，而space可以。Print Spc(9)+“happy”会自动转换成Print Spc(9);“happy第33页/共71页与print方法有关的函数tab spcspaceformat格式：format(数值表达式，格式字符)功能：以指定格式显示数值结果。注意事项：(1)#(2)0000(3).,显示小数点(4)，逗 号，显示千分位(5)%百分号(6)$美元符(7)+正号(8)-负号(9)指数形式。表示一个数字，决定显示长度,多余的#号不会显示，少余数字个数时显示数字。表示一个数字，决定显示长度,多余的0号

19、会在前面或后面补0，少余数字个数时显示数字。多余的小数会四舍五入不管放在哪里，都是三位一分。第34页/共71页上机实验print tab(6);45print tab(6),45print tab(6);45;tab(7);54print 45;spc(5);54print 45,spc(5),54print 45;space(5);45Print 45+Space(5)+45 Print 45+Spc(5)+45 print 45+space(5)+45在第6个位置输出45在第2个分区输出45在第1行的第个位置输入45，在第二行的第7个位置输出54.45与54之间空了5个空格。在第1个分区输

20、出45，第二个分区输出空格在第三个分区输出54.45与54之间空了5个空格。45 与 54 之间空了5个空格。有错有错第35页/共71页上机实验print format(123,#)print format(123,#)print format(123,00000)print format(123,“00 )Print Format(123.12,000.000)Print Format(123.127,000.00)print format(123432.567,#,#.#)print format(0.1234,0.0%)print format(0.1234,0.00E+00)print

21、 format(23.54,$#00.00)print format(-23.54,+#.#)12312300123123123.120123.13123,432.5712.3%1.23E+01$23.54+-23.54第36页/共71页真题解析设x=4，y=6，则下列不能在窗体上显示出“A=10”的语句是（）。A）Print A=x+yB）PrintA=;x+yC）PrintA=+Str(x+y)D）PrintA=&x+y答案：A第37页/共71页其它方法和属性格式：对象.cls功能：清除对象内显示的内容。格式：对象.move 左边距，上边距，宽度，高功能：将对象移动到指定位置，并改变其大小

22、。第38页/共71页上机实验第39页/共71页5.2 选择结构if 条件 then 单个语句if 条件 then 语句endif单分支结构单行结构不要endif多行结构Endif结尾第40页/共71页5.2 选择结构if 条件 then 语句 else 语句 if 条件 then 语句else 语句endif双分支结构单行结构不要endif多行结构Endif结尾第41页/共71页5.2 选择结构if 条件1 then 语句elseif 条件2 then 语句elseif 条件3 then 语句endif多分支结构第42页/共71页注意两种分支结构注意两种分支结构vIf score 60 the

23、nvLabel1.caption=“不及格”vElse if score80 thenvLabel1.caption=“及格”vElsevLabel1.caption=“优秀”vEndifvEndifvIf score 60 thenvLabel1.caption=“不及格”vElseif score0 then print“正数”else print“负数”方法二：if x0 thenprint“正数”elseprint“负数”end if第44页/共71页上机实验输入一位学生的成绩，判断这位学生是否要补考。输入一位学生的成绩，判断这位学生是及格，还是不及格。输入一位学生的成绩，判断这位学生

24、是不及格、合格还是优秀？第45页/共71页举例 第46页/共71页If If与then之间的表达式可以为：关系表达式：eg.x=9逻辑表达式：eg.x3 and x9算术表达式：eg.3+5（非0表示真，0表示假）第47页/共71页举例A=9:B=2:C=4IF AB then 语句1 else 语句2IF Ab=false then 语句1 else 语句2IF C then 语句1 else 语句2IF 0 then 语句1 else 语句2执行语句1执行语句2执行语句1执行语句2第48页/共71页嵌套必须嵌套必须完全完全“包住包住”，不能互相不能互相骑跨骑跨 If(cj 60)Thenp

25、rint“d”Else If(cj 70)ThenPrint“c”ElseIf(cj 80)ThenPrint“b”ElsePrint“a”End IfEndifEndif If(cj 60)Thenprint“d”Else If(cj 70)ThenPrint“c”ElseIf(cj 80)ThenPrint“b”EndifElsePrint“a”End IfEndif第49页/共71页正确的嵌套方法 If(cj 60)Thenprint“d”Else If(cj 70)ThenPrint“c”ElseIf(cj 80)ThenPrint“b”ElsePrint“a”End IfEndifE

26、ndif If(cj 60)Thenprint“d”Else If(cj 70)ThenPrint“c”ElseIf(cj 0 thenif a10then a=10 else a=1Else endif a=8endif(D)if 3+9 then a=3+9错，单行if不用endif结尾正确，执行的是a=9，不是b=9错，多层if 嵌套不能骑跨错，多行if要以endif结尾第51页/共71页第52页/共71页第53页/共71页第54页/共71页（2009年9月第20题）设窗体上有名称为Optionl的单选按钮，且程序中有语句：If Option1.Value=True Then下面语句中与

27、该语句不等价的是（）。A）If Optionl.Value Then B）If Optionl=True ThenC）If Value=True Then D）If Optionl Then答案：C第55页/共71页5.2 IIF函数if 语句的简写版：IIF(条件，true部分，false部分)注意：true部分只是一个表达式，不是完整语句等价关系：if a5 then r=1else r=2endifr=iif(a5,1,2)第56页/共71页if 到IIF函数的转换d=15if d12 thenprint“D大于12”elseprint“D小于等于12”endifprint iif(d1

28、2,”D大于12”，“D小于等于12”)第57页/共71页（2008年4月第15题）现有语句：y=IIf(x0,x Mod 3,0)设x=10，则y 的值是（）。A）0 B）1C）3 D）语句有错答案：B第58页/共71页（2006年9月第15题）设a=5，b=6，c=7，d=8，执行下列语句后，x 的值为（）。x=IIF(ab)And(cd),10,20)A）10 B）20C）True D）False答案：B第59页/共71页（2005年4月第15题）设a=a，b=b，c=c，d=d，执行语句x=IIf(ad),A,B)后，x 的值为（）。A）a B）bC）B D）A答案：D第60页/共71

29、页5.2 多分支控制结构if 只有两个分支，如果想达到多分支效果，要多层嵌套。Select Case 测试表达式 Case 条件1 A组语句 Case 条件2 B组语句 .Case Else n组语句 End Select第61页/共71页举例X%=inputbox(“请输入一个数字!”)Select case x%Case 0 Print“输入的数为零”Case is0Print“输入的数为正数”Case elsePrint“输入的数为负数”End select 第62页/共71页Case 表达式P97Case表达式功能表达式如：case 2+3 case“男”一组用逗号分隔的枚举值如：ca

30、se 2,4,6,8,10 case 1,3,5,7,9表达式1to表达式2注意：表达式1表达式2如：case 1 to 10Is关系运算符表达式caseis10(只能用于如：case is 1 and is10第63页/共71页举例举例x=inputbox(“请输入一个数字”)Select Case x Case Is 1 Text2.text=这是小于1的数 Case 1 To 10 Text2.Text=这是1到10之间的数 Case Else Text2.Text=这是大于10的数 End Select第64页/共71页上机试验单击窗体后弹出输入对话框由用户输入单个字符，编写程序对输入

31、的字符进行分类，字母分为大写字母和小写字母，数字字符可分为奇数和偶数，如果输入的是其他字符，则输出相应的提示信息。第65页/共71页上机试验（2）在名为 Form1 的窗体上有一个名为 Cmd1 的命令按钮，其标题为“输入”；还有一个名为 Txt1的文件框，初始内容为空白。程序运行后，单击“输入”命令按钮，显示“输入”对话框，在对话框中输入某个月份的数值（112），然后单击“确定”按钮，即可在文本框中输出该月份所在的季节。例如输入 6，将输出“6 月份是夏季”，如图 64-4 所示。第66页/共71页Select case注意事项注意事项：1.case 表达式的四种形式可以混用。2.如果找不到

32、case与之相对应，则运行case else后面的语句，如果没有case else则不执行任何操作。3.如果同时满足多个case时，只执行满足条件的第一个case.vcaseis78，45，3to44第67页/共71页（2012年9月第19题）窗体上有一个名称为Shape1 的形状控件和由三个命令按钮组成的名称为cmdDraw 的控件数组。窗体外观如图所示（从上到下的3 个命令按钮的下标值分别为0、1、2）。有事件过程如下：Private Sub CmdDraw_Click(Index As Integer)Select Case IndexCase 0Shape1.Shape=0Case 1

33、Shape1.Shape=1Case 2Shape1.Shape=3End SelectEnd Sub当单击“画圆”命令按钮时，会执行cmdDraw_Click 事件过程。以下叙述中正确的是A）Case2 分支有错，此Case 后面表达式的值应该与赋给Shape1.Shape 的值一致B）程序运行有错，控件数组的下标应该从1 开始C）Index 是形状控件的参数D）程序正常运行，形状控件被显示为圆形答案：D第68页/共71页（2012年3月第19题)设有分段函数:以下表示上述分段函数的语句序列中错误的是A）Select Case xCase Is0y=5 ElseIf x=5 ThenCase

34、 Is0y=2*xCase Elsey=x*x+1End SelectB）If x0 Theny=5y=2*xElsey=x*x+1End If答案：A第69页/共71页（2012年3月第19题)设窗体上有一个名为Text1 的文本框和一个名为Command1 的命令按钮，并有以下事件过程：Private Sub Command1_Click()x!=Val(Text1.Text)Select Case xCase Is=20Print 输入错误Case Is 0Print 20-xCase Is 10Print 20Case Is=20Print x+10End SelectEndSub程序运行时，如果在文本框中输入-5，则单击命令按钮后的输出结果是（）。A）5 B）20 C）25 D）输入错误答案：C第70页/共71页感谢您的观看！第71页/共71页