一、單項(xiàng)選擇題（每小題L5分，共48分）

1.以下不屬于VisualBasic的工作模式是_b。

(A)編譯(B)設(shè)計(jì)(C)運(yùn)行(D)中斷

2.若要使標(biāo)簽控件顯示時(shí)不覆蓋其背景內(nèi)容，要對_d屬性進(jìn)行設(shè)置。

(A)BackColor(B)BorderStyle

(C)ForeColor(D)BackStyle

3.當(dāng)運(yùn)行程序時(shí)，系統(tǒng)自動(dòng)執(zhí)行啟動(dòng)窗體的a__事件過程。

(A)Load(B)Click

(C)UnLoad(D)GotFocus

4.下而a_是合法的單精度變量。

(A)num!(B)sum%(C)'ABC'(D)mm#

5.表達(dá)式DatcDiff#12/30/1999#,#1/13/2000#)語句顯示的結(jié)果是_c。

(A)1(B)11(C)14(D)99

6.數(shù)學(xué)關(guān)系式3Wxvl0表示成正確的VB表達(dá)式為_bo

(A)3<=x<10(B)3<=xandx<10

(C)3<=xorx<10(D)3<=xand<10

7.語句Ifx=iTheny=l,卜列說法正確的是_c____。

(A)x=l和y=l均為賦值語句(B)x=l和y=l均為關(guān)系表達(dá)式

(C)x=l為關(guān)系表達(dá)式，y=l為賦值語句

(D)x=l為賦值語句，y=l為關(guān)系表達(dá)式

8.下面程序段求兩個(gè)數(shù)中大數(shù)，c_不正確。

(A)Max=IIf(x>y,x,y)(B)Ifx>yThenMax=xelseMax=y

(C)Max=x(D)Ify>=xThenMax=y

Ify>=xThenMax=yMax=x

9.下列程序段運(yùn)行結(jié)果為b_o

For1=3to1step-1

PrintSpc(5-I);

Forj=lto2*1-1

Print"*”；

Nextj

Print

NextI

(A)*(B)*****

******

******

(C)*(D)*****

******

******

10.以下能正確計(jì)算n!的程序是D_

(A)PrivateSubCommandl_Click()(B)PrivateSubCommandl_Click()

n=5:x=1n=5:x=1:i=1

DoDo

x=x*ix=x*i

i=i+1i=i+1

LoopWhilei<nLoopWhilei<n

PrintxPrintx

EndSubEndSub

(C)PrivateSubCommandl_Click()(D)PrivateSubCommandl_Click()

n=5:x=1:i=1n=5:x=1:i=1

DoDo

x=x*ix=x*i

i=i+1i=i+1

LoopWhilei<=nLoopWhilei>n

PrintxPrintx

EndSubEndSub

11.如下數(shù)組聲明語句，—B__正確。

(A)Dima[3,4]AsIntegerDimA(3,4)AsInteger

(C)DimA(n,n)AsInteger(D)DimA(34)AsInteger

12.如下數(shù)組聲明語句中，數(shù)組a包含元素的個(gè)數(shù)為一

Dima(3,-2to2,5)

(A)120(B)75(C)60(D)13

13.以卜.程序輸出的結(jié)果是一Do

Dima

a=array(123,4,5,6,7)

ForI=lbound(a)toubound(a)

a(i)=a(i)*a(i)

NextI

Printa(i)

(A)49(B)0(C)不確定(D)程序出錯(cuò)

14.在程序代碼中將圖片文件pic.jpg裝入圖片框Picturel的語句是B_。

(A)Picture1.picture="pic.jpg"

(B)Picturel.picture=LoadPicture("pic.jpg")

(C)Picture1.image="pic.jpg"

(D)LoadPictureCpic.jpg")

15.對于控件數(shù)組，下列描述中不正確的是A。

(A)控件數(shù)組可由多個(gè)控件組成，這些控件具有相同的名字

(B)可以通過把兩個(gè)同類控件的name屬性改成相同值來創(chuàng)建控件數(shù)組

(C)控件數(shù)組中的各元素共用事件，通過Index參數(shù)來確定是哪一個(gè)元素

(D)控件數(shù)組中的元素可以是不同類型的控件

16.設(shè)有程序代碼如下：

Form1.Caption="VisualBasic'

則：Forml,Caption和"VisualBasic"分別代表___C.

(A)對象，值，屬性(B)對象，方法，屬性

(C)對象，屬性，值(D)屬性，對象，值

17.下列—B表達(dá)式是不正確的。

(A)"計(jì)算機(jī)"+”與程序設(shè)計(jì)"(B)"計(jì)算機(jī)"+150

(C)"計(jì)算機(jī)"&150(C)"計(jì)算機(jī)與程序設(shè)計(jì)"

