省二级考试VB试题

省二级考试VB试题汇总

（2006年6月）

前言：本辅导资料主要在于介绍省二级考试的基本题型和

基本考点，所以提议大家在第一遍看本资料时，应认真做

好每一题，在遢到不会或不懂的题时，立即到课本中找本

题相关的知识点并弄懂这些知识点，然后再来分析此题，

以达到对考点各各击破的目的，如此下去便可掌握省二级

考试的几乎所有考点，从而可以应付千变万化的考题了。

本资料内的考趣只是考试题库中的一小部分而已，切不可

只做出本资料内各题的答案，而没掌握其考点知识，这将

会导致后悔莫及的后果。此外，瘦议大家在掌握考试题型

和考点后，应上机实际操作，尤其对于能力测试题更应已

上机练习为主，掌握做题步哪和基本技巧，方可取得理想

的成绩。最后预祝大家在省二级考试中取得优异的成绩！

第一部分知识测试题

一、选择题（每套试卷有20个选择题，每题1分）

1以下4种描述中，错误的是oD

A.常量在程序执行期间其值不会发生改变

B.根据数据类型不同，常量可分为字符型常量、数

值常量、日期/时间型常量和布尔型常量

C.符号常量是用一个标识符来代表一个常数，好象

是为常数取一个名字，但仍保持常数的性质

D.符号常量的使用和变量的使用没有差别

2下面合法的常量是______oD

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

D.False

3VisualBasic中可以用类型说明符来标识变量的

C

类型，其中表示货币型的是O

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

4以下关键字中，不能定义变量的是。A

A.DeclareB.DimC.Public

D.Private

5用十六进制表示VisualBasic的整型常数时，前面要加

上的符号是。A

A)&HB)&OC)HD)O

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

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

7数学关系3/xvl0表示成正确的VB表达式为

oB

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

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

8\,/,Mod,*四个算术运算符中，优先级别最低的是

C

A.\B./C.Mod

D.*

9下面语句中有非法调用的是oC

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

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

10表达式23/5.8、23\5.8、23Mod5.8的运算结果分别是

______________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,贝！|表达式a<d

ORb>cANDboc的值______。A

A.TrueB.FalseC.YesD.

No

12为了给x,y,z三个变量赋初值1,下面正确的赋值

A

语句是O

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

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

13以下4类运算符，优先级最低的是oD

A.算术运算符B.字符运算符C.关系

运算符D.逻辑运算符

14已知a=,,12345678n,则表达式Left(a,4)+Mid(a,4,2)

的值是oB

A)123456B)”123445"C)

123445D)1279

15设有如下的记录类型

TypeStudent

numberAsString

nameAsString

ageAsInteger

EndType

则正确引用该记录类型变量的代码是oB

A.S="张红"B.DimsAsStudent

,，张红,,

=

C.DimsAsTypeStuentD.DimsAsType

="张红"="张红”

16下列程序运行时，从键盘输入字符”」，则输出结果是

______________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下列程序段的运行结果为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执行PRINT18/2*3,-3人2命令后，输出结果为

oC

A.39B.3-9

C.27-9D.-9

27

19执行PRINT9.4\3.7,9.4MOD3.7命令后，输出

A

结果为o

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

20运行以下程序后，输出结果为oC

x%=l/4

y%=11/4

PRINTx%;y%

END

A.0.250.75B.02C.0

3D.13

21窗体里有两个对象，分别是图片框Picturel和标签

Labello那么下面关于Print方法的使用中，错误的一条是

___________oD

A.Picturel.Print147B.Print147

C.Printer.Print147D.Labell.Print147

22下面的语句可以实现：先在窗体上输出大写

字母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("请输入第一个数：”)

n2=InputBox("请输入第二个数：”)

Printnl+n2

当输入分别为111和222时，程序输出为oA

A.111222B.222C.333

D.程序出错

24语句PrintFormat("HELLO',H<H)的输出结果是

oB

A.HELLOB.helloC.He

D.he

25语句Print(a=2)And(b=-2)的输出结果是。

D

A.TrueB.结果不确定C.

-1D.False

26以下程序段运行后，输出字符的排列顺序是o

D

Fori=lTo6

IfiMod2=0Then

Printn#n;

Else

Print

EndIf

Nexti

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

D.*#*#*#

27用MSGBOX函数显示的对话框，以下叙述正确的是

_______oD

A)该对话框有一个“确定”按钮

B)该对话框有“是"，“否”两个按钮

C)该对话框有“是”，“否”，“取消”三个按钮

