省二級(jí)考試VB試題

省二級(jí)考試VB試題匯總

（2006年6月）

前言：本輔導(dǎo)資料主要在于介紹省二級(jí)考試的基本題型和

基本考點(diǎn)，所以提議大家在第一遍看本資料時(shí)，應(yīng)認(rèn)真做

好每一題，在遢到不會(huì)或不懂的題時(shí)，立即到課本中找本

題相關(guān)的知識(shí)點(diǎn)并弄懂這些知識(shí)點(diǎn)，然后再來(lái)分析此題，

以達(dá)到對(duì)考點(diǎn)各各擊破的目的，如此下去便可掌握省二級(jí)

考試的幾乎所有考點(diǎn)，從而可以應(yīng)付千變?nèi)f化的考題了。

本資料內(nèi)的考趣只是考試題庫(kù)中的一小部分而已，切不可

只做出本資料內(nèi)各題的答案，而沒(méi)掌握其考點(diǎn)知識(shí)，這將

會(huì)導(dǎo)致后悔莫及的后果。此外，瘦議大家在掌握考試題型

和考點(diǎn)后，應(yīng)上機(jī)實(shí)際操作，尤其對(duì)于能力測(cè)試題更應(yīng)已

上機(jī)練習(xí)為主，掌握做題步哪和基本技巧，方可取得理想

的成績(jī)。最后預(yù)祝大家在省二級(jí)考試中取得優(yōu)異的成績(jī)！

第一部分知識(shí)測(cè)試題

一、選擇題（每套試卷有20個(gè)選擇題，每題1分）

1以下4種描述中，錯(cuò)誤的是oD

A.常量在程序執(zhí)行期間其值不會(huì)發(fā)生改變

B.根據(jù)數(shù)據(jù)類型不同，常量可分為字符型常量、數(shù)

值常量、日期/時(shí)間型常量和布爾型常量

C.符號(hào)常量是用一個(gè)標(biāo)識(shí)符來(lái)代表一個(gè)常數(shù)，好象

是為常數(shù)取一個(gè)名字，但仍保持常數(shù)的性質(zhì)

D.符號(hào)常量的使用和變量的使用沒(méi)有差別

2下面合法的常量是______oD

A.1/2B.'abed'C.1.2*5

D.False

3VisualBasic中可以用類型說(shuō)明符來(lái)標(biāo)識(shí)變量的

C

類型，其中表示貨幣型的是O

A.%B.#C.@D.$

4以下關(guān)鍵字中，不能定義變量的是。A

A.DeclareB.DimC.Public

D.Private

5用十六進(jìn)制表示VisualBasic的整型常數(shù)時(shí)，前面要加

上的符號(hào)是。A

A)&HB)&OC)HD)O

6VisualBasic日期常量的定界符是。A

A.##B.“C.()D.{}

7數(shù)學(xué)關(guān)系3/xvl0表示成正確的VB表達(dá)式為

oB

A.3<=x<10B.3<=xANDx<10

C.x>=3ORx<10D.3<=xAND<10

8\,/,Mod,*四個(gè)算術(shù)運(yùn)算符中，優(yōu)先級(jí)別最低的是

C

A.\B./C.Mod

D.*

9下面語(yǔ)句中有非法調(diào)用的是oC

A.x=SGN(-l)B.x=FIX(-l)

C.x=SQR(-l)D.x$=CHR$(65)

10表達(dá)式23/5.8、23\5.8、23Mod5.8的運(yùn)算結(jié)果分別是

______________oB

A.3、3.9655、3B.3.9655、3、5

C.4、4、5D.3.9655、4、3

11如果變量a=2、b="abc"、c="acd”、d=5,貝！|表達(dá)式a<d

ORb>cANDboc的值______。A

A.TrueB.FalseC.YesD.

No

12為了給x,y,z三個(gè)變量賦初值1,下面正確的賦值

A

語(yǔ)句是O

A)x=lIy=l：z=lB)x=l,y=l,z=l

C)x=y=z=lD)xyz=l

13以下4類運(yùn)算符，優(yōu)先級(jí)最低的是oD

A.算術(shù)運(yùn)算符B.字符運(yùn)算符C.關(guān)系

運(yùn)算符D.邏輯運(yùn)算符

14已知a=,,12345678n,則表達(dá)式Left(a,4)+Mid(a,4,2)