18.VisualBasic是種面向?qū)ο蟮目梢暬绦蛟O(shè)計(jì)語言采取了—A的編程機(jī)制。

(A)事件驅(qū)動(dòng)(B)按過程順序執(zhí)行

(C)從主程序開始執(zhí)行(C)按模塊順序執(zhí)行

19.VisualBasic是一種面向?qū)ο蟮某绦蛟O(shè)計(jì)語言，―A_不是面向?qū)ο笙到y(tǒng)所包含的三要素。

(A)變量(B)事件(C)屬性(D)方法

20.保存新建的工程時(shí)，默認(rèn)的路徑是_B______o

(A)Mydocuments(B)VB98(C)\(D)Windows

21.文本框沒有—D—_屈性。

(A)Enable(B)Visible(C)BackColor(D)Caption

22.要使Print方法在Form_Load事件中起作用，要對窗體的C屬性進(jìn)行設(shè)置。

(A)BackColor(B)ForeColor(C)AutoRedraw(D)Caption

23.在一行中寫多條語句時(shí)，每條語句之間用—B符號(hào)分隔。

(A)(B)(C)(D)

24.下面—A是合法的變量名。

(A)x_yz(B)123abc(C)integer(D)x-y

25.下面—B是合法的字符常數(shù)。

(A)ABC$(B)〃ABC〃(C)'ABC'(D)ABC

26.表達(dá)式Len(〃123程序設(shè)計(jì)ABC〃)的值是_A_____。

(A)10(B)14(C)20(D)17

27.下面正確的賦值語句是_Co

(A)x+y=30(B)y=7t*r*r(C)y=x+30(D)3y=x

28.為了給x,y,z三個(gè)變量賦初值1,下面1E確的賦值語句是_Ao

(A)x=l:y=l:z=l(B)x=l,y=l,z=l(C)x=y=z=l(D)xyz=l

29.VB提供了結(jié)構(gòu)化程序設(shè)計(jì)的三種基本結(jié)構(gòu)，三種基本結(jié)構(gòu)是.D。

(A)遞歸結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)

(B)選擇結(jié)構(gòu)、過程結(jié)構(gòu)、順序結(jié)構(gòu)

(C)過程結(jié)構(gòu)、輸入輸出結(jié)構(gòu)、轉(zhuǎn)向結(jié)構(gòu)

(D)選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)、順序結(jié)構(gòu)

30.下面程序段運(yùn)行后，顯示的結(jié)果是一Bo

Dimx%

Ifx=0ThenPrintxElsePrintx+1

(A)1(B)0(C)x(D)x+1

31.下面程序段運(yùn)行后，顯示的結(jié)果是A

Dimx

X=Int(Rnd)+5

SelectCasex

Case5

Print“優(yōu)秀”

Case4

Print“良好”

Case3

Print“通過”

CaseElse

Print“不通過”

EndSelect

(A)優(yōu)秀(B)良好(C)通過(D)不通過

32.下列循環(huán)語句能正常結(jié)束循環(huán)的是D______o

(A)1=5(B)1=1

DoDo

1=1+11=1+2

LoopUntilI<0LoopUntil1=10

(C)1=10(D)1=6

DoDo

1=1+11=1-2

LoopUntilI<0LoopUntil1=0

二、填空題(1-8空每空1分，9-20空每空2分，共32分)

1.VisualBasic注釋語句采用—⑴,續(xù)行符采用—⑵,若要在一行書寫多條語句，則各語句

間要加分隔符，VisualBasic的語句分隔符為_(3)—:―。

2.當(dāng)對命令按鈕的Picture屬性裝入.bmp圖形文件后，選項(xiàng)按鈕上并沒有顯示所需的圖形，原因是沒有對

_(4)屬性設(shè)置為1。

3.下列For語句循環(huán)執(zhí)行20次，循環(huán)變量的初值：Fork=_35_(5)To-5Step-2

4.在VisualBasic中，若要產(chǎn)生一消息框，則可利用函數(shù)_(6)_msgbox____來實(shí)現(xiàn)。

5.在VisualBasic中，輸入對話框的函數(shù)是InputBox,其返回值類型為_(7)_字符型_,若要利用該函

數(shù)接收數(shù)值型數(shù)據(jù)，則可利用—(8)函數(shù)對其返回值進(jìn)行轉(zhuǎn)換得到。

6.整型變量x中存放了一個(gè)兩位數(shù)(個(gè)位數(shù)非零)，要將該數(shù)十位數(shù)和個(gè)位數(shù)交換位置，例如，13變成31,

實(shí)現(xiàn)的表達(dá)式是一⑼—ab=10b+a_o

7.輸入任意長度的字符串，要求將字符順序倒置，例如，將輸入的“ABCD”變成“DCBA”。

