VB课本习题答案第三章

第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 ）。

页脚内容1

10．判别变量x是否大于0，若大于0，则累加到变量s1中，否则，累加到变量s2中，使用的单行结构条件语句为（If x>0 Then s1=s1+x Else s2=s2+x ）。

11．给定分段函数

⎪

⎩

⎪

⎨

⎧

<

=

>

-

+

=

1

2

1

2

x

x

x

x

x

y

，求y的值，使用的单行结构条件语句为（If x>0 Then

y=2*x+1 Else If x=0 Then y=0 Else y=2*x-1 ）。

12．判别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子句中的表达式表由逗号分隔的若干个常数组成，则它的含义是：当测试表达式的

页脚内容2

值等于（这些常数中的某一个）时，执行该case子句相应的程序块。

15．若case子句中的表达式表列具有形式：<表达式1> To <表达式2>，则它的含义是：当测试表达式的值等于（这个范围内的值）时，执行该case子句相应的程序块。

16．若case子句中的表达式表列具有形式：Is <关系运算符> <表达式>，则它的含义是：当测试表达式的值满足（Is后的关系）时，执行该case子句相应的程序块。

17．在循环语句中，反复执行的程序段称为（循环体）；进入循环体的条件称为（循环条件）；中止循环体执行的条件称为（结束循环条件）。

3．2 选择题

１．下列赋值语句中，( d )是正确的。

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

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

a) t=b : b=a : a=t b) a=a+b : b=a-b : a=a-b

c) t=a : a=b : b=t d) a=b : b=a

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

a) 0 b) 1 c) 2 d)3

4．若在消息框MsgBox中选择第二个按钮为默认值，则buttons参数的设置值是( b )。

a)0 b)256 c)512 d)768

5．若单击了“终止（Abort）”按钮，则MsgBox函数的返回值是（c ）。

页脚内容3

a)1 b)2 c)3 d)4

6．以下不正确的单行结构条件语句是（d ）。

a) If x>y Then Print “x>y”b) If x Then t = t * x

c) If x Mod 3=2 Then ? x d) If x<0 Then y = 2*x-1 : Print x End If 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 "*****"

以上程序（ c ）。

a) 没有输出b) 有语法错

c) 输出##### d) 输出*****

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

a) If a>b Then max=a Else max=b End If

b) If a>b Then max=a

Else max=b

End If

c) If a>b Then

页脚内容4