的值是oB

A)123456B)”123445"C)

123445D)1279

15設(shè)有如下的記錄類型

TypeStudent

numberAsString

nameAsString

ageAsInteger

EndType

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

A.S="張紅"B.DimsAsStudent

,，張紅,,

=

C.DimsAsTypeStuentD.DimsAsType

="張紅"="張紅”

16下列程序運(yùn)行時(shí)，從鍵盤輸入字符”」，則輸出結(jié)果是

______________oA

PrivateSubForm_Click()

op$=InputBox(Hop=n)

Ifop$=H+HThena=a+2

Ifop$=H-HThena=a-2

Printa

EndSub

A.-2B.0C.+2

D.+0

17下列程序段的運(yùn)行結(jié)果為B

Fori=3To1Step-1

PrintSpace(5-i);

Forj=lTo2*i-l

Print

Nextj

Print

Nexti

?iff?iA

A.*B.*****C.rj??Jwrj?〃、

D.*****

?1>

rj****

***

?、AM

18執(zhí)行PRINT18/2*3,-3人2命令后，輸出結(jié)果為

oC

A.39B.3-9

C.27-9D.-9

27

19執(zhí)行PRINT9.4\3.7,9.4MOD3.7命令后，輸出

A

結(jié)果為o

A.21B.30C.220D.12

20運(yùn)行以下程序后，輸出結(jié)果為oC

x%=l/4

y%=11/4

PRINTx%;y%

END

A.0.250.75B.02C.0

3D.13

21窗體里有兩個(gè)對(duì)象，分別是圖片框Picturel和標(biāo)簽

Labello那么下面關(guān)于Print方法的使用中，錯(cuò)誤的一條是

___________oD

A.Picturel.Print147B.Print147

C.Printer.Print147D.Labell.Print147

22下面的語(yǔ)句可以實(shí)現(xiàn)：先在窗體上輸出大寫

字母A,然后在同一行的第10列輸出小寫字母bo

B

A.Print,,A',;Tab(9);,,bHB.Print

,,An;Spc(8);,,bn

C.Print''A";Space(10);''b''D.Print

HA,,;Tab(8);nb,'

23閱讀下面的程序段：

nl=InputBox("請(qǐng)輸入第一個(gè)數(shù)：”)

n2=InputBox("請(qǐng)輸入第二個(gè)數(shù)：”)

Printnl+n2

當(dāng)輸入分別為111和222時(shí)，程序輸出為oA

A.111222B.222C.333

D.程序出錯(cuò)

24語(yǔ)句PrintFormat("HELLO',H<H)的輸出結(jié)果是

oB

A.HELLOB.helloC.He

D.he

25語(yǔ)句Print(a=2)And(b=-2)的輸出結(jié)果是。

D

A.TrueB.結(jié)果不確定C.

-1D.False

26以下程序段運(yùn)行后，輸出字符的排列順序是o

D

Fori=lTo6

IfiMod2=0Then

Printn#n;

Else

Print

EndIf

Nexti

A.#*#*#B.#####rjw

D.*#*#*#

27用MSGBOX函數(shù)顯示的對(duì)話框，以下敘述正確的是

_______oD

A)該對(duì)話框有一個(gè)“確定”按鈕

B)該對(duì)話框有“是"，“否”兩個(gè)按鈕

C)該對(duì)話框有“是”，“否”，“取消”三個(gè)按鈕

D)該對(duì)話框通過(guò)選擇參數(shù)可以得到以上不同的的按

鈕組合

28與語(yǔ)句Dimabc%作用相同的語(yǔ)句是。A

A)DimabcAsIntegerB)DimabcAs

Long

C)DimabcAsStringD)DimabcAs

Date

29設(shè)a=l,b=2,c=3,d=4,則表達(dá)式IIf(avb,a,IIf(cvd,a,d))

的結(jié)果為oD

A.4B.3C.2

D.1

30表達(dá)式Int(198.555*100+0.5)/100的值為。

C

A.198B.199.6C.198.56

D.200

31要使變量x賦值為1?100間(含1,不含100)的一

個(gè)隨機(jī)整數(shù)，正確的語(yǔ)句是。D

A.x=Int(100*Rnd)B.

x=Int(101*Rnd)

C.x=l+Int(100*Rnd)D.

x=l+Int(99*Rnd)

