C.a=5:
b=8DoUntila-bPrint"*"b=b+1Loop
D.a=5:
b=8DoUntila>bPrint"*"a=a+1Loop
参考答案：
C
答案解析：
第20题：
下列有关子菜单的说法中，错误的是
A.除了Click事件之外，菜单项不可以响应其他事件
B.每个菜单项都是一个控件，与其他控件一样也有其属性和事件
C.菜单项的索引号必须从1开始
D.菜单的索引号可以不连续
参考答案：
C
答案解析：
第21题：
执行下列程序段后，输出的结果是
Fork1=0To4
y=20
Fork2=0To3
y=10
Fork3=0To2
y=y+10
Nextk3
Nextk2
Nextk1
Printy
A.90
B.60
C.40
D.10
参考答案：
C
答案解析：
第22题：
设有如下过程：
Subff（x，y，z，）
x=y+z
EndSub
以下所有参数的虚实结合都是传址方式的调用语句是
A.Callff（5,7,z）
B.Callff（x,y,z）
C.Callff（3+x,5+y,z）
D.Callff（x+y,x-y,z）
参考答案：
B
答案解析：
第23题：
设置命令按钮的属性时，只有将何属性设置为1，Picture属性才有效，否则无效?
A.Style
B.Caption
C.Enabled
D.Default
参考答案：
A
答案解析：
第24题：
通常情况下，垂直滚动条的值是
A.由下往上递增
B.由上往下递增
C.由左到右递增
D.由右到左递增
参考答案：
B
答案解析：
第25题：
下列程序段的执行结果为
a=95
Ifa>60ThenI=1
Ifa>70ThenI=2
Ifa>80ThenI=3
Ifa>90ThenI=4
Print"I=";I
A.I＝1
B.I＝2
C.I＝3
D.I＝4
参考答案：
D
答案解析：
第26题：
下列程序段的执行结果为
a=1
b=0
SelectCasea
Case1
SelectCaseb
Case0
Print"**0**"
Case1
Print"**1**"
EndSelect
Case2
Print"**2**"
EndSelect
A.**0**
B.**1**
C.**2**
D.0
参考答案：
A
答案解析：
第27题：
下面程序段执行结果为
x=Int（Rnd（）+4）
SelectCasex
Case5
Print"excellent"
Case4
Print"good"
Case3
Print"pass"
CaseElse
Print"fail"
EndSelect
A.excellent
B.good
C.pass
D.fail
参考答案：
B
答案解析：
第28题：
下列程序段的执行结果为
a=6
Fork=1To0
a=a+k
Nextk
Printk;a
A.-16
B.-116
C.16
D.1121
参考答案：
C
答案解析：
第29题：
下列程序段的执行结果为
a=1
b=1
ForI=1To3
f=a+b
a=b
b=f
Printf;
NextI
A.236
B.235
C.234
D.228
参考答案：
B
答案解析：
第30题：
下列过程定义语句中，形参个数为不确定数量的过程是
A.PrivateSubPro3（xAsDouble,yAsSingle）
B.PrivateSubPro3（Arr（3）,Optionx,Optiony）
C.PrivateSubPro3（ByRefx,ByValy,Arr（））
D.PrivateSubPro3（ParamArrayArr（））
参考答案：
D
答案解析：
第31题：
单击命令按钮时，下列程序的执行结果为
PrivateSubCommand1_Click（）
DimxAsInteger,yAsInteger
x=12:
y=32
CallPCS（x,y）
Printx;y
EndSub
PublicSubPCS（ByValnAsInteger,ByValmAsInteger）
n=nMod10
m=mMod10
EndSub
A.1232
B.232
C.23
D.123
参考答案：
A
答案解析：
第32题：
单击一次命令按钮后，下列程序的执行结果是
PrivateSubCommand1_Click（）
s=P
（1）+P
（2）+P（3）+P（4）
Prints
EndSub
PublicFunctionP（NAsInteger）
StaticSum
Fori=1ToN
Sum=Sum+i
Nexti
P=Sum
EndFunction
A.15
B.25
C.35
D.45
参考答案：
C
答案解析：
第33题：
下列程序的执行结果为
PrivateSubCommand1_Click（）
Dims1AsString,s2AsString
s1="abcdef"
CallInvert（s1,s2）
Prints2
EndSub
PrivateSubInvert（ByValxstrAsString,ystrAsString）
DimtempstrAsString
i=Len（xstr）
DoWhilei>=1
tempstr=tempstr+Mid（xstr,i,1）
i=i-1
Loop
ystr=tempstr
EndSub
A.fedcba
B.abcdef
C.afbecd
D.defabc
参考答案：
A
答案解析：
二、填空题（每空2分，共30分）
第34题：
数据结构分为逻辑结构与存储结构，线性链表属于___1___ 。
参考答案：
存储结构
详细解答：
第35题：
在面向对象方法中，类之间共享属性和操作的机制称为___2___。
参考答案：
继承
详细解答：
第36题：
耦合和内聚是评价模块独立性的两个主要标准，其中___3___ 反映了模块内各成分之间的联系。
参考答案：
内聚
详细解答：
第37题：
一个项目具有一个项目主管，一个项目主管可管理多个项目，则实体"项目主管"与实体"项目"的联系属于___4___的联系。
参考答案：
一对多（1∶N）
详细解答：
第38题：
数据库设计分为以下6个设计阶段：
需求分析阶段、___5___、逻辑设计阶段、物理设计阶段、实施阶段、运行和维护阶段。
参考答案：
概念设计阶段
详细解答：
第39题：
新建一个工程，内有两个窗体，窗体Form1上有一个命令按钮Command1，单击该按钮，Form1窗体消失，显示Form2窗体，程序如下：
PrivateSubCommand1_Click（）
___6___
Form2.___7___
EndSub
试补充完整。
参考答案：
Me.Hideshow
详细解答：
第40题：
用户可以用___8___语句定义自己的数据类型。
参考答案：
Type语句
详细解答：
第41题：
在窗体上画一个命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
x=0
DoUntilx=-1
a=InputBox（"请输入第一个数字a的值"）
a=Val（A）
b=InputBox（"请输入第二个数字b的值"）
b=Val（b）
x=InputBox（"请输入第三个数字x的值"）
x=Val（x）
a=a+b+x
Loop
Printa
EndSub
在程序运行后，单击命令按钮，在对话框中分别输入5，4，8，5，8，-1，输出结果为___9___。
参考答案：
12
详细解答：
第42题：
当对象得到焦点时，会触发___10___事件，当对象失去焦点时将触发___11___事件。
45把窗体的KeyPreView属性设置为True，并编写如下两个事件过程：
PrivateSubForm_KeyDown（KeyCodeAsInteger,ShiftAsInteger）
PrintKeyCode
EndSub
PrivateSubForm_KeyPress（KeyAsciiAsInteger）
PrintKeyAscii
EndSub
程序运行后，如果按下B键，则在窗体上输出的数值是___12___和___13___。
参考答案：
GotFocusLostFocus
详细解答：
第43题：
在文件对话框中，假定有一个名为"fc.exe"的文件，它位于"d:
＼pp"目录下，则"FileName"属性的值为___14___；FileTitle属性的值为___15___。
参考答案：
d:
＼pp\fc.exefc.exe
详细解答：
升级会员 