PrivateSubCommandl_Click()

Dima$,k%,c$,dS

a=InpulBox$("輸入字符串”)

n=_(10)_len(a)一

Fork=nTo1Step-1

c=Mid(a,k,1)

d=—(11)&c

Nextk

Printd

EndSub

8.隨機(jī)產(chǎn)生6位學(xué)生的分?jǐn)?shù)(分?jǐn)?shù)范圍40?100),存放在數(shù)組a中，以每2分顯示一個(gè)“*”，并在“”

后面顯示學(xué)生的分?jǐn)?shù)。

PrivateSubCommandl_Click()

Dima(lTo6)

Fori=1Tb6

a(i)=_(12)__int(md*61+40)___

Print_(13)_String(a⑴—,a(i)

Nexti

EndSub

9.下面程序打印楊輝三角形，下圖是楊輝三角形的實(shí)例，填空使程序完整。

PrivateSubCommand1_CIick()

Dima(10,10)AsInteger

n=6

Fori=0Ton

a(i,0)=1:—(14)

Nexti

Fori=2Ton

Forj=1To_(15)

a(ij)=a(i-lj-l)+―(16)

Nextj

Nexti

Fori=0Ton

Forj=0Toi

Printa(i,j);

Nextj

Print

Nexti

EndSub

10.下面程序利用輾轉(zhuǎn)相除法求整數(shù)m和n的最大公因數(shù)和最小公倍數(shù)，填空使程序完整。

PrivateSubCommand1_Click()

m=InputBox("Thefirstinteger")

n=InputBox(nThesecondinteger")

ml=m：nl=n

if___(17)_m>n_thent=m:m=n:n=t

r=mmodn

dowhile__(18)_ro0—

r=mModn

loop

Print”最大公約數(shù)：“，n

Print"最小公倍數(shù)：%―(19)_ml*nl/n_

EndSub

11.下面程序段顯示—(20)—4個(gè)。

Fori=lto5

Forj=2toi

Print"*”；

Nextj

Nexti

一、單項(xiàng)選擇題(每小題1.5分，共48分)

(1)A⑵D⑶A(4)A⑸C(6)B⑺C

(8)D(9)B(10)C(11)B(12)A(13)A(14)B

(15)D(16)C(17)(18)A(19)A(20)_B_(21)D

(22)C(23)B(24)A(25)B(26)(27)C(28)A

(29)D(30)A(31)A(32)JD

二、填空題(1-8空每空1分，9-20空每空2分，共32分)

(1)rem或'(2)(3):(4)style

(5)^3(6)msgbox()(7)字符型(8)Val()

(9)(xmod10)*10+x\10(10)len(a)(11)d(12)int(md*61)+40

(13)string(a(i)\2,“*")(14)a(i,i)=l(15)iT(16)a(iT,j)

(17)m<n(18)r<>0(19)ml*nl/n(20)

《計(jì)算機(jī)水平考試模擬試題一》(VB)

一、選擇題(40分，共25題)

1、［多選題］下列方法中，能修改組合框的項(xiàng)目是。

(A)、Erase

(B)、Removeitem

(C)xDelete

(D)、Additem

(E)、Index

2、［單選題］使用方法能刪除列表框控件中的某個(gè)項(xiàng)目。

(A)、Cis

(B)、Clear

(C)、RemoveItein

(D)、Delltem

3、［單選題］可以同時(shí)刪除字符串前導(dǎo)和尾部空白的函數(shù)是o

(A)、Ltrim

(B)、Trim

(C)、Rtrim

(D)、Mid

4、［單選題］在窗體上畫一個(gè)命令按鈕，然后編寫如卜.事件過程：

PrevateSubCommandl_Click()

x=0

DoUntilx=-1

a=InputBox一請輸入A的值”)

a=Val(a)

b=InputBox("請輸入B的值”)

b=Val(b)

x=InpulBox("請輸入x的值")

x=Val(x)

a=a+b+x

Loop

Printa

EndSub

程序運(yùn)行后，單擊命令按鈕，依次在輸入對話框中輸入5、4、3、2、1、?1,則輸出結(jié)果為

(A)、15

(B)、2

(C)、3

(D)、14

5、［單選題］為了在運(yùn)行時(shí)能顯示窗體左上角的控制框(系統(tǒng)菜單)，必須o

(A)、把窗體的ControlBox屬性設(shè)置為False,同時(shí)把BorderSlyle屬性設(shè)置為非0值

(B)、把窗體的ControlBox屬性設(shè)置為False,其他屬性任意

(C)、把窗體的ControlBox屬性設(shè)置為True,并旦把BorderSlyle屬性設(shè)置為1-5

(D)、把窗體的ControlBox屬性設(shè)置為True,同時(shí)把BorderStylc屬性設(shè)置為。值

6、［單選題］用于動(dòng)態(tài)地在菜單中增加菜單項(xiàng)的語句是。

(A)、Load

(B)、Unload

(C)>LoadMenu

(D)、UnloadMenu

7、［單選題］要使文本框獲得輸入焦點(diǎn)，應(yīng)采用文本框控件的方法。

(A)、GetFocus

(B)、LostFocus

(C)、Keypress

(D)、SctFocus

8、［單選題］函數(shù)調(diào)用不可以o

(A)、作為另一個(gè)函數(shù)的形參

(B)、出現(xiàn)在一個(gè)表達(dá)式中

(C)、作為另一個(gè)函數(shù)的實(shí)參

(D)、出現(xiàn)在一個(gè)執(zhí)行語句中

9、［單選題］在程序運(yùn)行期間，如果拖動(dòng)滾動(dòng)條上的滾動(dòng)塊，則觸發(fā)的滾動(dòng)條事件是、

(A)、Scroll

(B)、ove

(C)、GetFocus

(D)、Change

10、1單.選題］InpulBox函數(shù)返［可值的類型為。

(A)、數(shù)值或字符串(視輸入的數(shù)據(jù)而定)

(B)、數(shù)值

(C)、字符串

(D)、變體

11、［單選題］在窗體上面畫?個(gè)命令按鈕，然后編寫如下事件過程：

OptionBase1

PrivateSubCommandl_Click()

Dima

a=Array(1,2,3,4)

j=l

Fori=4To1Step-1

s=s+a(i)*j

j=j*10

Nexti

Prints

EndSub

運(yùn)行上面的程序，單擊命令按鈕，其輸出結(jié)果是。

(A)、4321

(B)、12

(C)、34

(D)、1234

12、［單選題］以下關(guān)于函數(shù)參數(shù)的說法中，正確的是。

(A)、實(shí)參與其所對應(yīng)的形參共占用?個(gè)存儲(chǔ)單元

(B)、實(shí)參與其所對應(yīng)的形參各占用獨(dú)立的存儲(chǔ)單元

(C)、只有當(dāng)實(shí)參與其所對應(yīng)的形參同名時(shí)才共占用存儲(chǔ)單元

(D)、實(shí)參與其所對應(yīng)的形參視其參數(shù)傳遞方式來確定是否各自占用獨(dú)立的存儲(chǔ)單元

13、［單選題］下列可以打開立即窗口的操作是。

(A)、Ctrl+E

(B)、Ctrl+D

(C)、Ctrl+F

(D)、Ctrl+G

14、［多選題］語句Ifa=lThenb=l,下列說法正確的是。

(A)、b=l為賦值語句

(B)、a=l為關(guān)系表達(dá)式

(C)、a=l為賦值語句

(D)、b=l為關(guān)系表達(dá)式

15、［單選題］在窗體上添加一個(gè)名為Command1的命令按鈕和兩個(gè)名為Labell、Label2的標(biāo)簽，程序代碼

如下:

PrivatexAsInteger

PrivateSubproc(ByValaAsInteger,ByVaibAsInteger)

x=a*a

y=b+b

EndSub

PrivateSubCommand1_Click()

x=5

y=3

Callproc(x,y)

Label1.Caption=x

Label2.Caption=y

EndSub

程序運(yùn)行后，單擊命令按鈕，兩個(gè)標(biāo)簽中顯示的內(nèi)容分別是。

(A)、25和6

(B)、25和3

(C)>5和6

(D)、5和3

16、［多選題］關(guān)于復(fù)選框的說法正確的是。

(A)、復(fù)選框的Value屬性值為1時(shí)表示未選中

(B)、復(fù)選框的Value屬性值為0時(shí)表示選中

(C)、復(fù)選框的Value屬性值可以取兩個(gè)值

(D)、復(fù)選框的Value屬性值可以取三個(gè)值

(E)、復(fù)選框的Value屬性值為1時(shí)表示選中

17、［單選題］設(shè)a=10,則執(zhí)行x=iif(a>7,-l,O)后，x的值是?

(A)、-1

(B)、7

(C)、10

(D)、0

18、［單選題］在窗體上畫?個(gè)命令按鈕(名稱為Commandl)編寫如下事件過程：

PrivateSubCommand1_Click()

b=1

c=3

Printa=b+c

EndSub

程序運(yùn)行后，單擊命令按鈕，輸出的結(jié)果是。

(A)、False

(B)、a=3

(C)、a=b+c

(D)、3

19、［單選題］下列事件中，事件不可能在窗體對象中發(fā)生。

(A)、Change

(B)、Click

(C)、Load

(D)、Dbclick

20、［單選題］為了防止用戶使用Tab鍵選定控件，應(yīng)該o

(A)、將控件的Tabindex屬性設(shè)置為0

(B)、將控件的TabStop屬性設(shè)置為False

(C)、將控件的TabStop屬性設(shè)置為0

(D)、將控件的Enabled屬性設(shè)置為False

21、［單選題］設(shè)有如卜.類型聲明：

TypePerson

NameAsString*8

MajorAsString*20

EndType

要將該類型的某個(gè)變量p的值寫入?個(gè)隨機(jī)文件D:\Test4.dat中，能正確把數(shù)據(jù)寫入該隨機(jī)文件的程序段是

(A)^Open"D:\Tcst4.dat"ForRandomAs#1:Get#1,1,p:Close#1

(B)、Open"D:\Test4.dat'1ForRandomAs#l:Put#1,1,p:Close#1

(C)^Open"D:\Tcst4.dat"ForRandomAs#1Lcn=Len(p):Put#1.I,p:Close#1

(D)、Open"D:\Test4.dat"ForRandomAs#1Len=Len(p):Get#1,1,p:Close#1

22、［單選題］對窗體編寫如下代碼：

OptionBase1

PrivateSubFonn_KeyPrcss(KcyAsciiAsInteger)

a=Array(237,126,87,48,498)

ml=a(l)

m2=1

IfKeyAscii=13Then

ForI=2To5

Ifa(I)>m1Then

ml=a(I)

m2=I

EndIf

NextI

EndIf

Printml

Printm2

EndSub

程序運(yùn)行后，按回車鍵，輸出結(jié)果為O

(A)、4985

(B)、4984

(C)、484

(D)、2371

23、［單選題］為了在按下回車鍵時(shí)執(zhí)行某個(gè)命令按鈕的事件過程,需要把該命令按鈕的個(gè)屬性設(shè)置為True,

這個(gè)屬性是o

(A)、Enabled

(B)、Value

(C)、Default

(D)、Cancel

24、［多選題］DataTime是一個(gè)日期類型的變量，以下賦值語句中正確的是。

(A)、DataTime=#5/i4/01#

(B)、DataTime=#12:15:00AM#

(C)、DataTime=#September1,2001#

(D)、DataTime="8/8/99”

25、［多選題］VisualBasic的Sub過程可以分為兩大類，包括°

(A)、類模塊

(B)、通用過程

(C)、事件過程

(D)、Function過程

二、組合選擇(20分，共10題)

26、程序運(yùn)行時(shí)，下列控件_D_在窗體上自動(dòng)不可見。

27、VisualBasic6.0集成開發(fā)環(huán)境包括主窗口、_N_、布局窗口、工程資源管理器、屬性窗口和窗體設(shè)

計(jì)器六個(gè)部分。

28、VisualBasic中用__A語句來進(jìn)行數(shù)據(jù)類型的自定義。

29、根據(jù)編碼方式不同，VisualBasic中可以把文件分為__M。

30、VisualBasic程序設(shè)計(jì)語言屬于—S—。

31、VisualBasic6.0用于開發(fā)一C―環(huán)境下的應(yīng)用程序。

32、下列_E_式子能生成?個(gè)［1,100］之間的隨機(jī)整數(shù)。

33、下列_R___控件不具有Caption屬性。

34、要想在文本框中顯示滾動(dòng)條，必須設(shè)置文本框―K—的屬性。

35、若要把一個(gè)窗體隱藏，可以使用_L_方法來實(shí)現(xiàn)。

注意:請?jiān)谠囶}的紅色下劃線處填寫答案前所對應(yīng)的字母，如"(D)Style"，只能填寫英文字母“D”(大小

寫均可，必須在英文輸入狀態(tài)卜輸入)，不能填寫“Style"，否則作錯(cuò)誤作答處理，填完后按I用車鍵可轉(zhuǎn)到

下一題。可供選擇的答案如下：

(A)Dim

(B)面向過程的語言

(C)Windows

(D)通用對話框控件(CommonDialog)

(E)Int(Rnd*100)+1

(F)Int(Rnd*100)

(G)DOS

(H)TextBox

(I)Label

(J)ScrollBars

(K)ScrollBars^0Multiline

(L)Hide

(M)二進(jìn)制文件和ASCII文件

(N)工具箱

(O)Type

(P)UnLoad

(Q)命令按鈕(CommandButton)

(R)狀態(tài)欄

(S)面向?qū)ο蟮恼Z言