32VisualBasic表達(dá)式Cos(0)+Abs⑴+Int(Rnd(l))的值

是oD

A.1B.-1C.OD.2

33表達(dá)式Int(5*Rnd+l)*Int(5*Rnd-l)值的范圍是

oD

A.[0,15]B.[-1,15]C.

[-4,15]D.[-5,15]

34當(dāng)函數(shù)MsgBox返回值為1,對(duì)應(yīng)的符號(hào)常量是

A.用戶單擊了對(duì)話框中的“確定”按鈕

B.用戶單擊了對(duì)話框中的“取消”按鈕

C.用戶單擊了對(duì)話框中的“是"按鈕

D.用戶單擊了對(duì)話框中的“否”按鈕

35在VisualBasic中，InputBox函數(shù)的默認(rèn)返回值類型

為字符串，用InputBox函數(shù)輸入數(shù)值型數(shù)據(jù)時(shí)，下列操作

中可以有效防止程序出錯(cuò)的操作是oA

A.事先對(duì)要接收的變量定義為數(shù)值型

B.在函數(shù)InputBox前面使用Str函數(shù)進(jìn)行類型轉(zhuǎn)換

C.在函數(shù)InputBox前面使用Value函數(shù)進(jìn)行類型轉(zhuǎn)

換

D.在函數(shù)InputBox前面使用String函數(shù)進(jìn)行類型轉(zhuǎn)

換

36表達(dá)式Len(“123程序設(shè)計(jì)ABC”)的值是。

A

A.10B.14C.20D.17

37賦值語(yǔ)句g=123+Mid(H123456n,3,2)執(zhí)行后，變量g

中的值是oD

A)”12334”B)123012334D)

157

38如果x是一個(gè)正實(shí)數(shù)，對(duì)x的第3位小數(shù)四舍五入的

表達(dá)式是oB

A.0.01*Int(x+0.005)

B.0.01*Int(100*(x+0.005))

C.0.01*Int(100*(x+0.05))

D.0.01*Int(x+0.05)

39MsgBox函數(shù)的返回值的類型是oA

A)整數(shù)B)字符串C)邏輯

值D)日期

40使用下列語(yǔ)句：Dimx(lto10,3)AsSingle,則數(shù)組占

用內(nèi)存空間的字節(jié)數(shù)是______oC

A.132B.80C.160

D.120

41若x=l,執(zhí)行語(yǔ)句IfxThenx=0Elsex=1的結(jié)果是

oD

A.實(shí)時(shí)錯(cuò)誤B.編譯錯(cuò)誤

C.x=lD.x=0

42下列程序段的循環(huán)結(jié)構(gòu)執(zhí)行后，i的輸出值是o

C

DimyasInteger

Fori=1To10Step2

y=y+i

Nexti

Printi

A)25B)10C)11D)因?yàn)閥初

值不知道，所以不確定

43以下程序段的運(yùn)行結(jié)果是oD

PrivateSubForm_Click()

x=5

m=1

n=1

Do

m=m*n

n=n+1

LoopUntiln>5

PrintxA2+m/3

EndSub

A.25B.45C.55D.65

44以下程序段的運(yùn)行結(jié)果是oA

PrivateSubForm_Click()

DimsAsLong,fAsLong

DimnAsInteger,iAsInteger

f=l

n=4

Fori=1Ton

f=f*i

s=s+f

Nexti

PrintHs=n;s

EndSub

A.33B.34C.35

D.36

45以下程序段的運(yùn)行結(jié)果是oA

PrivateSubForm_Click()

b=a

DoUntila>=5

X=a*b

PrintStr(a)&&Str(b)&H=n;

Str(X);

a=a+b

b=b+a

Loop

EndSub

A.1*1=12*3=6B.1*1=22*2=4

C.1*1=13*3=9D.1*1=23*2=6

46下面分別是求兩個(gè)數(shù)中的大數(shù)的四個(gè)程序段，

不正確。D

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

ElseMax=y

C)Max=xD)Ify>=xThen

Max=y

Ify>=xThenMax=yMax=x

47下列循環(huán)能正常結(jié)束的是C

A.i=5B.i=l

DODO

i=i+li=i+2

LoopUntili<0LoopUntili=10

C.i=10D.i=6

DODO

i=i+li=i-2

LoopUntili>0LoopUntili=l

