3.4.6VB选择语句

《新时代领航》信息技术基础能力训练必修一版权所有侵权必究3.4.6VB选择语句(1课时)学习指导1．选择语句也称“分支结构语句”或“条件判断语句”，用来表示选择(条件)控制结构，使得程序在执行过程中，根据不同的判断结构，选择执行不同的处理。选择语句主要有IF语句，在VB中，IF语句又分为两种形式：①行IF语句。行IF语句必须在一行内写完。该语句的执行过程是：先计算条件表达式的值，如果条件表达式的计算结果是True，就执行Then后面的语句，否则执行Else后面的语句。如果Else和它的后随语句不出现，则条件表达式值为True时执行Then后面的语句，否则就什么也不执行，程序转向IF语句后面的后继语句。行IF语句格式如下：If条件表达式Then语句1Else语句2或If条件表达式Then语句②块If语句。块If语句的格式如下：If条件表达式1Then语句块1ElseIf条件表达式2Then语句块2……ElseIf条件表达式nThen语句块nElse语句块0EndIf这儿的语句块可以由一个或多个语句组成。如果只有两种不同情形的分别处理，则中间所有的ElseIf部分都不必书写，只保留语句块1和语句块0相应的部分即可，即块If语句可以简化为以下格式：If条件表达式1Then语句块1Else语句块0EndIf当条件表达式为True或False时进行处理的语句都只有一个时，可采用行If语句，也可采用块If语句；而如果分支中进行处理的语句不止一个时，必须采用块If语句。2．InputBox函数(1)作用：显示一个输入框，并提示用户在文本框中输入文本和数字或选中某个单元格区域，当按下确定按钮后返回包含文本框内容的值。(2)语法：InputBox(“提示文本”，”标题”)参数说明：提示文本是必选项。例如有以下VB程序段：PrivateSubCommand1_Click()DimsngcjsngCj＝InputBox(”请输入学生成绩：”，”输入成绩”)EndSub执行后，会跳出如下输入对话框。此时，输入的内容将返回到变量sngCj中3．MsgBox函数(1)作用：在对话框中显示消息，等待用户单击按钮，并返回一个Integer告诉用户单击哪一个按钮。(注：在程序调试阶段，此函数非常有用。)(2)语法：MsgBox(提示文本，按钮，标题)参数说明：提示文本为必填项，按钮为选填，默认值为0。例如有以下VB程序段：PrivateSubCommand1_Click()Dimsngcjsngcj＝MsgBox(”你确认要退出吗？”，1,”关闭”)EndSub运行时，会跳出如下图所示对话框。4．Print命令作用：在窗体中显示指定的信息语法：Print变量、表达式或字符串学习提示本节课学习中要求掌握VB选择语句的使用。掌握InputBox函数，MsgBox函数及Print命令的使用。并能使用If语句灵活处理生活中的实际问题。难点是块IF语句的灵活使用。1．在VB中，针对语句IfI＝1ThenJ＝1，下列说法正确的是()A．I＝1和J＝1均为赋值语句B．I＝1和J＝1均为关系表达式C．I＝1为关系表达式，J＝1为赋值语句D．I＝1为赋值语句，J＝1为关系表达式【答案】C基础训练2．运行下列VB程序段后，显示的结果为()DimxAsIntegerIfxThenPrintxElsePrintx＋1A．1B．0C．－1D．显示错误【答案】A3．下面VB语句正确的是()A．Ifx≠yThenPrint“x不等于y”B．IfxyPrintx不等于yC．IfxyThenPrint“x不等于y”D．Ifx≠yPrintx不等于y【答案】C4．符合VB语句正确描述：如果x≤3y且xy，则y＝x3是()A．ＩｆｘＴｈｅｎｙ＝ｘ＾３B.Ｉｆａｎｄ（ｘ＜＝３ｙ，ｘ＞ｙ）Ｔｈｅｎｙ＝ｘ３C.**３D.【答案】A5.下面程序段()能够正确实现目的：如果XY，则A＝15，否则A＝－15。【答案】C6．下列程序段的执行结果为()x＝5y＝－20IfNotx0Thenx＝y－3Elsey＝x＋3Printx－y；Y－xA．－33B．5－8C．3－3D．25－25【答案】C7．在条件选择语句IF……ELSEIF……ELSE……EndIF中，当IF结构内有多个条件都为True时，则()A．VB依次执行条件为True的后面的语句块B．VB执行第一个为True的条件后面的语句块C．VB执行最后一个为True的条件后面的语句块D.VB执行任一个为True的条件后面的语句块【答案】B8．有如下VB程序段：PrivateSubCommand1_Click()Dimsngcjsngcj＝InputBox(”请输入学生的成绩：”，”输入成绩”)Ifsngcj＝85ThenMsgBox(”成绩优秀”)ElseIfsngcj＝60Andsngcj85ThenMsgBox(”成绩合格”)ElseMsgBox(”成绩较差”)EndIfEndSub当用户在界面输入“70”后，此时将会显示()的提示信息。A．成绩优秀B．成绩合格C．成绩较差D．成绩不合格【答案】B8．有如下VB程序段：PrivateSubCommand1_Click()Dimsngcjsngcj＝InputBox(”请输入学生的成绩：”，”输入成绩”)Ifsngcj＝85ThenMsgBox(”成绩优秀”)ElseIfsngcj＝60Andsngcj85ThenMsgBox(”成绩合格”)ElseMsgBox(”成绩较差”)EndIfEndSub当用户在界面输入“70”后，此时将会显示()的提示信息A．成绩优秀B．成绩合格C．成绩较差D．成绩不合格【答案】B9．下列VB程序的功能是输入一串字符，判断该字符串字符数奇偶。PrivateSubCommand1_Click()DimnvalueAsString,nlengthAsStringnvalue＝Text1.TextIfLen(nvalue)Mod20Thennlength＝”single”Elsenlength＝”double”EndIfLabel2.Caption＝nlengthEndSub运行程序后在文本框Text1中输入“Basic”，单击“Command1”按钮，标签Label2中输出()A．singleB．doubleC．1D．2【答案】A10．下列VB事件过程PrivateSubCommand_Click()MsgBoxStr(123＋456)EndSub运行时，在输出对话框中显示的提示信息是()A．123＋123B．”246”C．显示出错信息D．579【答案】D11．利用If语句补充完整如下计算分段函数代码：y＝PrivateSubForm_Click()DimxAsInteger,yAsIntegerx＝InputBox(”请输入一个数值”)Ifx20Then__________________________ElseIfx＝10Then_______________________ElseIf____________Then_______________________EndIfPrint”x＝”；x,”y＝”；yEndSub【答案】（1）y=x*x+3*x+2（2）y=sqr(3*x)-2（3）x0（4）y=1/x+abs(x)12．变量a，b，c分别保存一元二次方程的二次项、一次项系数和常数项(其中a≠0)，变量x1和x2分别保存方程的两个根。完善下列程序，使程序运行时能根据方程的a，b，c值计算根并输出相应信息。d＝______________________________Ifd0thenx1＝____________________x2＝____________________text4.text＝str(x1)text5.text＝str(x2)label6.caption＝”有两个不同的实数根”ElseIf________________________Thenx1＝(－b)/(2*a)x2=x1text4.text=str(x1)text5.text=str(x2)label6.caption=”有两个相同的实数根”Elsetext4.text=””text5.text=””label6.caption=”没有实数根”EndIfEndIf【答案】（1）Sqr(b*b-4*a*c)（2）(-b+d)/2*a（3）(b+d)/2*a（4）d=0