(T)順序文件和隨機(jī)文件

三、判斷題(10分，共10題)

36、假設(shè)變量boolVar是一個(gè)布爾型變量，則賦值語句boolVar=.True.是否正確。

［正確錯(cuò)誤］

37、語句x=Sqr(-l)是錯(cuò)誤的。

［正確錯(cuò)誤］

38、下列關(guān)于數(shù)組的說法是否正確：在同一過程中，數(shù)組名可以和簡單變量名同名。

［正確錯(cuò)誤］

39、關(guān)于組合框的敘述，下列說法是否正確：下拉組合框在缺省情況"包括一個(gè)卜.拉式列表和一個(gè)文本

框?？梢詮牧斜磉x擇或在文本框中輸入。

［正確錯(cuò)誤］(PI55)

40、下面關(guān)于Tab順序的說法，是否正確：TabStop屬性已置為false的控件，在實(shí)際Tab鍵順序中也被刪

除。

［正確錯(cuò)誤1

41、下面的過程定義語句是否合法:SubProc(ByValn())?

［正確錯(cuò)誤］(說明：如果形參是數(shù)組，必須是傳址)

42、在SelectCase語句中，下列說法是否正確：一個(gè)Case語句只能對應(yīng)一個(gè)值。

［正確錯(cuò)誤］