48有如下程序，運(yùn)行時(shí)從鍵盤輸入4,則輸出的結(jié)果是

B

PrivateSubForm_Click()

a=InputBox(**Enteeravalueofa:n)

SelectCasea

CaseIs>2

b=a+l

CaseIs>3

b=a+2

CaseIs>5

b=a+3

CaseElse

b=a+4

EndSelect

Printa;b

EndSub

A.44B.45C.46D.47

49執(zhí)行如下程序段時(shí)，從鍵盤輸入-5,輸出的結(jié)果是

A

x=-5

s=Val(InputBox("請(qǐng)輸入s的值:"))

SelectCases

CaseIs>0

y=x+l

CaseIs=O

y=x+2

CaseElse

y=x+3

EndSelect

Printx;y

A.-5-2B.-5-4C.-5-3

D.-5-5

50某林場(chǎng)1995年植樹(shù)100畝，以后每年的植樹(shù)面積按5%

的速度增長(zhǎng)，能正確計(jì)算到1998年時(shí)四年的植樹(shù)總面積的

程序是oB

A.s=100:r=0.05B.

s=100:sum=100:r=0.05

Fori=1996To1998Fori=1996To1998

s=s*(l+r)s=s*(l+r)

Nextisum=sum+s

PrintiNexti

EndPrintsum

C.s=100:r=0.05D.

s0=100:sum=100:r=0.05

Fori=1996To1998Fori=1996To

1998

s=s*(l+r)+ss=sO*(l+r)

Nextisum=sum+s

PrintiNexti

EndPrintsum

51以下程序段執(zhí)行后，變量s、x的值分別為。

C

DimsAsInteger,xAsInteger

s=10:x=1

DoWhilex<10

s=s+2

x=x+2

Loop

Prints,x

A.5011B.2010C.2011

D.10010

52以下程序段的執(zhí)行結(jié)果是A

Fori=lTo4

x=2

Forj=lTo3

x=l

Fork=lTo2

x=x+3

Nextk

Nextj

Nexti

Printx

A.7B.6C.56D.72

53用語(yǔ)句DimA(-3to5)AsLong定義的數(shù)組元素個(gè)數(shù)

是oC

A.7B.8C.9D.10

54以下程序運(yùn)行的結(jié)果是oD

Dima

a=Array(l,3,4,5,6,7)

Fori=LBound(a)ToUBound(a)

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

Nexti

Printa(i)

A)49B)0C)不確定D)下標(biāo)越界

55在窗體上添加一個(gè)命令按鈕CommandL然后編寫如

下代碼:

PrivateSubCommandl_Click()

DimcityAsVariant

city=Array(“北京“，“上海“，“天津”重慶

”)

Printcity(l)

EndSub

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

A.空白B.錯(cuò)誤提示C.北京D.

上海

56以下程序運(yùn)行的結(jié)果是oD

OptionBase1

PrivateSubCommandl_Click()

Dima,b(3,3)

a=array(l,2,33?5,6,7,8,9)

Fori=lTo3

Forj=lTo3

b(i,j)=a(i*j)

If(j>=i)ThenPrintTab(j*3);Format(b(iJ),n#

##")；

Nextj

Print

Nexti

EndSub

A.123B.1C.14

D.123

456

789789

9

57在窗體上畫一個(gè)命令按鈕Commandl,然后編寫如下

代碼：

PrivateSubCommandl_Click()

Dimarrl(10),arr2(10)AsInteger

n=3

Fori=1To5

arrl(i)=i

arr2(n)=2*n+i

Nexti

Printarrl(n),arr2(n);

EndSub

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

A)113B)311C)133D)3

58在窗體上畫一個(gè)命令按鈕Commandl,然后編寫如下

代碼：

PrivateSubCommandl_Click()

Dima(4,4)

Fori=1To4

Forj=1To4

a(i,j)=(i-l)*3+j

Nextj

Nexti

Fori=3To4

Forj=3To4

Printa(j,i);

Nextj

Print

Nexti

EndSub

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

A.69B.710C.8

11D.912

7108119

121013

59有如下程序：

PrivateSubForm_Load()

Dimarrl(10,10)AsInteger

Dimi,jAsInteger

Fori=1To3

Forj=2To4

arrl(i,j)=i+j

Nextj

Nexti

Textl.Text=arrl(2,3)+arrl(3,4)

EndSub

