1.设有如下程序段：
x=2
Forc=1To4Step2
x=x+c
Nextc
运行以上程序后，x的值是(A)
A.6
B.7
C.8
D.9
2.以下叙述中错误的是(A)
A.在KeyPress事件过程中不能识别键盘键的按下与释放
B.在KeyPress事件过程中不能识别回车键
C.在KeyDown和KeyUp事件过程中，从键盘输入的字母"A"和字母"a"对应的KeyCode视作相同的字母
D.在KeyDown和KeyUp事件过程中，从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符
3.执行如下两条语句，窗体上显示的是(C)
A=9.8596
PrintFormat(a,"000.00")
A.0,009.86
B.9.86
C.009.86
D.0,009.86
4.在窗体上画一个名称为CommandDialog1的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程：
PrivateSubCommand1_Click()
CommonDialog1.FileName=""
CommonDialog1.Filter="Allfile|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"
CommonDialog1.FilterIndex=1
CommonDialog1.DialogTitle="VBTest"
CommonDialog1.Action=1
EndSub
对于这个程序，以下叙述中错误的是(D)
A.该对话框被设置为"打开"对话框
B.在该对话框中指定的文件名为空
C.该对话框的标题为VBTest
D.在该对话框中指定的默认文件类型为文本文件(*.Txt)
5.设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下：
PrivateSubCommand1_Click()
DimaAsInteger
a=10
Callg(Form2,a)
EndSub
PrivateSubg(fAsForm,xAsInteger)
y=Iif(x>10,100,-100)
f.Show
f.Caption=y
EndSub
运行以上程序，正确的结果是(B)
A.Form1的Caption属性值为100
B.Form2的Caption属性值为-100
C.Form1的Caption属性值为-100
D.Form2的Caption属性值为100
6.在窗体上画一个名称为Command1的命令按钮，并编写如下程序：
PrivateSubCommand1_Click()
DimxAsInteger
StaticyAsInteger
x=10
y=5
Callf1(x,y)
Printx,y
EndSub
PrivateSubf1(ByRefx1AsInteger,y1AsInteger)
x1=x1+2
y1=y1+2
EndSub
程序运行后，单击命令按钮，在窗体上显示的内容是(D)
A.105
B.125
C.107
D.127
7.OptionBase1
PrivateSubCommand1_Click()
Dima(10)AsInteger
DimnAsInteger
n=3
Ifn<10Then
CallGetArray(a,n)
EndIf
EndSub
PrivateSubGetArray(b()AsInteger,nAsInteger)
Dimc(10)AsInteger
j=0
Fort=1Ton
b(t)=Rnd*100
Ifb(t)/2=b(t)\2Then
j=j+1
c(j)=b(t)
EndIf
Nextt
Printj
EndSub
以下叙述中错误的是(C)
A.数组b中的数范围为0-100
B.c数组下标的下界从1开始
C.GetArray过程的参数n是按值传送的
D.语句Ifb(t)/2=b(t)\2Then是判断数组b中元素的值是否为整数
8.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
OptionBase1
PrivateSubCommand1_Click()
Dima
a=Array(1,2,3,4,5)
Forc=1ToUbound(a)
a(c)=a(c)+c-1
Nextc
Printa(3)
EndSub
程序运行后，单击命令按钮，则在窗体上显示的内容是(B)
A.4
B.5
C.6
D.7
9.阅读程序：
OptionBase1
PrivateSubForm_Click()
Dimarr
DimSum%
Sum=0
arr=Array(1,3,5,7,9)
Fort=1To5
Sum=Sum+arr(t)
Nextt
PrintSum
EndSub
程序运行后，单击窗体，输入结果为(B)
A.5
B.9
C.25
D.15
10.在窗体上画一个名称为File1的文件列表框，并编写如下程序：
PrivateSubFile1_DblClick()
x=Shell(File1.FileName,1)
EndSub
以下关于该程序的叙述中，错误的是(A)
A.x没有实际作用，因此可以将该语句写为：CallShell(File1,FileName,1)
B.双击文件列表框中的文件，将触发该事件过程
C.要执行的文件的名字通过File1.FileName指定
D.File1中显示的是当前驱动器、当前目录下的文件
本文标签：计算机等级考试二级2019年下半年计算机等级考试二级MS Office模拟试题及其答案（七）
转载请注明：文章转载自（http://www.jsjdj.net）
本文地址：http://www.jsjdj.net/erji_mnst/1997.html
解锁即可开始刷题
并加入考生交流群
第一时间获取
计算机等级考试考试资讯
