2022年计算机等级《二级VB》上机考试选择试题预测

2022计算机等级《二级VB》上机考试选择试题预测

31.以下可以翻开随机文件的语句是()。

A.Open“file1.dat“ForInputAs#1

B.Open“file1.dat“ForAppendAs#1

C.Open“file1.dat“ForOutputAs#1

D.Open“file1.dat“ForRandowAs#1Len=20

32.有弹出式菜单的构造如右表，程序运行时，单击窗体则弹出如下列图所示的菜单。下面的大事过程中能正的确现这一功能的是()。

A.PrivateSubVormClick()

PopupMenucut

EndSub

B.PrivateSubCommand1Click()

PopupMenuedit

EndSub

C.PrivateSubFormClick()

PopupMenuedit

EndSub

D.PrivateSubFormClick()

PopupMenucut

PopupMenupaste

EndSub

33.请阅读程序.

0ptionBase1

PrivateSubFo,mClick()

DimArr(4，4)AsInteger

Fori=1To4

Forj=1To4

Arr(i，j)=(i=1)*2+j

Nextj

Nexti

Fori=3To4

Forj=3To4

PrintArr(j，i);

Nextj

Print

Nexti

EndSub

程序运行后，单。旨窗体，则输出结果是()。

A.57

68

B.68

79

C.79

810

D.810

811

34.下面函数的功能应当是：删除字符串str中全部与变量ch一样的字符，并返回删除后的结果。例如：若str=“ABCDABCD“，ch=“B“，则函数的返回值为：“ACDACD“

Functiondelchar(strAsString，chAsString)AsString

DimkAsInlegcr，tempAsString，retAsString

ret=““

Fork=1ToLen(str)

temp=Mid(str，k，1)

Iftemp=chThen

ret=ret&temp

EndIf

Nextk

delchar=ret

EndFunction

但实际上函数有错误，需要修改，下面的修改方案中正确的选项是()。

A.把ret=ret&temp改为ret=temp

B.把Iftemp=chThen改为IftempchThen

C.把delchar=ret改为delchar=temp

D.把ret=““改为temp=““

35在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，在属性窗口中把窗体的KeyPreview属性设置为True，然后编写如下程序：

DilnS1AsString，S2AsString

PrivateSubFormLoad()

Text1.Text=““

Text2.Text=““

Text1.Enabled=False

Text2.Enabled=False

EndSub

PrivateSubFormKeyDown(KeyCodeAsInteger，ShiftAsInteger)

S2=S2&Chr(KeyCode)

EndSub

PrivateSubFormKeyPress(KeyAsciiAsInteger)

S1=S1&Chr(KeyAscii)

EndSub

PrivateSubCommand1Click()

Text1.Text=S1

Text2.Text=S2

S1=““

S2=““

EndSub

程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为()。

A.abc和ABC

B.空白

C.ABC和abc

D.出错

36.使用驱动器列表框Drive1、名目列表框Dir1、文件列表框File1时，需要设置控件的

同步，以下能够正确设置两个控件同步的命令是()。

A.Dir1.Path=Drive1.Path

B.File1.Path=Dri1.Path

C.File1.Path=Drive1.Path

D.Drive1.Drive=Dri1.Path

37.以下关于弹出式菜单的表达中，错误的选项是()。

A.一个窗体只能有一个弹出式菜单

B.弹出式菜单在菜单编辑器中建立

C.弹出式菜单的莱单名(主菜单项)的“可见”属性通常设置为False

D.弹出式菜单通过窗体的PopupMenu方法显示

38.有如下程序：

PrivateTypestu

XAsString

YAsInteger

EndType

PrivateSubCommand1Click()

DimaAsstu

a.X=“ABCD“

a.Y=12345

Printa

EndSub

程序运行时消失错误，错误的缘由是()。

A.Type定义语句没有放在标准模块中

B.变量声明语句有错

C.赋值语句不对

D.输出语句Print不对

4