vb第4章 vb控制结构

《vb第4章 vb控制结构》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第4章VB控制结构一．例题解析（1）设有语句x=InputBox("输入数值","0","示例"),程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是。A)变量x的值是数值10B)在InputBox对话框标题栏中显示的是“示例”C)0是默认值D)变量x的值是字符串"10"【答案】D【解析】InputBox函数一般格式是：InputBox(<提示>[,标题][,默认值][,X][,Y][,帮助文件名,上下文编号])参照一般格式可知，题干中的“输入数值”是对话框的提示部分，“0”是对话框的标题，“示例”是对话框的默认值。由于程序运行时用户输入了10，且该函数的返回值

2、是字符串，所以选项D是正确答案。（2）在窗体上放置一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Dima,ba=InputBox("请输入一个整数")b=InputBox("请输入一个整数")Printb+aEndSub程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为。A)321456B)456321C)777D)有语法错误，不能执行【答案】B【解析】“+”运算符有两个作用：对于字符串型运算数，执行字符串连接运算；对于数值型运算数，执行加法运算。InputBox函数的返回值是字符串，所以执行字符串连接运算，即将字

3、符串a连接到字符串b之后，结果为456321。（3）运行下列程序，单击窗体，则消息框中显示的提示是。PrivateSubForm_Click()MsgBoxStr(123+123)EndSubA)123+123B)"246"C)246D)显示出错信息【答案】C【解析】MsgBox语句后给定的字符串参数Str(123+123)是消息框中要显示的提示信息。Str(123+123)函数首先计算算术表达式123+123，结果为246，然后将其转换为MsgBox语句所需要的字符串类型的参数。但消息框中显示提示信息时不带字符串两侧的双引号定界符。（4）执行如下语句后，Print语句的输出结果

4、是。A=100PrintIIf(A>50,"Large","Small")A)1000B)TrueC)LargeD)Small【答案】C【解析】IIF函数的一般格式是IIf(表达式1，表达式2，表达式3)。当表达式1的值为True时，函数返回表达式2的值，否则返回表达式3的值。因而本题的正确答案是选项C。（5）下列语句中，与Else匹配的If语句是。Ifx>0ThenIfx<10ThenPrintxElsePrintx*2EndifEndifA)第一个B)第二个C)第一个或第二个D)程序有错误【答案】B【解析】当出现If语句的嵌套时，Else总是与它前面离它最近的一个If语句匹配

5、，即“最近匹配原则”。（6）运行下列程序，单击窗体，则输出结果是。PrivateSubForm_Click()M=5IfM>=0ThenN=1IfM>=1ThenN=2IfM>=2ThenN=3PrintN;EndSubA)1B)2C)3D)123【答案】C【解析】按照语句的执行顺序，M首先被赋值为5，然后判断第一个条件M>＝0，条件满足，变量N被赋值为1；继续判断第二个条件M>=1，条件仍然满足，变量N重新被赋值为2；最后判断第三个条件M>=2，条件仍然满足，所以变量N的值最后被赋值为3。Print语句输出变量N的值是3。（7）运行下列程序，单击窗体，从键盘输入50，则输出结果

6、是。PrivateSubForm_Click()a=Val(InputBox("A="))SelectCaseaCaseIs<100:Printa+1;CaseIs<80:Printa+2;CaseIs<60:Printa+3;CaseElse:Printa+4;EndSelectEndSubA)51B)52C)53D)51525354【答案】A【解析】SelectCase语句的执行方法是：用测试表达式的值与第一个Case子句的表达式值进行比较，如果匹配，则执行第一个Case子句下的语句，执行完成结束Select语句的执行；如果不匹配，依次比较第二、第三、……各Case子句。本例

7、题中，A＝50，与第一Case子句的条件匹配（Is<100），所以输出结果是51。（8）在For循环中，循环控制变量的增量（循环步长）。A)只能是整数B)只能是正整数C)只能是不为0的整数D)任何数值型数据【答案】D【解析】For循环的控制变量和它的增量可以是任何一种数值型数据。但如果增量为0，在循环体内，必须有可以结束循环的语句，否则会形成“死循环”。（9）运行下列程序后，单击窗体，则其中的循环体一共被执行次。PrivateSubForm_Click()ForI=7To100S