(A）TestDate=#1/1/2002# (B）TestDate#”1/12002”#
(C) TestDate=date(“1/1/2002”) (D) TestDate=format(“m/d/yy”,”1/1/2002”) 50.设有如下声明
Dim x as interger
如果sgn(x)的值为-1,则x的值是____D____
(A) 整数 (B)大于0的整数
(C） 等于0的数 (D)小于0的数 51. 下列可作为Visual Basic变量名的是____A____
(A）Filename (B）Ａ（Ａ＋Ｂ） (Ｃ）Ａ％Ｄ (Ｄ）Print 52. 数1.21576654590569D+019写成普通的十进制数是____D____
(Ａ）12157665459056900 (B)121576654590569000 (C)1215766545905690000 (D)12157665459056900000
53．设a=2,b=3,c=4,d=5，则表达式Not a<=c Or 4*c=b^2 And b<>a=c的值是____D____
(A)-1 (B)1 (C) ture (D)False 54. 数2.567E-12写成普通的十进制数是________
(A)0.0000000000002567 (B)0.0000000002567 (C)0.000000002567 (D)0.00000000002567 55. 在窗体画一个名称为command1的命令按钮，然后编写如下程序：
Private sub command1-click( ) Static x as integer Static y as integer
Cls Y=1 Y=y+5 X=x+5 Print x,y End sub
程序运行时，3次单击命令按钮command1后，窗体上显示的结束为________ (A） 15 16 (B） 15 6 (C） 15 15 (D） 5 6 56. 以下程序的输出结果是____B____。
Dim var1 Dim var2 Dim var3 Var1=”Hello” Var2=”World!”
var3=var1 &” ” & var2 var1=10 var2=20
msgbox var1+var2
(A)Hello World! (B) 30 (C) 1020 (D)hello world 57. 设a=3,b=5 , 则以下表达式值为真的是____B____。
- 36 -
(A）a>=b And b>10 (B)(a>b) Or (b>0)
(C) (a<0) Eqv (b>0) (D) (-3+5>a) And (b>0)
二. 填空题
1. 在VB中，1234、123456&、1.2346E + 5、1.2346D + 5四个常数分别表示整型、长整型、单精度、双精度类型。
2. 整型变量x中存放了一个两位数，要将两位数变换位置，例如，13变成31，实现的表
达式是(x mod 10)*10+x\\10。
x?e3?ln3x)(的3. 数学表达式sin15?|x?y|?VB算术表达式为
sin(15*3.14/180)+sqr(x+exp(3))/abs(x-y)-log(3*x)。 4. 数学表达式
a?b 的VB算术表达式为(a+b)/(1/(c+5)-(1/2)*c*d)。
11?cdc?525. 表示x是5的倍数或是9的倍数的逻辑表达式为x mod 5=0 or x mod 9=0。
6. 已知a = 3.5，b = 5.0，c = 2.5，d = True，则表达式：a > = 0 AND a + c > b + 3 OR NOT d
的值是0 或False。
7. Int(– 3.5)、Int(3.5)、Fix(– 3.5)、Fix(3.5)、Round(– 3.5)、Round(3.5)的值分别是-4、3、-3、3、-4、4。
8. 表达式Ucase(Mid(＂abcdefgh＂,3,4) )的值是CDEF。
9. 在直角坐标系中，(x,y)是坐标系中任意点的位置，用x与y表示在第一或第三象限的表
达式是x>0 and y>0 or x<0 and y<0。
10. 要以××××年××月××日形式显示当前机器内的日期的Format函数表达式为
Format(Date, \。
11. 计算已进入21世纪有多少天的函数表达式是________。
12. 计算离你毕业（假定毕业年月为2010年7月3日）还有多少个星期的函数表达式是
________。
13.下面程序的运行结果为_____8____。
X=-2.3 Y=125
Z=Len(Str$(x)+Str$(y)) Print z
14. 下列程序的运行结果为____-9____。
A=”1” B=”2”
A=Val(A)+Val(B) B=Val(“12”)
If A<>B Then Print A-B Else Print B-A
15. 假设变量 intVar 为一个整型变量，则执行赋值语句 intVar=”2”+3之后，变量intVar的值___5___；执行赋值语句intVar=“2”+“3”之后，变量intVar的值是___23____。 16.Visual Basic 中，允许一个变量未加定义直接使用，这样Visual Basic即把它当作变体型类型的变量，若使用Dim语句定义这种类型的变量，则在As后面应使用variant关键字。
- 37 -
17.设a=10, b=9, c=8, 则执行以下两条语句后，变量b的值是_____0___。
a=CInt(b/(10/(c/2))) b=c mod a
18.执行以下程序段后，输出结果是____10____。
a$=”ABCDEFGH” b=Len(Mid$(a$,5))
c= Len(Left$(a$,3))+ Len(right$(a$,3)) Print b+c
19.执行以下程序段后，变量e$的值是____43____。
a$=”3”:b$=”5”
c=Val(a$)+Val(b$) d=Val(a$+b$) e=c+d
20. 执行以下程序段后，变量b$的值是shanghai。
a$=”BeijingShanghai”
b$=Mid(a$,Instr(a$,”g”)+1)
21.执行以下程序后，输出结果是true。
X=10 Y=20 Z=30
Print not x>y or z=x+y and z>y
22.运行以下程序段后，输出结果为____8____。
a=4：b=2
Print a*（a-b）
第三章 选择结构程序设计
一. 选择题
1. VB提供了结构化程序设计的三种基本结构，三种基本结构是____D____。 （A） 递归结构、选择结构、循环结构 （B） 选择结构、过程结构、顺序结构
（C） 过程结构、输入、输出结构、转响结构 （D） 选择结构、循环结构、顺序结构
2. 结构化程序由三种基本结构组成，下面属于三种结构之一的是____B____。
（A）递归结构 （B）选择结构 （C）过程结构 （D）输入、输出结构 3. 下面程序段运行后，显示的结果是____A____。 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，下列说法正确的是____C____。 （A）x = 1和y = 1均为赋值语句 （B）x = 1和y = 1均为关系表达式
（C）x = 1为关系表达式，y = 1为赋值语句 （D）x = 1为赋值语句，y = 1为关系表达式
- 38 -
5. 用If语句表示分段函数f(x)???x?1,?x?3,2x?1x?1 下列不正确的程序段是____A___。
（A）If x > = 1 Then f = sqr(x + 1) （B）If x > = 1 Then f = sqr(x + 1)
f = x * x + 3 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)
?0,?1,?6. 计算分段函数y???2,??3,x?00?x?11?x?2x?2 的值。 下面程序段正确的是____D____。
（A）If x < 0 Then y = 0 （B）If x > = 2 Then y = 3
If x < 1 Then y = 1 If x > = 1 Then y = 2 If x < 2 Then y = 2 If x > 0 Then y = 1 If x > = 2 Then y = 3 If x < 0 Then y = 0 （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. 下面程序段，显示的结果是____A____。 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. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正
确的语句是____D____。
（A） If sex =＂男＂And age < 40 And InStr(duty,＂教授＂) > 0 Then n = n + 1
（B） If sex =＂男＂And age < 40 and (duty =＂教授＂or duty =＂副教授＂) Then n = n + 1 （C） If sex =＂男＂And age < 40 And Right(duty,2) = ＂教授＂Then n = n + 1
- 39 -