43、關(guān)于組合框的敘述，卜列說法是否正確：卜.拉式列表框樣式的組合框允許用戶輸入。

［正確錯(cuò)誤］(P155)

44、語句Dimarr(lto5,2to7,3to8)定義的數(shù)組元素個(gè)數(shù)是：100。

［正確錯(cuò)誤］

45、下面關(guān)于Tab順序的說法，是否正確：設(shè)置Tabindex屬性將改變一個(gè)控件的Tab鍵順序。

UE確錯(cuò)誤］

《計(jì)算機(jī)水平考試模擬試題二》(VB)

一、選擇題(40分，共25題)

1、［多選題］VisualBasic中注釋語句的前綴可以是。

(A)、單引號(hào)

(B)>逗號(hào)

(C)、Rem

(D)、分號(hào)

2、［單選題］下列程序的輸出結(jié)果是

PrivateSubCommand1_Click()

a=8:b=9

Printa=b

EndSub

(A)、顯示出錯(cuò)信息

(B)、False

(C)、8

(D)、9

3、［多選題］卜列可以作為VisualBasic的變量名是_________?

(A)、a?b(含有？號(hào))

(B)、123ab(數(shù)字開頭)

(C)、Integer(系統(tǒng)關(guān)鍵字)

(D)、PrintA