程序運(yùn)行后，單擊窗體，在文本框顯示的值是O

C

A.5B.7C.12D.20

60在窗體上添加一個(gè)命令按鈕Commandl,然后編寫如

下代碼：

OptionBase1

PrivateSubCommandl_Click()

d=0:c=10

x=Array(10,12,21,32,24)

Fori=1To5

Ifx(i)>cThen

d=d+x(i)

c=x(i)

Else

EndIf

Nexti

Printd

EndSub

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

A.89B.99C.23D.77

61下列語(yǔ)句聲明的數(shù)組a包含的元素個(gè)數(shù)有。

A

Dima(3,-2to2,5)

A.120B.75C.60

D.13

62定義數(shù)組Array(lto5,5)后，下列哪一個(gè)數(shù)組元素不存

在oC

A.Array(l,l)B.Array(l,0)

C.Array(0,l)D.Array(5,5)

63在VisualBasic應(yīng)用程序中，以下描述正確的是

oB

A.過(guò)程的定義可以嵌套，但過(guò)程的調(diào)用不能嵌套

B.過(guò)程的定義不可以嵌套，但過(guò)程的調(diào)用可以嵌套

C.過(guò)程的定義和過(guò)程的調(diào)用均可以嵌套

D.過(guò)程的定義和過(guò)程的調(diào)用均不可以嵌套

64假定有如下的Sub過(guò)程：

Subswapp(xAsSingle,yAsSingle)

x=t/y

y=tMody

EndSub

在窗體上添加一個(gè)命令按鈕，然后編寫如下事件過(guò)程：

PrivateSubCommandl_Click()

DimaAsSingle

DimbAsSingle

a=5:b=4

swappa,b

Printa,b

EndSub

程序運(yùn)行時(shí)，單擊命令按鈕得到的結(jié)果是

D

A.54B.11

C.1.254D.1.251

65以下程序的運(yùn)行結(jié)果是oC

Functionfun(aAsInteger)

b=0

Staticc

b=b+l

c=c+1

fun=a+b+c

EndFunction

PrivateSubCommandl_Click()

DimaAsInteger

a=2

Fori=1To3

Sum=Sum+fun(a)

Nexti

PrintSum

EndSub

A.24B.12C.15

D.32

66閱讀程序：

Subsubp(b()AsInteger)

Fori=1To4

b(i)=2*i

Nexti

EndSub

PrivateSubCommandl_Click()

Dima(lTo4)AsInteger

a(l)=5:a(2)=6:a(3)=7:a(4)=8

subpa

Fori=1To4

Printa(i);

Nexti

EndSub

程序運(yùn)行時(shí)，單擊命令按鈕得到的結(jié)果是O

A

A.2468B.5678

C.10121416D.出錯(cuò)

67假定有以下兩個(gè)過(guò)程：

Subsi(ByVaixAsInteger,ByVaiyAsInteger)

DimtAsInteger

t=x

x=y

y=t

EndSub

Subs2(xAsInteger,yAsInteger)

DimtAsInteger

t=x

x=y

y=t

EndSub

則以下說(shuō)法中正確的是oB

A.用過(guò)程SI可以實(shí)現(xiàn)交換兩個(gè)變量的值的操作，S2

不能實(shí)現(xiàn)

B.用過(guò)程S2可以實(shí)現(xiàn)交換兩個(gè)變量的值的操作，S1

不能實(shí)現(xiàn)

C.用過(guò)程S1和S2都可以實(shí)現(xiàn)交換兩個(gè)變量的值的

操作

D.用過(guò)程S1和S2都不能實(shí)現(xiàn)交換兩個(gè)變量的值的

操作

68在窗體上添加一個(gè)命令按鈕Commandl和兩個(gè)名稱分

別為L(zhǎng)abell和Label2的標(biāo)簽，在通用聲明段聲明變量x,

并編寫如下事件過(guò)程和SUB過(guò)程：

PrivatexAsInteger

PrivateSubCommandl_Click()

x=5:y=3

Callproc(x,y)

Labell.Caption=x

Label2.Caption=y

EndSub

Subproc(ByValaAsInteger,ByVaibAs

Integer)

x=a*a

y=b+b

EndSub

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

別是oB

A)5和3B)25和3C)25和6D)5

和6

69下列程序輸出結(jié)果為oA

PrivateSubCommandl_Click()

Fori=1To3