D)该对话框通过选择参数可以得到以上不同的的按

钮组合

28与语句Dimabc%作用相同的语句是。A

A)DimabcAsIntegerB)DimabcAs

Long

C)DimabcAsStringD)DimabcAs

Date

29设a=l,b=2,c=3,d=4,则表达式IIf(avb,a,IIf(cvd,a,d))

的结果为oD

A.4B.3C.2

D.1

30表达式Int(198.555*100+0.5)/100的值为。

C

A.198B.199.6C.198.56

D.200

31要使变量x赋值为1〜100间(含1,不含100)的一

个随机整数，正确的语句是。D

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

x=Int(101*Rnd)

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

x=l+Int(99*Rnd)

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

是oD

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

33表达式Int(5*Rnd+l)*Int(5*Rnd-l)值的范围是

oD

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

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

34当函数MsgBox返回值为1,对应的符号常量是

A.用户单击了对话框中的“确定”按钮

B.用户单击了对话框中的“取消”按钮

C.用户单击了对话框中的“是"按钮

D.用户单击了对话框中的“否”按钮

35在VisualBasic中，InputBox函数的默认返回值类型

为字符串，用InputBox函数输入数值型数据时，下列操作

中可以有效防止程序出错的操作是oA

A.事先对要接收的变量定义为数值型

B.在函数InputBox前面使用Str函数进行类型转换

C.在函数InputBox前面使用Value函数进行类型转

换

D.在函数InputBox前面使用String函数进行类型转

换

36表达式Len(“123程序设计ABC”)的值是。

A

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

37赋值语句g=123+Mid(H123456n,3,2)执行后，变量g

中的值是oD

A)”12334”B)123012334D)

157

38如果x是一个正实数，对x的第3位小数四舍五入的

表达式是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函数的返回值的类型是oA

A)整数B)字符串C)逻辑

值D)日期

40使用下列语句：Dimx(lto10,3)AsSingle,则数组占

用内存空间的字节数是______oC

A.132B.80C.160

D.120

41若x=l,执行语句IfxThenx=0Elsex=1的结果是

oD

A.实时错误B.编译错误

C.x=lD.x=0

42下列程序段的循环结构执行后，i的输出值是o

C

DimyasInteger

Fori=1To10Step2

y=y+i

Nexti

Printi

A)25B)10C)11D)因为y初

值不知道，所以不确定

43以下程序段的运行结果是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以下程序段的运行结果是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以下程序段的运行结果是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下面分别是求两个数中的大数的四个程序段，

不正确。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下列循环能正常结束的是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有如下程序，运行时从键盘输入4,则输出的结果是

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执行如下程序段时，从键盘输入-5,输出的结果是

A

x=-5

s=Val(InputBox("请输入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某林场1995年植树100亩，以后每年的植树面积按5%

的速度增长，能正确计算到1998年时四年的植树总面积的

程序是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以下程序段执行后，变量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以下程序段的执行结果是A

Fori=lTo4

x=2

Forj=lTo3

x=l

Fork=lTo2

x=x+3

Nextk

Nextj

Nexti

Printx

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

53用语句DimA(-3to5)AsLong定义的数组元素个数

是oC

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

54以下程序运行的结果是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)下标越界

55在窗体上添加一个命令按钮CommandL然后编写如

下代码:

PrivateSubCommandl_Click()

DimcityAsVariant

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

”)

Printcity(l)

EndSub

程序运行后,单击命令按钮,输出结果是oD

A.空白B.错误提示C.北京D.

上海

56以下程序运行的结果是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在窗体上画一个命令按钮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

程序运行后，单击命令按钮，输出结果是

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

58在窗体上画一个命令按钮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

程序运行后,单击命令按钮,输出结果是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

程序运行后，单击窗体，在文本框显示的值是O

C

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

60在窗体上添加一个命令按钮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

程序运行后,单击命令按钮,输出结果是oC

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

61下列语句声明的数组a包含的元素个数有。

A

Dima(3,-2to2,5)

A.120B.75C.60

D.13

62定义数组Array(lto5,5)后，下列哪一个数组元素不存

在oC

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

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

63在VisualBasic应用程序中，以下描述正确的是

oB

A.过程的定义可以嵌套，但过程的调用不能嵌套

B.过程的定义不可以嵌套，但过程的调用可以嵌套

C.过程的定义和过程的调用均可以嵌套

D.过程的定义和过程的调用均不可以嵌套

64假定有如下的Sub过程：