(E)、a_b

4、［單選題］下列屬于正確的字符串常量的是。

(A)、$ABC$

(B)、“ABC”

(C)、#ABC"

(D)、ABC'

5、［單選題］語句Z=y+1代表o

(A)、將變量Z存入變量y中，再加上1的表達(dá)式

(B)、將變量Z存入變量y+1中

(C)、變量Z取得變量y的值，然后再加上1的一個(gè)表達(dá)式

(D)、變量Z取得丫+1的值

6、［單選題］以下不是菜單編輯器窗口的組成部分的選項(xiàng)是

(A)、編輯區(qū)

(B)、菜單項(xiàng)屬性設(shè)置區(qū)

(C)、菜單代碼編輯區(qū)

(D)、菜單項(xiàng)顯示區(qū)

7、［單選題］若要使命令按鈕不可操作，要對屬性設(shè)置。

(A)、Caption

(B)、Enabled

(C)、Visible

(D)、BackColor

8、［單選題］下列程序的運(yùn)行結(jié)果是o

A=5

B=-5

C=NotA=B

PrintC

(A)、0

(B)、True

(C)>-5

(D)、無法輸出

9、［單選題］對窗體編寫如下事件過程：

PrivateSubForm_MouseDown(ButtonAsInteger,_

ShiftAsInteger,XAsSingle,YAsSingle)

IfButton=2Then(說明：Butlon=2表示按卜鼠標(biāo)右鍵)

Print"AAAAA"

EndIf

EndSub

PrivateSubForm_MouseUp(ButtonAsInteger,

ShiftAsInteger,XAsSingle,YAsSingle)

Print"BBBBB"

EndSub

程序運(yùn)行后，如果單擊鼠標(biāo)右鍵，則輸出結(jié)果為__________。

(A)、AAAAA

(B)、AAAAA

BBBBB

(C)>BBBBB

AAAAA

(D)、BBBBB

10、［單選題］在窗體上畫一個(gè)列表框和一個(gè)文本框，然后編寫如下兩個(gè)事件過程:

PrivateSubForm_Load()

Listl.AddItem"357”

Listl.AddItem"246"

Listl.AddItem,,123H

Listl.AddItem"456"

Textl.Text=n"

EndSub

PrivateSubListl_DblClick()

a=Listl.lext

Printa+Tcxt1.Text

EndSub

程序運(yùn)行后，在文本框中輸入“789”，然后雙擊列表框中的“456”，則輸出結(jié)果為.