GetValue(i)

Nexti

PrintGetValue(i)

EndSub

PrivateFunctionGetValue(ByValaAsInteger)

dimSAsInteger

S=S+a

GetValue=S

EndFunction

A.4B.5C.10D.

11

70以下程序的運(yùn)行結(jié)果是oC

DimxAsInteger,yAsInteger,zAsInteger

Subs2(aAsInteger,ByVaibAsInteger)

a=2*a

b=b+2

EndSub

PrivateSubCommandl_Click()

y=4

Calls2(x,y)

Printx+y

EndSub

A)0B)8D)14

71以下程序的運(yùn)行結(jié)果是C

PrivateSubForm_Click()

Print“A=”；a;HB=n;b

Callmult(a,b)

Print”A二”；a;HB=n;b

EndSub

Submult(x,y)

x=2*x

y=3*y

EndSub

A.A=1B=1B.A=1B=1C.A=1

B=1A=1B=1

A=1B=1A=1B=3A=2

B=3A=2B=1

72在窗體上添加一個(gè)命令按鈕Commandl和3個(gè)名稱分

別為L(zhǎng)abel!,Label2和Label3的標(biāo)簽，然后編寫如下事

件過(guò)程:

PrivatexAsInteger

PrivateSubCommandl_Click()

StaticyAsInteger

DimzAsInteger

n=10

z=n+z

y=y+z

X=X+z

Labell.Caption=x

Labe!2.Caption=y

Label3.Caption=z

EndSub

程序運(yùn)行后，連續(xù)3次單擊命令按鈕，則3個(gè)標(biāo)簽中顯示

的內(nèi)容分別是oC

A.101010B.303030C.30

3010D.103030

73一個(gè)工程中包含兩個(gè)名稱分別為Forml和Form2的窗

體，一個(gè)名稱為mdlfunc的標(biāo)準(zhǔn)模塊。假定Forml,Form2

和m祖fimc中分別建立了自定義過(guò)程，其定義格式為：

Forml中定義的過(guò)程：

PrivatesubfrmFunctionl()

EndSub

Form2中定義的過(guò)程：

PubilcsubfrmFunction2()

???

EndSub

Mdlfunc中定義的過(guò)程：

PublicsubmdlFunction()

???

EndSub

在調(diào)用上述過(guò)程的程序中，如果不指明窗體或模塊的名稱,

則以下敘述中正確的是oD

A.上述三個(gè)過(guò)程都可以在工程中的任何窗體或模塊

中被調(diào)用

B.frmFunction2和mdlFunction過(guò)程能夠在工程中

各個(gè)窗體或模塊中被調(diào)用

C.上述三個(gè)過(guò)程都只能在各自被定義的模塊中調(diào)用

D.只有mdlFunction過(guò)程能夠被工程中各個(gè)窗體或

模塊調(diào)用

74以下程序段的運(yùn)行結(jié)果是oB

Functionabc(nAsInteger)AsInteger

abc=n*5+10

EndFunction

PrivateSubForm_Click()

DimxAsInteger

x=abc(234)+109*abc(10)

Printx

EndSub

A.7700B.7720C.2340

D.7770

75下列程序運(yùn)行后顯示的結(jié)果是oA

PublicSubFl(n%,ByValm%)Private

SubCommandl_Click()

n=nModlODimx%,y%

m=m\10x=12:y=34

EndSubCall

Fl(x,y)

Printx,y

EndSub

A.234B.1234C.23

D.123

76以下關(guān)于窗體的描述中，錯(cuò)誤的是oA

A.執(zhí)行UnloadForml語(yǔ)句后，窗體Forml消失，

但仍在內(nèi)存中

B.窗體的load事件在加載窗體時(shí)發(fā)生

C.當(dāng)窗體的Enabled屬性為False時(shí)，通過(guò)鼠標(biāo)和鍵

盤對(duì)窗體的操作都被禁止

D.窗體的Height、Width屬性用于設(shè)置窗體的高和

寬

77若要使某命令按鈕獲得控制焦點(diǎn)，則可使用方

法來(lái)設(shè)置。B

A.RefreshB.SetFocus

C.GotFocusD.Value

78設(shè)組合框Combol中有3個(gè)項(xiàng)目，則能刪除最后一個(gè)

項(xiàng)的語(yǔ)句是oB

A.Combol.RemoveltemText

