仿真试题二a.docx
《仿真试题二a.docx》由会员分享，可在线阅读，更多相关《仿真试题二a.docx（15页珍藏版）》请在冰豆网上搜索。
仿真试题二a
计算机等级考试二级VB全真模试题
（二）
一、选择题：
1.无论何控件，都具有一个共同属性。
这个属性是（C）
A）Text
B）Font
C）Name
D）Caption
1.表达式3∧2*2+3MOD10\4的值是（C）
A）18
B）1
C）19
D）0
3.下面的变量名合法的是（A）
A）k_name
B）kame
C）name
D）k-name
4.设有如下变量声明Dimtime1AsDate,为变量time1正确赋值的表达式是（A）
A）time1=#11:
34:
04#
B）time1=Format（Time,"yy:
mm:
dd"）
C）time1=#"11:
34:
04"#
D）time1=Format（"hh:
mm:
ss",Time）
5.表达式12000+"129"&200的值是（B）
A）12329
B）"12129200"
C）"12000129200"
D）"12329"
6.若设a=4,b=5,则下列表达式值为真的是（D）
A）（True+a）>0Andb>10
B）a>bOrb>10-a
C）（False-b<0）Eqv（a>b）
D）a>bXorb+3>5
7.在窗体上画一个名称为Command1的命令按钮，编写以列程序：
PrivateSubCommand1_Click（）
DimaAsInteger
StaticbAsInteger
a=a+b
b=b+4
Printa,b
EndSub
程序运行后，单击该命令按钮三次，屏幕上最后一行显示的值是（D）
A）412
B）04
C）48
D）812
8.VisualBasic是一种面向对象的程序设计语言，构成对象的三要素是（B）
A）属性、控件和方法
B）属性、事件和方法
C）窗体、控件和过程
D）控件、过程和模块
9.下列程序段错误的是（A）
A）DimaAsInteger
a=array（1,2,3,4）
B）Dima（）,b（）
a=array（1,2,3,4）:
b=a
C）DimaAsVariant
a=array（1,"asd",true）
D）Dima（）AsVariant
a=array（1,2,3,4）
10.表达式String（1,"Iamstudent"）+Replace（"amharass","rass","ppy"）&"!
"的值是（A）
A）"Iamhappy!
"
B）"IamstudentIamsamharassstudentamhappy!
"
C）"Iamstudentamharass!
"
D）"Iamstudentamhappy!
"
11.下列程序段中，能正常结束循环的是（C）
A）I=1
Do
I=I+2
LoopUntilI=10
B）I=5
Do
I=I+1
LoopUntilI<0
C）I=10
Do
I=I+1
LoopUntilI>0
D）I=6
Do
I=I-2
LoopUntilI=1
12.引用列表框（List1）最后一个数据项应使用的表达式是（B）
A）List1.List（List1.ListCount）
B）List1.List（List1.ListCount-1）
C）List1.List（ListCount）
D）List1.List（ListCount-1）
13.有如下程序：
OptionBase1
PrivateSubCommand1_Click（）
Dimx,y（3,3）
x=Array（1,2,3,4,5,6,7,8,9）
Fori=1To3
Forj=1To3
y（i,j）=x（i*j）
If（j>=i）ThenPrinty（i,j）;
Nextj
Print
Nexti
EndSub
运行时输入出的结果是（D）
A）123
246
468
B）123
246
369
C）1
24
369
D）123
46
9
14.在窗体上画一个名称为Command1的命令按钮，编写如下程序：
PrivateSubCommand1_Click（）
Printpl（3,7）
EndSub
PublicFunctionpl（xAsSingle,nAsInteger）AsSingle
Ifn=0Then
pl=1
Else
IfnMod2=1Then
pl=x*x+n
Else
P1=x*x-n
EndIf
EndIf
EndFunction
程序运行后，单击该命令按钮，屏幕上显示的结果是（D）
A）2
B）1
C）0
D）16
15.以下属性和方法中，可重定义坐标系的是（C）
A）DrawStyle属性
B）DrawWidth属性
C）Scale方法
D）ScaleMode属性
16.在窗体上画一个文本框，然后编写如下事件过程：
PrivateSubForm_Load（）
Text1.Text=""
Text1.SetFocus
Fori=1To5
Sum=Sum+i（sum应先赋值）
Nexti
Text1.text=Sum
EndSub
上述程序的运行结果是（D）
A）在文本框中输出15
B）在文本框中输出0
C）在文本框中输出不定值
D）出错
17.已知x代表某个百分制成绩，下列程序段用于显示对应的五级制成绩，正确的是（C）
A）Ifx>=60Then
Print"及格"
ElseIfx>=70Then
Print"中"
ElseIfx>=80Then
Print"良"
ElseIfx>=90Then
Print"优"
Else
Print"不及格"
EndIf
B）Ifx<90Then
Print"良"
ElseIfx<80Then
Print"中"
ElseIfx<70Then
Print"及格"
ElseIfx<60Then
Print"不及格"
Else
Print"优"
EndIf
C）Ifx>=90Then
Print"优"
ElseIfx>=80Then
Print"良"
ElseIfx>=70Then
Print"中"
ElseIfx>=60Then
Print"及格"
Else
Print"不及格"
EndIf
D）SelectCasex
Casex>=90（90to100）
Print"优"
Casex>=80
Print"良"
Casex>=70
Print"中"
Casex>=60
Print"及格"
CaseElse
Print"不及格"
EndSelect
18.在窗体上画一个名称为Check1复选框，在程序运行的过程中，若选中复选框，则Check1.value的值是（D）
A）True
B）2
C）0
D）1
19.在下列关于菜单的说法中，错误的是（B）
A）每一个菜单项都是一个控件，与其他控件一样都有自己的属性和事件
B）除了Click事件之外，菜单项还能响应其他的如DblClick等事件过程（only）
C）菜单项的快捷键不可以任意设置
D）在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择
20.下面关于多重窗体的叙述中，正确的是（B）
A）作为启动对象的Main子过程只能放在窗体模块内
B）如果启动对象是Main子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载窗体或加载哪一个窗体
C）没有启动窗体，程序不能执行
D）以上都不对
21.与键盘操作有关的事件有KeyPress、KeyUp和KeyDown事件，当用户按上并且释放一个键后，这三个事件发生的顺序是（A）
A）KeyDown、KeyPress、KeyUp
B）KeyDown、KeyUp、KeyPress
C）KeyPress、KeyDown、、KeyUp
D）没有规律
22.要从磁盘上读入一个文件名为“c:
\filel.txt”的顺序文件，下面程序段正确的是（A）
A）F="c:
\filel.txt"
OpenFForInputAs#1
B）F="c:
\filel.txt"
Open"F"ForInputAs#2
C）Open"c:
\filel.txt"ForOutputAs#2
D）Openc:
\filel.txtForInputAs#1
23.下列关于过程叙述不正确的是（D）
A）过程的传值调用是将实参的具体值传值递给形参
B）过程的传址调用是将实参在内存的地址传递给形参
C）过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的
D）无论过程传值调用还是过程传址调用，参数传递都是双向的
24.执行了下面程序后，组合框中数据项的值是（D）
PrivateSubForm_Click（）
Fori=1to6
Combo1.AddItemi
Nexti
Fori=1to3
Combo1.RemoveItemi
Nexti
EndSub
A）156
B）135
C）456
D）246
25.下列程序的执行结果是（A）
PrivateSubForm_Activate（）
Dimscore（3）AsInteger,totalAsInteger
Dimaa_scoreAsVariant
score
（1）=50:
score
（2）=14：
score（3）=36
total=0:
i=0
ForEachaa_scoreInscore
i=i+1
total=total+aa+_score
Printi,aa_score,total
Next
EndSub
A）100
25050
31464
436100
B）15050
21464
336100
C）05050
11464
236100
D）000
15050
21464
336100
26.在Activate事件过程中，写入下面的程序：
OptionBase1
PrivateSubForm_Activate（）
DimtAsInteger
Dima（）AsVariant
a=Array（2,4,6,8,10,1,3,5,7,9）
Fori=1to10\2
t=a（i）
a（i）=a（10-i+1）
a（10-i+1）=t
Nexti
Forj=1to10
Printa（j）;
Nextj
EndSub
运行程序后，显示的结果是（C）
A）24681013579
B）13579246810
C）97531108642
D）10864297531
27.在Activate事件过程中，写入下面的程序：
PrivateSubForm_Activate（）
DimSAsString,aAsString,bAsString
a="*":
b="$"
Fori=1to4
Ifi/2=Int（i/2）Then
S=String（Len（a）+i,b）
Else
S=String（Len（a）+i,a）
EndIf
PrintS;
Nexti
EndSub
运行程序后，显示结果是（C）
A）$$***$$$$*****
B）*$$**$$***$$$****$$$$
C）**$$$****$$$$$
D）$*$$**$$$***$$$$****
28.在窗体上设置相应的控件，并在代码窗口编写下列程序：
PrinteSubForm_Click（）
DimaAsLong,bAsLong
a=InputBox（"请输入若干个整数"）
CallP（a,b）
Printb
EndSub
PrivateSubP（xAsLong,yAsLong）
DimnAsInteger,jAsString*1,sAsString
k=Len（Trim（Str（x）））
s=""
Fori=KTo1Step-1
j=Mid（x,i,1）
s=s+j
Nexti
y=Val（s）
EndSub
运行程序，在InputBox框中输入123456,然后单击"确定"按钮，则输出结果是（B）
A）123456
B）654321
C）135246
D）246135
29.要建立一个学生成绩的随机文件，如下定义了学生的记录类型，由学号、姓名、三门课程成绩（百分制）组成，下列程序段正确的是（C）
A）Typestudl
noAsInteger
nameASString
score（1to3）AsSingle
EndType
B）Typestudl
noAsInteger
nameAsString*10
score（）AsSingle
EndType
C）Typestudl
noAsInteger
nameAsString*10
score（1to3）AsStngle
EndType
D）Typestudl
noAsInteger
nameAsString
score（1to3）AsString
EndType
升级会员 