2022年計(jì)算機(jī)等級(jí)《二級(jí)VB》上機(jī)考試選擇試題預(yù)測(cè)

2022計(jì)算機(jī)等級(jí)《二級(jí)VB》上機(jī)考試選擇試題預(yù)測(cè)

31.以下可以翻開隨機(jī)文件的語句是()。

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.有彈出式菜單的構(gòu)造如右表，程序運(yùn)行時(shí)，單擊窗體則彈出如下列圖所示的菜單。下面的大事過程中能正的確現(xiàn)這一功能的是()。

A.PrivateSubVormClick()

PopupMenucut

EndSub

B.PrivateSubCommand1Click()

PopupMenuedit

EndSub

C.PrivateSubFormClick()

PopupMenuedit

EndSub

D.PrivateSubFormClick()

PopupMenucut

PopupMenupaste

EndSub

33.請(qǐng)閱讀程序.

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

程序運(yùn)行后，單。旨窗體，則輸出結(jié)果是()。

A.57

68

B.68

79

C.79

810

D.810

811

34.下面函數(shù)的功能應(yīng)當(dāng)是：刪除字符串str中全部與變量ch一樣的字符，并返回刪除后的結(jié)果。例如：若str=“ABCDABCD“，ch=“B“，則函數(shù)的返回值為：“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

但實(shí)際上函數(shù)有錯(cuò)誤，需要修改，下面的修改方案中正確的選項(xiàng)是()。

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

B.把Iftemp=chThen改為IftempchThen

C.把delchar=ret改為delchar=temp

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

35在窗體上畫一個(gè)命令按鈕和兩個(gè)文本框，其名稱分別為Command1、Text1和Text2，在屬性窗口中把窗體的KeyPreview屬性設(shè)置為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

程序運(yùn)行后，先后按“a”、“b”、“c”鍵，然后單擊命令按鈕，在文本框Text1和Text2中顯示的內(nèi)容分別為()。

A.abc和ABC

B.空白

C.ABC和abc

D.出錯(cuò)

36.使用驅(qū)動(dòng)器列表框Drive1、名目列表框Dir1、文件列表框File1時(shí)，需要設(shè)置控件的

同步，以下能夠正確設(shè)置兩個(gè)控件同步的命令是()。

A.Dir1.Path=Drive1.Path

B.File1.Path=Dri1.Path

C.File1.Path=Drive1.Path

D.Drive1.Drive=Dri1.Path

37.以下關(guān)于彈出式菜單的表達(dá)中，錯(cuò)誤的選項(xiàng)是()。

A.一個(gè)窗體只能有一個(gè)彈出式菜單

B.彈出式菜單在菜單編輯器中建立

C.彈出式菜單的萊單名(主菜單項(xiàng))的“可見”屬性通常設(shè)置為False

D.彈出式菜單通過窗體的PopupMenu方法顯示

38.有如下程序：

PrivateTypestu

XAsString

YAsInteger

EndType

PrivateSubCommand1Click()

DimaAsstu

a.X=“ABCD“

a.Y=12345

Printa

EndSub

程序運(yùn)行時(shí)消失錯(cuò)誤，錯(cuò)誤的緣由是()。

A.Type定義語句沒有放在標(biāo)準(zhǔn)模塊中

B.變量聲明語句有錯(cuò)

C.賦值語句不對(duì)

D.輸出語句Print不對(duì)

4