VB作业第三章习题答案

本文由goodlak贡献

亲亲资料网

第3章

程序流程控制

3．1 填空题 1．设变量r 表示圆的半径，则计算圆的面积并赋给变量s使用的赋值语句为（ s=3.14159*r*r ）。 2 ．给命令按钮Command2 的 Caption 属性赋予字符串“退出”使用的赋值语句为（ Command2.Caption=＂退出＂）。 3．为了求n 的阶乘，要求用户输入n的值。程序使用InputBox函数输入，要求对话框提示信息为“请输入一个求阶乘的数：”，标题为“求数的阶乘”，并且正确地把输入的信息转换为数值存放到变量n中，则使用的赋值语句为（ n=val（InputBox（＂请输入一个求阶乘的数：＂，＂求数的阶乘＂））。４．如果使用MsgBox对话框显示提示信息“退出本系统？”，并显示“是（Yes）”和“否（No）”两个按钮，显示图标“？”号，指定第一个按钮为默认值以及标题为“提示信息”，则调用MsgBox 函数的形式为（ MsgBox（＂退出本系统? ＂，4+32+0，＂提示信息＂））。５．如果使用MsgBox对话框显示提示信息“文件未找到！”，并显示“确定”按钮、图标“！”号和标题“文件查找”，则使用的MsgBox语句为（ MsgBox＂文件未找到＂，0+48+0，＂文件

查找＂）。６．要在当前窗体Form和立即窗口输出字符串“Visual BASIC 6.0”使用的Print方法分别是( Print “Visual BASIC 6.0” )和( Debug.Print “Visual BASIC 6.0” )。７．使用Print方法

时，若用逗号分隔，则按( 标准 )格式输出各表达式的值，若用分号分隔，则按( 紧凑 )格式输出各表达式的值。８．注释语句是一个（非执行）语句，VB不对它们进行编译，对程序的执行结果没有任何影响。９．判别变量i是否为偶数，若为偶数就把它显示出来。使用单行结构条件语句为（ If i Mod 2=0 Then print x ）。 10．判别变量x是否大于0，若大于0，则累加到变量s1中，否则，累加到变量s2中，使用的单行结构条件语句为（ If x>0 Then s1=s1+x Else s2 =s2+x ）。

2x + 1 x > 0 y = 0 x = 0 2x − 1 x < 0 11．给定分段函数，求y的值，使用的单行结构条件语句为

If x>0 Then y=2*x+1 Else If x=0 Then y=0 Else y=2*x-1 ）。 1 2．判别a是否等于b，若a=b，则输出字符串“a is equal to b”的块结构条件语句为（）。答案：

If a=b Then Print “a is equal to b” End

（

13．判别ch是否为小写字母，若是，输出“yes”；否则，输出“No”的块结构条件语句为（）。答案：

If Asc(ch)>=97 And Asc(ch)<=122 Then Print “Yes” Else

Print “No” End If

14．若一个case子句中的表达式表由逗号分隔的若干个常数组成，则它的含义是：当测试表达式的值等于（这些常数中的某一个）时，执行该case子句相应的程序块。 15．若case子句中的表达式表列具

有形式：<表达式1> To <表达式2>，则它的含义是：当测试表达式的值等于（这个范围内的值）时，执行该case子句相应的程序块。 16．若case子句中的表达式表列具有形式： <关系运算符> <表达式>， Is 则它的含义是：当测试表达式的值满足（ Is后的关系）时，执行该case子句相应的程序块。 17．在循环语句中，反复执行的程序段称为（循环体）进入循环体的条件称为；（循环条件）；中止循环体执行的条件称为（结束循环条件）。 3．2 选择题１．下列赋值语句中，( d )是正确的。

ａ)x！＝＂abc＂ a) t=b : b=a : a=t c) t=a : a=b : b=t b)a％＝＂10e＂ c)x＋１＝５ d)s＄＝100

2．下列选项中，( d )不能交换变量a和b的值。

b) a=a+b : b=a-b : a=a-b d) a=b : b=a

3．若在消息框MsgBox中显示“确定(Ok)”和“取消(Cancel)”两个按钮，则buttons参数的设置值是( b )。

a) 0 a)0 a)1 a) c) b) 1 b)256 b)2 c)3 b) d) c) 2 c)512 d)4 If x Then t = t * x If x<0 Then y = 2*x-1 : Print x End If d)3 4．若在消息框MsgBox中选择第二个按钮为默认值，则buttons参数的设置值是( b

d)768

)。

5．若单击了“终止（Abort）”按钮，则MsgBox函数的返回值是（ c ）。 6．以下不正确的单行结构条件语句是（ d ）。

If x>y Then Print “x>y” If x Mod 3=2 Then ? x

7．给定程序段

Dim a As Integer, b As Integer, c As Integer a=1：b=2：c=3 If a=c-b Then Print "#####" Else Print "*****" b) 有语法错 d) 输出***** Then max=a Then max=b max=a Else max=b End If

以上程序（ c ）。

a) 没有输出 c) 输出##### a) b) If If a>b a>b

8．把a, b之中的最大值存放于max，下面语句书写正确的是（ d ）。Else End If c) If a>b max=a Else max=b d) If a>b

Then

Then

max=a Else max=b End If

9. 下列Case语句中正确的是（ c ）。

a) Select Case x Case 1 Or 3 Or 5 y=x*x-1 Case Is >10 y=x+1 E nd Select b) Select Case x Case 1, 3, 5 y=2*x-1 Case Is x <=1 Y=2*x+1 End Select c) Select Case x Case Is <=0 y=x-1 Case I s >0 y=Sqr(x)+1 End Select d) Select Case x Case x>=1 And x<= 5 y=x-1 Case Is >10 y=x*x+1 End Select10．执行下列程序段后屏幕上（

c ）。

i% = 10 : Sum = 0 While i > 1 Sum = Sum + i i = i - 1 Wend Pr int Sum