(A)、456789(說明：因“+”號(hào)的兩邊都是字符串，故兩數(shù)并接)

(B)、0

(C)、789456

(D)、1245

ii、［單選題］要計(jì)算i到ioo之間的偶數(shù)之和，請補(bǔ)充卜.列程序。

PrivateSubCommand1_Click()

x=0

ForI=1To100Step2

NextI

Print"1到100之間的偶數(shù)之和為:",x

EndSub

(A)、x=x+l

(B)、x=x+i

(C)、x=x+i+l

(D)^x=x*2

12、［單選題］執(zhí)行下列程序，運(yùn)行結(jié)果是o

PrivateSubCommand1_Click()

s=0

DimIAsInteger

For1=2.1To5.7Step0.3

S=S+1

Next

Prints

EndSub

(A)、13

(B)>14

(C)、12

(D)、死循環(huán)

13、［單選題］為了使窗體的大小可以改變，必須把窗體的BorderStyle屬性設(shè)置為

(A)、3

(B)、2

(C)、1

(D)、4

14、［單選題］執(zhí)行下列代碼，分別輸入12和89,輸出結(jié)果是。

PrivateSubForm_CIick()

a=InputBox("D")

b=InputBox("E")

Printa+b

EndSub

(A)、101

(B)、DE

(CX1289(說明：因“+”號(hào)的兩邊都是字符串，故兩數(shù)并接)

(D)、DE1289

15、［單選題］在設(shè)計(jì)階段，當(dāng)雙擊窗體上的某個(gè)控件時(shí)，所打開的窗口是

(A)、屬性窗口

(B)、工程資源管理器窗口

(C)、工具箱窗口

(D)、代碼窗口

16、［單選題］窗體設(shè)計(jì)器的主要作用是。

(A)、存放代碼

(B)、管理工程資源

(C)、顯示圖形、圖像以及各種數(shù)據(jù)

(D)、存放文本、圖片、聲音等文件

17、［單選題］設(shè)a=8,b=10,則以下表達(dá)式的值為真的是。

(A)^(-3+5>a)and(b>0)

(B)、(a<0)Eqv(b>0)

(C)^a>=bandb>12

(D)、(a>b)or(b>0)

18、［單選題］下列代碼的運(yùn)行結(jié)果是。

PrivateSubCommandI_Click()

s=0

n=100

ForI=1Ton

s=s+I

IfIMod25=0ThenPrint

Next1

EndSub

(A)、5個(gè)“*”

(B)、4個(gè)…

(C)、25個(gè)“*”

(D)、100個(gè)

19、［單選題］執(zhí)行下面的語句后，所產(chǎn)生的信息框的標(biāo)題是。

a=MsgBox("AAAAA",3,"BBBBB")

(A)、BBBBB

(B)、空

(C)、AAAAA

(D)、出錯(cuò)，不能產(chǎn)生信息框

20、［單選題1卜一列不能打開菜單編輯器的操作是。

(A)、按Shift+Alt+M

(B)、按Ctrl+E

(C)、執(zhí)行“工具”菜單中的“菜單編輯器”命令

(D)、單擊工具欄中的“菜單編輯器”按鈕

21、［多選題］結(jié)構(gòu)化程序設(shè)計(jì)的三種基本結(jié)構(gòu)包括.

(A)、選擇結(jié)構(gòu)

(B)、順序結(jié)構(gòu)

(C)、循環(huán)結(jié)構(gòu)

(D)、嵌套結(jié)構(gòu)

22、［單選題］為了暫時(shí)關(guān)閉計(jì)時(shí)器，應(yīng)把該計(jì)時(shí)器的某個(gè)屬性設(shè)置為False,這個(gè)屬性是

(A)、Interval

(B)、Timer

(C)、Visible

(D)>Enabled

23、［多選題］設(shè)有如下的記錄類型

TypeStudent

NumberAsString

NameAsString

AgeAsInteger

EndType

則正確引用該記錄類型變量的代碼是。

(A)、DimsAsType:s.age=l8

(B)、DimsAsStudent:s.age=18

(C)、DimsAsType:="李偉”

(D)、DimsAsStudent:="李偉"

(E)>DimsAsType:s.number='OOOr

24、［多選題］假設(shè)x是一個(gè)布爾型變量，則下列正確的賦值語句是o

(A)、x=False

(B)、x='False'

(C)>x=6>7

(D)^x=.False.

(E)、x=#False#

25、［單選題］要設(shè)置計(jì)時(shí)器控件的定時(shí)時(shí)間，需設(shè)置的屬性是o

(A)、Value

(B)、Interval

(C)、Text

(D)>Enabled

二、組合選擇(20分，共10題)

26、對于注釋語句的說法，正確的是_J_o

27、下面一T一是合法的日期型常量。

28、窗體文件的擴(kuò)展名是_Ao

29、VisualBasic中缺省的傳遞參數(shù)的機(jī)制是—I____。

30、要讀取一個(gè)磁盤文件，需要使用一C—函數(shù)來判斷文件是否到達(dá)文件尾。

31、VisualBasic中_E____使用語句來實(shí)現(xiàn)過程的特殊出口。

32、單擊窗體右上角的關(guān)閉按鈕，將按順序觸發(fā)—F一事件產(chǎn)生。

33、通用對話框控件(CommonDialog)屬于G____類的控件。

34、VisualBasic程序設(shè)計(jì)的主要特點(diǎn)是_M___的編程機(jī)制。

35、—O____的若干控件稱為控件數(shù)組。

注意:請?jiān)谠囶}的紅色下劃線處填寫答案前所對應(yīng)的字母，如"(D)Style"，只能填寫英文字母“D”(大小

寫均可，必須在英文輸入狀態(tài)下輸入)，不能填寫“Style"，否則作錯(cuò)誤作答處理，填完后按回車鍵可轉(zhuǎn)到