B.Combol.Removeltem2

C.Combo1.Removeitem3

D.Combol.RemoveltemCombol.Listcount

79將數(shù)據(jù)項(xiàng)“China”添加到列表框Listl中，成為第一項(xiàng)

應(yīng)使用語(yǔ)句oA

A.Listl.AddItem"China”,0B.

List1.Additem"China**,1

C.ListlAddltem0,“China"D.

Listl.AddItem1,"China"

80假定時(shí)鐘控件的Interval屬性為1000,Enabled屬性

為True,并且有下面的事件過(guò)程，計(jì)算機(jī)將發(fā)出

次Beep聲。D

PrivateSubTimerl_Timer()

Fori=1To5

Beep

Nexti

EndSub

A.1000次B.10000次C.5次D.

以上都不對(duì)

81將命令按鈕Commandl的標(biāo)題作為文本框Textl的文

本內(nèi)容，應(yīng)執(zhí)行語(yǔ)句oB

A.Textl=Commandl

B.Textl.Text=Commandl.Caption

C.Textl.Caption=Commandl.Caption

D.Textl.Text=CStr(Commandl)

82下列控件可以用作其他控件容器的有o

D

A.窗體，標(biāo)簽，圖片框

B.窗體，框架，文本框

C.窗體，圖像，列表框

D.窗體，框架，圖片框

83改變驅(qū)動(dòng)器列表框的Drive屬性將激活事件。

A

A)ChangeB)ScrollC)KeyDown

D)KeyUp

84在窗體上添加一個(gè)列表框和一個(gè)文本框，然后編寫如

下兩個(gè)事件過(guò)程：

PrivateSubForm_Load()

Listl.AddItem”357”

ListlAddltem”246”

ListlAddltem”123”

Listl.AddItem"456”

EndSub

PrivateSubListl_DblClick()

a=Listl.Text

Printa+Text1.Text

EndSub

程序運(yùn)行后，在文本框中輸入“789”，然后雙擊列表框中的

“456”，則輸出結(jié)果為oB

A.1245B.456789C.789456

D.0

85在窗體上添加一個(gè)文本框，然后編寫如下事件過(guò)程：

PrivateSubForm_Load()

Textl.Text=,,H

Fori=1To10

Sum=Sum+i

Nexti

Textl.Text=Sum

EndSub

上述程序的運(yùn)行結(jié)果是oA

A.在文本框Textl中輸出55B.在文本框

Textl中輸出0

C.出錯(cuò)D.在文本框

Textl中輸出不定值

86在窗體上添加一命令按鈕CommandL并Caption

屬性設(shè)置為cmdAA＞名稱屬性設(shè)置為cmdBB,則關(guān)于該

控件的下列語(yǔ)句是正確的。C

A.Commandl.Left=100B.cmdAA.Left=100

C.cmdBB.Left=100D.以上語(yǔ)句都不對(duì)

87在窗體上畫一個(gè)名稱為L(zhǎng)istl的列表框，一個(gè)名稱為

Labell的標(biāo)簽。列表框中顯示若干城市的名稱。當(dāng)單擊列

表框中的某個(gè)城市名時(shí)，在標(biāo)簽中顯示選中城市的名稱。

在Listl的單擊事件過(guò)程中能正確實(shí)現(xiàn)上述功能的語(yǔ)句是

oD

A)Labell.Caption=Listl.Listindex

B)Labell.Name=Listl.Listindex

C)Labell.Name=Listl.Text

D)Labell.Caption=Listl.Text

88下面對(duì)語(yǔ)句OpenHRizhi.datHForOutputAs#1的功

能描述錯(cuò)誤的是oC

A.以順序輸出模式打開(kāi)文件”Rizhi.dat”

B.如果文件"Rizhi.dat”不存在，則建立一個(gè)新文件

C.如果文件”Rizhi.dat”已存在，則打開(kāi)該文件，新

寫入的的數(shù)據(jù)將添加到文件末尾

D.如果文件”Rizhi.dat”已存在，則打開(kāi)該文件，新

寫入的的數(shù)據(jù)將覆蓋原來(lái)的數(shù)據(jù)

89執(zhí)行語(yǔ)句OpenHSample.datnForRandomAs#1

Len=50后，對(duì)文件"Sample.dat”中的數(shù)據(jù)能夠進(jìn)行的操

作是。C