Subswapp(xAsSingle,yAsSingle)

x=t/y

y=tMody

EndSub

在窗体上添加一个命令按钮，然后编写如下事件过程：

PrivateSubCommandl_Click()

DimaAsSingle

DimbAsSingle

a=5:b=4

swappa,b

Printa,b

EndSub

程序运行时，单击命令按钮得到的结果是

D

A.54B.11

C.1.254D.1.251

65以下程序的运行结果是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

程序运行时，单击命令按钮得到的结果是O

A

A.2468B.5678

C.10121416D.出错

67假定有以下两个过程：

Subsi(ByVaixAsInteger,ByVaiyAsInteger)

DimtAsInteger

t=x

x=y

y=t

EndSub

Subs2(xAsInteger,yAsInteger)

DimtAsInteger

t=x

x=y

y=t

EndSub

则以下说法中正确的是oB

A.用过程SI可以实现交换两个变量的值的操作，S2

不能实现

B.用过程S2可以实现交换两个变量的值的操作，S1

不能实现

C.用过程S1和S2都可以实现交换两个变量的值的

操作

D.用过程S1和S2都不能实现交换两个变量的值的

操作

68在窗体上添加一个命令按钮Commandl和两个名称分

别为Labell和Label2的标签，在通用声明段声明变量x,

并编写如下事件过程和SUB过程：

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

程序运行后，单击命令按钮，则两个标签中显示的内容分

别是oB

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

和6

69下列程序输出结果为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以下程序的运行结果是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以下程序的运行结果是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在窗体上添加一个命令按钮Commandl和3个名称分

别为Label!,Label2和Label3的标签，然后编写如下事

件过程:

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

程序运行后，连续3次单击命令按钮，则3个标签中显示

的内容分别是oC

A.101010B.303030C.30

3010D.103030

73一个工程中包含两个名称分别为Forml和Form2的窗

体，一个名称为mdlfunc的标准模块。假定Forml,Form2

和m祖fimc中分别建立了自定义过程，其定义格式为：

Forml中定义的过程：

PrivatesubfrmFunctionl()

EndSub

Form2中定义的过程：

PubilcsubfrmFunction2()

•••

EndSub

Mdlfunc中定义的过程：

PublicsubmdlFunction()

•••

EndSub

在调用上述过程的程序中，如果不指明窗体或模块的名称,

则以下叙述中正确的是oD

A.上述三个过程都可以在工程中的任何窗体或模块

中被调用

B.frmFunction2和mdlFunction过程能够在工程中

各个窗体或模块中被调用

C.上述三个过程都只能在各自被定义的模块中调用

D.只有mdlFunction过程能够被工程中各个窗体或

模块调用

74以下程序段的运行结果是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下列程序运行后显示的结果是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以下关于窗体的描述中，错误的是oA

A.执行UnloadForml语句后，窗体Forml消失，

但仍在内存中

B.窗体的load事件在加载窗体时发生

C.当窗体的Enabled属性为False时，通过鼠标和键

盘对窗体的操作都被禁止

D.窗体的Height、Width属性用于设置窗体的高和

宽

77若要使某命令按钮获得控制焦点，则可使用方

法来设置。B

A.RefreshB.SetFocus

C.GotFocusD.Value

78设组合框Combol中有3个项目，则能删除最后一个

项的语句是oB

A.Combol.RemoveltemText

B.Combol.Removeltem2

C.Combo1.Removeitem3

D.Combol.RemoveltemCombol.Listcount

79将数据项“China”添加到列表框Listl中，成为第一项

应使用语句oA

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

List1.Additem"China**,1

C.ListlAddltem0,“China"D.

Listl.AddItem1,"China"

80假定时钟控件的Interval属性为1000,Enabled属性

为True,并且有下面的事件过程，计算机将发出

次Beep声。D

PrivateSubTimerl_Timer()

Fori=1To5

Beep

Nexti

EndSub

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

以上都不对

81将命令按钮Commandl的标题作为文本框Textl的文

本内容，应执行语句oB

A.Textl=Commandl

B.Textl.Text=Commandl.Caption

C.Textl.Caption=Commandl.Caption

D.Textl.Text=CStr(Commandl)

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

D

A.窗体，标签，图片框

B.窗体，框架，文本框

C.窗体，图像，列表框

D.窗体，框架，图片框

83改变驱动器列表框的Drive属性将激活事件。

A

A)ChangeB)ScrollC)KeyDown

D)KeyUp

84在窗体上添加一个列表框和一个文本框，然后编写如

