计算机等级考试二级VB全真模拟试题含答案2Word文档格式.docx
《计算机等级考试二级VB全真模拟试题含答案2Word文档格式.docx》由会员分享，可在线阅读，更多相关《计算机等级考试二级VB全真模拟试题含答案2Word文档格式.docx（15页珍藏版）》请在冰豆网上搜索。
（9）为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是。
A）ValueB）DefaultC）CancelD）Enabled
（10）为了把焦点移到某个指定的控件，所使用的方法是
A）SetFocusB）VisibleC）RefreshD）GetFocus
（11）设a=6，则执行x=IIf（a5,-1,0）后，x的值为。
A）5B）6C）0D）-1
（12）执行下面的程序段后，x的值为。
x=5
Fori=1To20Step2
x=x+i\5
Nexti
A）21B）22C）23D）24
（13）在窗体上画一个命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
Fori=1To4
x=4
Forj=1To3
x=3
Fork=1To2
x=x+6
Nextk
Nextj
Printx
EndSub
程序运行后，单击命令按钮，输出结果是。
A）7B）15C）157D）538
（14）在窗体上画一个命令按钮，然后编写如下事件过程：
PrevateSubCommand1_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
程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为。
A）2B）3C）14D）15
（15）在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程：
a=Text1.Text+Text2.Text
PrivateSubFormm_Load（）
Text1Text="
"
Text2Text="
Endsub
程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为。
A）444B）321123C）123321D）132231
（16）阅读下面的程序段：
Fori=1To3
Forj=1Toi
Fork=jTo3
a=a+1
执行上面的三重循环后，a的值为。
A）3B）9C）14D）21
（17）在窗体上画一个文本框（其中Name属性为Text1），然后编写如下事件过程：
PrivateSubForm_Load（）
Ttext1.Text="
Text1.SetFocus
Fori=1To10
Sum=Sum+i
Text1.Text=Sum
上述程序的运行结果是。
A）在文本框Text1中输出55
B）在文本框Text1中输出0
C）出错
D）在文本框Text1中输出不定值
（18）在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程：
DoWhilex50
x=（x+2）*（x+3）
n=n+1
Text1.Text=Str（n）
Text2.Text=Str（x）
程序运行后，单击命令按钮，在两个文本框中显示的值分别为
A）1和0B）2和72C）3和50D）4和168
（19）用下面语句定义的数组的元素个数是。
DimA（-3To5）AsInteger
A）6B）7C）8D）9
（20）以下程序的输出结果是
OptionBase1
Dima（10）,p（3）AsInteger
k=5
a（i）=i
p（i）=a（i*i）
NextI
k=k+p（i）*2
Printk
A）33B）28C）35D）37
（21）在窗体上面画一个命令按钮，然后编写如下事件过程：
PrivateSubCommandl_Click（）
Dima
a=Array（1,2,3,4）
j=1
Fori=4ToStep-1
s=s+a（i）*j
j=j*10
Prints
运行上面的程序，单击命令按钮，其输出结果是。
A）4321B）12C）34D）1234
（22）在窗体上面一个命令按钮（其Name属性为Commandl），然后编写如下代码：
PrivateSubCommandl_Click（）
Dima（4,4）
Fori=1To4
Forj=1To4
a（i,j）=（i-1）*3+j
Fori=3To4
Forj=3To4
Printa（j,i）;
Print
程序运行后，单击命令按钮，其输出结果为。
A）69B）710C）811D）912
7108119121013
（23）假定有如下的Sub过程：
SubS（xAsSingle,yAsSingle）
t=x
x=t/y
y=tMody
在窗体上画一个命令按钮，然后编写如下事件过程：
PrivateSubCommandl_Click（）
DimaAsSingle
DimbAsSingle
a=5
b=4
Sa,b
Printa,b
程序运行后，单击命令按钮，输出结果为。
A）54B）11C）1.254D）1.251
（24）阅读程序：
FunctionF（aAsInteger）
b=0
Staticc
b=b+1
c=c+1
f=a+b+c
EndFunction
PrivateSubCommandl_Click（）
DimaAsInteger
a=2
Fori=1To3
PrintF（a）
运行上面的程序，单击命令按钮，输出结果为。
A）4B）4C）4D）4
4567
4689
（25）阅读程序：
SubsubP（b（）AsInteger）
b（i）=2*i
Dima（1To4）AsInteger
a
（1）=5
a
（2）=6
a（3）=7
a（4）=8
subPa（）
Printa（i）
A）2B）5C）10D）出错
4612
6714
8816
（26）下列不能打开菜单编辑器的操作是。
A）按Ctrl+E
B）单击工具栏中的“菜单编辑器”按钮
C）执行“工具”菜单中的“菜单编辑器”命令
D）按Shift+Alt+M
（27）假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用的语句为。
A）MenuItem.Enabled=False
B）MenuItem.Enabled=True
C）MenuItem.Visible=True
D）Menultem.Visible=False
（28）在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条事件是。
A）MoveB）ChangeC）ScrollD）GetFocus
（29）假定窗体上有一个标签，名为Labell，为了使该标签透明并且没有边框，则正确的属性设置为。
A）Label1.Back>
Label1.Border>
B）Label1.Back>
C）Label1.Back>
D）Label1.Back>
（30）在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程：
PrivateSubForm_Load（）
List1.AddItem"
357"
246"
123"
Listl.AddItem"
456"
Text1.Text="
PrivateSubList1_DblClick（）
a=List1.Text
Printa+Text1.Text
程序运行后，在文本框中输入“789”（见图1），然后双击列表框中的"
，则输出结果为。
A）1245B）456789C）789456D）0
（31）为了暂时关闭计时器，应把该计时器的某个属性设置为False，这个属性是。
A）VisibleB）TimerC）EnabledD）Interval
（32）为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为。
A）Get文件号，记录号，变量名
B）Get文件号，变量名，记录号
C）Put文件号，变量名，记录号
D）Put文件号，记录号，变量名
（33）对窗体编写如下事件过程：
PrivateSubForm_MouseDown（ButtonAsInteger,_
ShiftAsInteger,XAsSingleYAsSingle）
IfButton=2Then
Print"
AAAAA"
EndIf
PrivateSubForm_MouseUp（ButtonAsInteger,_
ShiftAsInteger,XAsSingle,YAsSingle）
BBBBB"
程序运行后，如果单击鼠标右键，则输出结果为。
A）AAAAAB）BBBBBC）AAAAAD）BBBBB
BBBBBAAAAA
（34）为了在运行时能显示窗体左上角的控制框（系统菜单），必须。
A）把窗体的Contro1Box属性设置为Fale,其他属性任意
B）把窗体的ControlBox属性设置为True,并且把BoderStyle属性设置为1-5
C）把窗体的ControlBox属性设置为False,同时把BoderStyle属性调协为非0值
D）把窗体的ControlBox属性设置为True,同时把BoderStyle属性设置为0值
（35）对窗体编写如下代码：
PrivateSubForm_KeyPress（KeyAsciiAsInteger）
a=Array（237,126,87,48,498）
m1=a
（1）
m2=1
IfKeyAscii=13Then
Fori=2To5
Ifa（i）mlThen
m1=a（j）
m2=i
Printm1
Printm2
程序运行后，按回车键，输出结果为
A）48B）237C）498D）498
4154
二、填空题（每空２分，共30分）
请将每空的正确答案写在答题卡[1]—[15]序号的横线上，答在试卷上不得分。
（1）设有如下的VisualBasic表达式：
5*x_–3*x–2*Sin（a）/3
它相当于代数式【1】。
（2）执行下面的程序段后，s的值为【2】。
s=5
Fori=2.6To4.9Step0.6
s=s+1
（3）表达式Fix（-32.68）+Int（-23.02）的值为【3】。
（4）为了在运行时把图形文件picfile.jpg装入图片框Picture1,所使用的语句为【4】。
（5）在窗体上画一个命令按钮，然后编写如下事件过程：
a=InputBox（"
请输入一个整数"
）
b=InputBox（"
Printa+b
程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为【5】。
（6）执行下面的程序段后，b的值为【6】。
a=300
b=20
a=a+b
b=a-b
a=a-b
（7）以下程序段的输出结果是【7】。
num=0
Whilenum=2
num=num+1
Printnum
Wend
（8）在窗体画一个命令按钮，然后编写如下事件过程：
Dima（1To10）
Dimp（1To3）
程序运行后，单击命令按钮，输出结果是【8】。
（9）下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请在【9】、【10】、【11】处将程序补充完整。
a=Array（678,45,324,528,439,387,87,875,273,823）
Fori=【9】
Forj=【10】
Ifa（i）【11】a（j）Then
a1=a（i）
a（i）=a（j）
a（j）=a1
（10）在窗体画一个命令按钮，然后编写如下过程：
Functionfun（ByValnumAsLong）AsLong
DimkAsLong
k=1
num=Abs（num）
DoWhilenum
k=k*（numMod10）
num=num\10
fun=k
DimnAsLong
DimrAsLong
n=InputBox（"
请输入一个数"
n=CLng（n）
r=fun（n）
Printr
程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为【12】。
（11）如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为【13】。
（12）假定建立了一个工程，该工程包括两个窗体，其名称（Name属性）分别为Form1和Form2，启动窗体为Form1。
在Form1画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请在【14】和【15】处将程序补充完整。
【14】Form1
Form2.【15】
答案
一、选择题
（1）C
（2）D（3）B（4）C（5）B
（6）C（7）C（8）D（9）B（10）A
（11）D（12）A（13）B（14）A（15）C
（16）C（17）C（18）B（19）D（20）A
（21）D（22）D（23）D（24）B（25）A
（26）D（27）A（28）C（29）A（30）B
（31）C（32）D（33）A（34）B（35）C
二、填空题
（1）[1]
（2）[2]9
（3）[3]56
（4）[4]Picturel.Picture=LoadPicture（"
picfile.jpg"
（5）[5]321456
（6）[6]300
（7）[7]1
2
3
（8）[8]33
（9）[9]aTo9
[10]i+1To10
[11]=
（10）[12]24
（11）[13]-
（12）[14]Unload
[15]Show
计算机等级考试二级VB全真模拟试题含答案
（2）相关内容:
升级会员 