A.只能寫不能讀

B.只能讀不能寫

C.即可以讀，也可以寫

D.不能讀，也不能寫

90下列說(shuō)法錯(cuò)誤的是oC

A）當(dāng)用Write#語(yǔ)句寫順序文件時(shí)，文件必須以

Output或Append方式打開(kāi)

B）用Input方式打開(kāi)一個(gè)文件時(shí)，對(duì)同一個(gè)文件可

以用幾個(gè)不同的文件號(hào)打開(kāi)

C）用Output和Append方式打開(kāi)文件時(shí)，不用將文

件關(guān)閉，就能重新打開(kāi)文件

D）用Append方式打開(kāi)文件時(shí)，進(jìn)行寫操作，寫入

文件的數(shù)據(jù)附加到原來(lái)文件的后面

91下面幾個(gè)關(guān)鍵字均表示文件的打開(kāi)方式，只能進(jìn)行讀

不能寫的是oA

A.InputB.OutputC.

RandomD.Append

92下列哪個(gè)不是寫文件語(yǔ)句oD

A.PutB.PrintC.Write

D.Output

93以下敘述中正確的是oB

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

同

B.隨機(jī)文件中每個(gè)記錄的長(zhǎng)度是固定的

C.Open命令的作用是打開(kāi)一個(gè)已經(jīng)存在的文件

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

94在窗體上添加一個(gè)命令按鈕Commandl和一個(gè)文本框

Textl,然后編寫如下事件過(guò)程：

PrivateSubCommandl_Click()

DimsAsString*20

s=Textl.Text

EndSub

該程序的功能是當(dāng)單擊按鈕Commandl時(shí)，把變量S的內(nèi)

容寫入一個(gè)順序文件datl.dat中,正確的程序段是o

B

A.Open"datl.dat"ForInputAs#1B.

Open"datl.dat"ForOutputAs#1

Write#1,s

Write#1,s

Close#1

Close#1

C.Open''datl.dat"ForRandomAs#1D.

Open,,datl.datnForBinaryAs#1

Write#1,s

Write#1,s

Close#1Close

#1

95FileFiles.Pattem="*.dat”程序代碼執(zhí)行后，會(huì)顯示

oA

A.只包含文件擴(kuò)展名為L(zhǎng)dat”的文件

B.第一個(gè)dat文件

C,包含所有的文件

D.顯示磁盤的路徑

96目錄列表框的Path屬性的作用是oA

A.顯示當(dāng)前驅(qū)動(dòng)器或指定驅(qū)動(dòng)器上的路徑

B.顯示當(dāng)前驅(qū)動(dòng)器或指定驅(qū)動(dòng)器上的某個(gè)目錄下的

文件名

C.顯示根目錄下的文件

D.只顯示當(dāng)前路徑下的文件

97為了使Drivel驅(qū)動(dòng)器列表框、Dirl目錄路徑列表框和

Filel文件列表框同步協(xié)調(diào)工作，需要oA

A.Drivel的Change事件過(guò)程中加入Dir1.Path=

Drivel.Drive,在Dirl的Change事件中加入Filel.Path=

Dirl.Path代碼

B.Drivel的Change事件過(guò)程中加入Dirl.Path

=Dirl.Path,在Dirl的Change事件中加入Filel.Path=

Drivel.Drive代碼

C.Dirl的Change事件過(guò)程中加入Dirl.Path=

Drivel.Drive,4Drivel的Change事件中加入Filel.Path=

Filel.FileName代碼

D.Dirl的Change事件過(guò)程中加入Dirl.Path=

Drivel.Drive,在Drivel的Change事件中加入Filel.Path=

Dirl.Path代碼

98以下程序運(yùn)行后，al.dat文件的內(nèi)容是。

B

PrivateSubForm_Click()

DimflAsInteger,f2AsInteger,f3As

Integer

Open"d:\al.dat"ForOutputAs#1

fl=2

f2=3

f3=f2+f1

Write#1,fl*f2,f2,f3

Close#1

EndSub

A.2,3,3B.6,3,5

C.2,5,6D.無(wú)內(nèi)容

99以下能判斷是否到達(dá)文件尾的函數(shù)是o

D

A)BOFB)LOCC)LOFD)

EOF

100一條語(yǔ)句要分行書寫，用符號(hào)作續(xù)行符。C

A.+B.-C