（A）1 （B）11 （C）14 （D）99
17. 表达式Len（\程序设计ABC\）的值是（ ）。 （A）10 （B）14 （C）20 （D）17
18. 表达式LenB（\程序设计ABC\）的值是（ ）。 （A）10 （B）14 （C）20 （D）17 19. 下面正确的赋值语句是（ ）。
（A）x+y=30 （B）y=π*r*r （C）y=x+30 （D）3y=x
20. 为了给x, y, z三个变量赋初值1，下面正确的赋值语句是（ ）。 （A）x=l：y=l：z=l （B）x=l，y=l，z=l （C）x=y=z=1 （D）xyz=l
21. 赋值语句：a=123+MID(\执行后，a变量中的值是（ ）。 （A）“12334” （B）123 （C）12334 （D）157 22. 赋值语句：a=123 & MID(\执行后，a变量中的值是（ ）。 （A）“12334” （B）123 （C）12334 （D）157 23. 如下程序： e=30: f=20: Print e>f 该程序的执行结果是（ ）。
（A）1 （B）True （C）0 （D）False 24. 如果在立即窗口执行如下语句： a$=\
c$=b$ & ucase(mid(a,3,8)): print c 则输出结果是（ ）。
（A）DeleteFAVERATE （B）DELEThFAVERATE
（C）DeleteMYFAVERATE （D）MYFAVERATE 25. 下列选项中，合法的变量名是（ ）。
（A）5X_yz （B）d%a （C）Else （D）sum_3 26. 下列表达式中，不合法的是（ ）。
（A）C= \（B）C=1+2/3 （C）C= \（D）C=[3*7+6-5]/6 27. 下面（ ）是合法的字符常数。
（A）True$ （B）\（C）’True’ （D）True 28. 表达式64/2^3—4^2*8/4 MOD 7\\2的值为（ ）。
（A）4 （B）16 （C）6 （D）8 29. 数学关系5≤y<7表示成正确的VB表达式为（ ）。 （A）5<=y<7 （B）5<=y OR y<7 （C）y>=5 AND y<7 （D）5<=y AND <7
30. ^ 、 /、 Mod、 * 四个算术运算符中，优先级别最低的是（ ）。 （A） ^ （B） / （C）Mod （D）*
31. 为了给a,b两个变量赋初值2，下面正确的赋值语句是（ ）。 （A）a=2：b=2 （B）a=2，b=2
6
（C）a=b=2 （D）ab=2
2.2填空题
1. 在VB中，1234、123456＆、1.2346E+5、1.2346D+5四个常数分别表示
（ ）、（ ）、（ ）、（ ）类型。
2. 整型变量x中存放了一个两位数，要将两位数交换位置，例如，13变成
31，实现的表达式是（ ）。 x?e3? ?ln(3x)的VB算术表达式为 3. 数学表达式sin15°x?y
（ ）。
a?b4. 数学表达式 的VB算术表达式为（ ）。
11 ?cdc?52
5. 表示x是5的倍数或是9的倍数的逻辑表达式为（ ）。 6. 已知a=3.5，b=5.0，c=2.5，d=True，则表达式：a>=0 AND a+c>b+3 OR NOT
d的值是（ ）。
7. Int(-3.5)、Int(3.5)、Fix(-3.5)、Fix(3.5)、Round(-3.5)、Round(3.5)
的值分别是（ ）、（ ）、（ ）、（ ）、（ ）、（ ）。
8. 表达式Ucase(Mid(\的值是（ ）。
9. 在直角坐标系中，(x，y)是坐标系中任意点的位置，用x与y表示在第一
或第三象限的表达式是( )。
10. 要以x x x x年x x月x x日形式显示当前机器内日期的Format函数表
达式为( )。
11. 计算离你毕业(假定毕业年月为2010年7月3日)还有多少个星期的函数
表达式是( )。
12. 表示s字符变量是字母字符(大小写字母不区分)的逻辑表达式为
( )。 2.3 编程题
1．利用InputBox输入三角形三条边的长度a, b, c，计算并显示三角形的面积。公式为： 面积=s(s?a)(s?b)(s?c)，其中s=(a+b+c)/2
2．用InputBox输入一个正实数，用Print方法在一行上显示出它的平方和平方根、立方
和立方根，每个数保留三位小数，之间有间隔。
7
习题二 参考答案
2.1 选择题
1.B 2.C 3.A 4.D 5.B 6.A 7.D 8．B 9．B 10.C 11.D 12.B 13.C 14.B 15.A 该函数表示在当前日期按“m”月格式加一个月，本应该C，但这是不合法的日期。
16.C 17.A 18.C 19.C 20.A 21.D 22.A 23.B 24.A 25.D 26.D 27.B 28.C 29.C 30.C 31.A
2.2 填空题
1.整型、长整型、单精度型、双精度型 2．(x mod 10)*10+x＼10
3．sin(15*3.14／180)+sqr(x+exp(3))／abs(x-y)-log(3* x)
4．(a+b)／(1／(c+5)—c*d／2) 5．x mod 5=0 or x mod 9=0 6．False
7． -4, 3, -3, 3, -4, 4 8．CDEF
9．x>0 And Y> 0 or x<0 And Y<0
10．Format(Date，”YYYY年mm月dd日”)
11．DateDiff(“d”, #1／1／2001#，Now)+1 12．DateDiff(“ww”，Now，#7／3／2004#) 13．UCase(s)>=”A” And UCase(s)<=”Z”
2.3 编程题
1.Private Sub Command1_Click() Dim a&, b&, c&, s#
a = InputBox(\请输入三角形a边的长度\ b = InputBox(\请输入三角形b边的长度\ c = InputBox(\请输入三角形c边的长度\ s = (a + b + c) / 2
Text1 = Sqr(s * (s - a) * (s - b) * (s - c)) End Sub
2.Private Sub Command1_Click()
Dim a#
a = InputBox(\请输入一个正实数\
Print a ^ 2, Sqr(a), a ^ 3, a ^ (1 / 3) End Sub
8
习 题 三
3.1 选择题
1. VB也提供了结构化程序设计的三种基本结构，三种基本结构是（ ）。 （A）递归结构、选择结构、循环结构 （B）选择结构、过程结构、顺序结构
（C）过程结构、输入、输出结构、转向结构 （D）选择结构、循环结构、顺序结构 2. 结构化程序由三种基本结构组成，下面属于三种基本结构之一的是（ ）。 （A）递归结构 （B）选择结构
（C）过程结构 （D）输入、输出结构 3. 下面程序段运行后，显示的结果是（ ）。
Dim x%
If x Then Print x Else Print x+1
（A）1 （B）0 （C）-1 （D）显示出错信息 4. 语句If x=1 Then y=1，下列说法正确的是（ ）。 （A）x=1和y=1均为赋值语句 （B）x=1和y=l均为关系表达式
（C）x=1为关系表达式，y=l为赋值语句 （D）x=1为赋值语句，y=l为关系表达式
??x?1,x??15. 用If语句表示分段函数f(x)??2，下列不正确的程序段是
??x?3,x?1（ ）。
（A）f=x*x+3 （B）If x>=1 Then f=sqr(x+1) If x>=1 Then f=sqr(x+1) If x<1 Then f=x*x+3 （C）If x>=1 Then f=sqr(x+1） （D）If x<1 Then f=x*x+3 _ Else f=x*x+3 Else f=sqr(x+1) 6. 计算分段函数值。
?0, x?0?1, 0?x?1? y??1?x?2?2, ??3, x?2 下面程序段中正确的是（ ）。
（A）If x<0 Then y=0 （B）If x>=2 Then y=3 If x
9
（C）If x<0 Then （D）If x>=2 Then
y=0 y=3
ElseIf x>0 Then ElseIf x>=1 Then y=1 y=2
ElseIf x>1 Then ElseIf x>=0 Then y=2 y=1 Else Else y=3 y=0 End If End If 7. 下面程序段，显示的结果是（ ）。 Dim x
x=Int（Rnd）十5 Select Case x Case 5
Print”优秀” Case 4
Print“良好” Case 3
Print“通过” Case Else
Print“不通过” End Select
（A）优秀 （B）良好 （C）通过 （D）不通过 8. 下面程序段求两个数中的大数，（ ）不正确。
（A）Max=IIf(x>y，x，y) （B）If x>y Then Max=x Else Max=y （C）Max=x （D）If y>=x Then Max=y If y>=x Then Max=y Max=x
9. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click() x=InputBox(\ Select Case x
Case 1,3
Print \分支 1\
Case Is >4
Print \分支 2\Case Else
Print \分支 \End Select
10