下两个事件过程：

PrivateSubForm_Load()

Listl.AddItem”357”

ListlAddltem”246”

ListlAddltem”123”

Listl.AddItem"456”

EndSub

PrivateSubListl_DblClick()

a=Listl.Text

Printa+Text1.Text

EndSub

程序运行后，在文本框中输入“789”，然后双击列表框中的

“456”，则输出结果为oB

A.1245B.456789C.789456

D.0

85在窗体上添加一个文本框，然后编写如下事件过程：

PrivateSubForm_Load()

Textl.Text=,,H

Fori=1To10

Sum=Sum+i

Nexti

Textl.Text=Sum

EndSub

上述程序的运行结果是oA

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

Textl中输出0

C.出错D.在文本框

Textl中输出不定值

86在窗体上添加一命令按钮CommandL并Caption

属性设置为cmdAA＞名称属性设置为cmdBB,则关于该

控件的下列语句是正确的。C

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

C.cmdBB.Left=100D.以上语句都不对

87在窗体上画一个名称为Listl的列表框，一个名称为

Labell的标签。列表框中显示若干城市的名称。当单击列

表框中的某个城市名时，在标签中显示选中城市的名称。

在Listl的单击事件过程中能正确实现上述功能的语句是

oD

A)Labell.Caption=Listl.Listindex

B)Labell.Name=Listl.Listindex

C)Labell.Name=Listl.Text

D)Labell.Caption=Listl.Text

88下面对语句OpenHRizhi.datHForOutputAs#1的功

能描述错误的是oC

A.以顺序输出模式打开文件”Rizhi.dat”

B.如果文件"Rizhi.dat”不存在，则建立一个新文件

C.如果文件”Rizhi.dat”已存在，则打开该文件，新

写入的的数据将添加到文件末尾

D.如果文件”Rizhi.dat”已存在，则打开该文件，新

写入的的数据将覆盖原来的数据

89执行语句OpenHSample.datnForRandomAs#1

Len=50后，对文件"Sample.dat”中的数据能够进行的操

作是。C

A.只能写不能读

B.只能读不能写

C.即可以读，也可以写

D.不能读，也不能写

90下列说法错误的是oC

A）当用Write#语句写顺序文件时，文件必须以

Output或Append方式打开

B）用Input方式打开一个文件时，对同一个文件可

以用几个不同的文件号打开

C）用Output和Append方式打开文件时，不用将文

件关闭，就能重新打开文件

D）用Append方式打开文件时，进行写操作，写入

文件的数据附加到原来文件的后面

91下面几个关键字均表示文件的打开方式，只能进行读

不能写的是oA

A.InputB.OutputC.

RandomD.Append

92下列哪个不是写文件语句oD

A.PutB.PrintC.Write

D.Output

93以下叙述中正确的是oB

A.一个记录中所包含的各个元素的数据类型必须相

同

B.随机文件中每个记录的长度是固定的

C.Open命令的作用是打开一个已经存在的文件

D.使用Input#语句可以从随机文件中读取数据

94在窗体上添加一个命令按钮Commandl和一个文本框

Textl,然后编写如下事件过程：

PrivateSubCommandl_Click()

DimsAsString*20

s=Textl.Text

EndSub

该程序的功能是当单击按钮Commandl时，把变量S的内

容写入一个顺序文件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”程序代码执行后，会显示

oA

A.只包含文件扩展名为Ldat”的文件

B.第一个dat文件

C,包含所有的文件

D.显示磁盘的路径

96目录列表框的Path属性的作用是oA

A.显示当前驱动器或指定驱动器上的路径

B.显示当前驱动器或指定驱动器上的某个目录下的

文件名

C.显示根目录下的文件

D.只显示当前路径下的文件

97为了使Drivel驱动器列表框、Dirl目录路径列表框和

Filel文件列表框同步协调工作，需要oA

A.Drivel的Change事件过程中加入Dir1.Path=

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

Dirl.Path代码

B.Drivel的Change事件过程中加入Dirl.Path

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

Drivel.Drive代码

C.Dirl的Change事件过程中加入Dirl.Path=

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

Filel.FileName代码

D.Dirl的Change事件过程中加入Dirl.Path=

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

Dirl.Path代码

98以下程序运行后，al.dat文件的内容是。

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.无内容

99以下能判断是否到达文件尾的函数是o

D

A)BOFB)LOCC)LOFD)

EOF

100一条语句要分行书写，用符号作续行符。C

A.+B.-C