下一題?？晒┻x擇的答案如下：

(A).FRM

(B)BOF

(C)EOF

(D)ExitFor

(E)ExitSub

(F)先UnLoad后QucryUnload

(G)ActiveX

(H)11-09-99

(I)傳地址方式

(J)注釋語?句不能出現(xiàn)在續(xù)行符的后面。

(K)標(biāo)準(zhǔn)

(L)過程驅(qū)動(dòng)

(M)事件驅(qū)動(dòng)

(N)傳值方式

(0)控件的名字相同但索引號(hào)不同

(P).FRX

(Q)大小,—樣的相同

(R)先QueryUnload后UnLoad

(S)注釋語句可以出現(xiàn)在代碼中的任意地方。

(T)#11-09-99#

三、判斷題(10分，共10題)

36、要判斷在文本框中是否按了Enter鍵，應(yīng)在文本框的KeyDown事件中判斷。

［正確錯(cuò)誤］

37、Timer控件在程序運(yùn)行時(shí)是不可見的。

［正確錯(cuò)誤］

38、順序文件中記錄存放的順序是按每條記錄的記錄號(hào)從小到大排序好的。

［正確錯(cuò)誤］

39、命令按鈕、文本框、復(fù)選框等控件都支持鼠標(biāo)事件。

［正確錯(cuò)誤］

40、作為啟動(dòng)對象的Main子過程只能放在窗體模塊內(nèi)。

［正確錯(cuò)誤］(參閱P194)

41、每個(gè)菜單項(xiàng)都是一個(gè)控件，與其他控件一樣也有自己的屬性和事件。

［正確錯(cuò)誤］(參閱P190)

42、一個(gè)DIM語句定義多個(gè)數(shù)組時(shí)，逗號(hào)"，"可作為數(shù)組間的分隔符。

［正確錯(cuò)誤］

43、用戶定義類型中的元素可以是任何數(shù)據(jù)類型，如變長字符串型，整型等。

［正確錯(cuò)誤］(參閱PU5)

44、方法是預(yù)先定義好的、能夠被對象識(shí)別的動(dòng)作。

［正確錯(cuò)誤］

45、正確數(shù)組下標(biāo)的上界和下界可以任意定義。

［正確錯(cuò)誤］

《計(jì)算機(jī)水平考試模擬試題三》(VB)

一、選擇題(40分，共25題)

1、［單選題］以下語句的輸出結(jié)果是o

PrintFormat$(32548.5,"000,000.00")

(A)、32,548.5

(B),032,548.50

(C)、32548.5

(D)、32,548.50

2、［單選題］以下敘述中，正確的是。

(A)、Open命令的作用是打開一個(gè)已經(jīng)存在的文件

(B)、一個(gè)記錄中所包含的各個(gè)元素的數(shù)據(jù)類型必須相同

(C)、隨機(jī)文件中每個(gè)記錄的長度是固定的

(D)、使用Input#語句可以從隨機(jī)文件中讀取數(shù)據(jù)

3、［多選題］VisualBasic的Sub過程可以分為兩大類，包括。

(A)、通用過程

(B)、類模塊

(C)、Function過程

(D)、事件過程

4、I單選題］以下對象中，不具有Picture屬性。

(A)、圖像框

(B)、窗體

(C),文本框

(D)、圖片框

5、［單選題］假定有一個(gè)菜單項(xiàng)，名為Menuitem,為了在運(yùn)行時(shí)使該菜單項(xiàng)失效(變灰)，應(yīng)使用的語句為

(A)、Menultem.Visible=False

(B)、MenuItem.Enabled=False

(C)、MenuItem.Enabled=True

(D