A.TrueB.FalseC.表达式有错D.条件不足
39.在窗体模块的声明段中声明变量时,不能使用的关键字是___D____.
A.PrivateB.PublicC.DimD.Static
40.选拔身高T超过1.7米且体重W小于62.5公斤的人,表示该条件的表达式为___C____.
A.T=62.5B.T>1.7OrW1.7AndW<62.5D.T=62.5
41.在过程内部定义的局部变量,仅在声明它的___B____中有效.
A.方法B.过程C.属性D.对象
42.假设A="GoodMorning.",B="Afternoon,Boys.",下列表达式中结果是"GoodBoys."的
是_A__.
A）Left（A,5）+Right（B,5）B）Right（A,5）+Left（B,5）
C）Mid（A,1,5）+Mid（B,1,6）D）Right（A,5）+Right（B,5）
43.下列关于变体类型的描述,其中正确的是___C____.
A.变体是一种没有类型的数据
B.变体的空值就表示该变体的值为0
C.一个变量没有定义就赋值,该变量即为变体类型
D.变体是赋给变量某一种类型数据后,就不能再赋给它另一类型的数值
44.下列程序段的运行结果为____B___.
Fori=3To1Step-1
PrintSpace（5-i）;
Forj=1To2*i-1
Print"*";
Nextj
Print
Nexti
A.*B.*****C.*****D.*****
************
********
45.执行PRINT18/2*3,-3^2命令后,输出结果为___C___.
A.39B.3-9C.27-9D.-927
46.执行PRINT9.4\3.7,9.4MOD3.7命令后,输出结果为___A____.
A.21B.30C.220D.12
47.运行以下程序段后,输出结果为___C____.
x%=1/4
y%=11/4
PRINTx%;y%
A.0.250.75B.02C.03D.13
48.窗体里有两个对象,分别是图片框Picture1和标签Label1,下面关于Print方法的使用中,错误的一条是___D____.
A.Picture1.Print147B.Print147C.Printer.Print147D.Label1.Print147
49.下面的___B____语句可以实现:
先在窗体上输出大写字母A,然后在同一行的第10列输出小写字母b.
A.Print"A";Tab（9）;"b"B.Print"A";Tab（10）;"b"
C.Print"A";Space（10）;"b"D.Print"A";Tab（8）;"b"
50.阅读下面的程序段:
n1=InputBox（"请输入第一个数:
"）
n2=InputBox（"请输入第二个数:
"）
Printn1+n2
当输入分别为111和222时,程序输出为___A____.
A.111222B.222C.333D.程序出错
51.语句PrintFormat（"HELLO","<"）的输出结果是____B___.
A.HELLOB.helloC.HeD.he
52.设a=2:
b=0,则语句Print（a=2）And（b=-2）的输出结果是___D____.
A.TrueB.结果不确定C.-1D.False
53.以下程序段运行后,输出字符的排列顺序是___D____.
Fori=1To6
IfiMod2=0Then
Print"#";
Else
Print"*";
EndIf
Nexti
A.#*#*#B.#####C.*****D.*#*#*#
54.用MsgBox函数显示的对话框,以下叙述正确的是___D____.
A.该对话框有一个"确定"按钮
B.该对话框有"是","否"两个按钮
C.该对话框有"是","否","取消"三个按钮
D.该对话框通过选择参数可以得到以上不同的的按钮组合
55.与语句Dimabc%作用相同的语句是___A____.
A.DimabcAsIntegerB.DimabcAsLong
C.DimabcAsStringD.DimabcAsDate
56.设a=1,b=2,c=3,d=4,则表达式IIf（a5,-1,0）后,x的值为___D___.
A.5B.6C.0D.-1
71.表达式Int（5*Rnd+1）*Int（5*Rnd-1）值的范围是___D____.
A.[0,15]B.[-1,15]C.[-4,15]D.[-5,15]
72.可以同时删除字符串前导和尾部空格的函数是___C____.
A.LtrimB.RtrimC.TrimD.Mid
73.当函数MsgBox返回值为1,对应的符号常量是vbOK,那么此时表示用户做的操作是___A___.
A.用户单击了对话框中的"确定"按钮B.用户单击了对话框中的"取消"按钮
C.用户单击了对话框中的"是"按钮D.用户单击了对话框中的"否"按钮
74.函数Int（Rnd*5）+1产生的随机整数的范围是___D____.
A.[0,6]B.[1,6]C.[0,5]D.[1,5]
75.在VB中,InputBox函数的默认返回值类型为字符串,用InputBox函数输入数值型数据时,下列操作中可以有效防止程序出错的操作是___A____.
A.在函数InputBox前面使用Val函数进行类型转换
B.在函数InputBox前面使用Str函数进行类型转换
C.在函数InputBox前面使用Value函数进行类型转换
D.在函数InputBox前面使用String函数进行类型转换
76.已知a="12345678",则表达式Right（a,4）+Mid（a,3,2）的值是___B____.
A."123445"B."567834"C.123445D.567834
77.表达式Len（"123程序设计ABC"）的值是___A____.
A.10B.14C.20D.17
78.赋值语句g=123+Mid（"123456",3,2）执行后,变量g中的值是___D____.
A."12334"B.123C.12334D.157
79.如果x是一个正实数,对x的第3位小数四舍五入的表达式是___B____.
A.0.01*Int（x+0.005）B.0.01*Int（100*（x+0.005））
C.0.01*Int（100*（x+0.05））D.0.01*Int（x+0.05）
80.以下程序执行后,输出的结果是___A____.
m$="123"
n$="456"
k$=LCASE$（m$）
j$=UCASE$（n$）
Printk$,j$
A.123456B.!
@#$%^C.4952D.3336
81.MsgBox函数的返回值的类型是___A____.
A.整型B.字符串C.逻辑值D.日期型
82.A=5,B=8,则（B-A）*Rnd+A的结果是介于___A____之间的数.
A.5～8B.0～5C.3～5D.0～3
83.使用下列语句:
Dimx（1to10,3）AsSingle,则数组占用内存空间的字节数是___C____.
A.132B.80C.160D.120
84.用SelectCase语句选择|x|10D.Is10
85.若x=1,执行语句IfxThenx=0Elsex=1的结果是__D_____.
A.实时错误B.编译错误C.x=1D.x=0
86.以下程序代码能执行的是___C____.
A.Ifa=1Thenb=0Elsec=0EndIf
B.Ifa=1Then:
B=0:
ElseIfC=0Then:
D=0
C.Ifa=1Then
b=0
ElseIfc=0Then
d=0
EndIf
D.Ifa=1Then
b=0
ElseIfc=0
d=0
EndIf
87.下列程序段的循环结构执行后,i的输出值是___C____.
DimyasInteger
Fori=1To10Step2
y=y+i
Nexti
Printi
A.25B.10C.11D.因为y初值不知道,所以不确定
88.循环结构Fori=1To10Step1.5的执行次数是___A____.
A.7B.8C.9D.10
89.下列结构中不属于循环结构的是___C____.
A.For/NextB.While/WendC.With/EndWithD.Do/Loop
90.下列结构中不属于分支结构的是___C____.
A.If/EndIfB.SelectCase/EndSelectC.With/EndWithD.If/Else/End
If
91.以下程序段的运行结果是___D____.
PrivateSubForm_Click（）
m=1
n=1
Do
m=m*n
n=n+1
LoopUntiln>4
Printm
EndSub
A.25B.45C.55D.24
92.以下程序段的运行结果是___A____.
PrivateSubForm_Click（）
DimsAsLong,fAsLong
DimnAsInteger,iAsInteger
f=1
n=4
Fori=1Ton
f=f*i
s=s+f
Nexti
Print"s=";s
EndSub
A.33B.34C.35D.36
93.以下程序段的运行结果是___B____.
PrivateSubForm_Click（）
DimIAsInteger,XAsString,YAsString
X="ABCDEFG"
ForI=4To1Step-1
Y=Y+Mid（X,I,1）
NextI
PrintY
EndSub
A.ABCDB.DCBAC.DEFGD.GFED
94.以下程序段的运行结果是__C__.
PrivateSubForm_Click（）
DimbAsInteger,kAsInteger
b=1
Fork=1To5
b=b*k
Ifb>=15Then
ExitFor
EndIf
Nextk
Printk,b
EndSub
A.315B.212C.424D.515
95.以下程序段的运行结果是___A____.
PrivateSubForm_Click（）
a=1
b=a
DoUntila>=5
X=a*b
PrintStr（a）&"*"&Str（b）&"=";Str（X）,
a=a+b
b=b+a
Loop
EndSub
A.1*1=12*3=6B.1*1=22*2=4C.1*1=13*3=9D.1*1=23*2=6
96.以下程序段的运行结果是___B____.
PrivateSubForm_Click（）
x="abcdef"
y=Asc（"b"）-Asc（"a"）
z=Len（x）
Printy,z
EndSub
A.12B.16C.22D.26
97.下面程序段运行后,显示的结果是___A____.
Dimx
IfxThenPrintxElsePrintx+1
A.1B.0C.-1D.显示出错信息
98.运行下列程序段,显示的结果是___A____.
x=Int（Rnd）+5
SelectCasex
Case5
Print"优秀"
Case4
Print"良好"
Case3
Print"通过"
CaseElse
Print"不通过"
EndSelect
A.优秀B.良好C.通过D.不通过
99.下列If语句统计满足性别为男,职称为副教授以上,年龄小于40岁条件的人数,不正确的语句是___D___.
A.Ifsex=〃男〃Andage0Thenn=n+1
B.Ifsex=〃男〃Andage<40and（duty=〃教授〃orduty=〃副教授〃）Thenn=n+1
C.Ifsex=〃男〃Andage<40AndRight（duty,2）=〃教授〃Thenn=n+1
D.Ifsex=〃男〃Andagey,x,y）
B.Ifx>yThenMax=xElseMax=y
C.Max=x
Ify>=xThenMax=y
D.Ify>=xThenMax=y
Max=x
101.以下正确的程序段是___B___.
A.Forx=1ToStep10B.Forx=3To-3Step-3
……
NextxNextx
C.Forx=1To10D.Forx=10To1
re:
……
NextxNexty
Ifi=10ThenGoTore
102.下列循环能正常结束的是___C____.
A.i=5B.i=1
DODO
i=i+1i=i+2
LoopUntili10LoopUntili=1
103.若要退出For循环,可使用的语句为____D___.
A.ExitB.ExitDoC.TimeD.ExitFor
104.当a=1,b=3,c=5,d=4时,执行下面一段程序后,x的值为___B___.
Ifa
Ifc
x=1
Else
x=2
EndIf
Else
Ifc0
y=x+1
CaseIs=0
y=x+2
CaseElse
y=x+3
EndSelect
Printx;y
A.-5-2B.-5-4C.-5-3D.-5-5
106.下面程序段的作用是___D____.
m=0:
n=0
Fori=1To10
x=Val（InputBox（"请输入x的值:
"））
Ifx>0Then
m=m+x
ElseIfx="副教授"ANDA$="女"THENN=N+1
D.IFA$="女"AND（B$="副教授"ORB$="教授"）THENN=N+1
110.以下程序段执行后,变量s,x的值分别为___C____.
DimsAsInteger,xAsInteger
s=10:
x=1
DoWhilexcThen
d=d+x（i）
c=x（i）
Else
d=d-c
EndIf
Nexti
Printd
EndSub
程序运行后,单击命令按钮,输出结果是___C____.
A.89B.99C.23D.77
129.以下程序段的运行结果是__D__.
PrivateSubForm_Click（）
Dimary（1To4）AsInteger
DimiAsInteger
DimsumAsInteger
sum=1
Fori=1To4
ary（i）=i
sum=sum+ary（i）
Nexti
Printsum
EndSub
A.8B.9C.10D.11
130.下列语句声明的数组a包含的元素个数有___A____.
Dima（3,-2to2,5）
A.120B.75C.60D.13
131.以下程序输出的结果是___C____.
OptionBase1
升级会员 