2020年下半年计算机二级MSOffice试题-7

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中显示的是当前驱动器、当前目录下的文件