VB期末考试复习题

VB考试一

1、能够获得一个文本框中被选取文本的内容的属性是O

A：SelStart

B：SelLength

C：SelText

D：Text

参考答案：C

2、在窗体上画一个文本框，其名称为Textl,为了在程序运行后隐藏该文本框，应当使用的

语句为：。

A：Textl.Enabled=False

B：Textl.Hide

C：Textl.Clear

D：Textl.Visible=False

参考答案：D

3、对于语句Ifx=lTheny=l,下列说法正确的是。

A：x=l和y=l均为赋值语句

B：x=l和y=l均为关系表达式

C：x=l为赋值语句，y=l为关系表达式

D：x=l为关系表达式，y=l为赋值语句

参考答案：D

4、以下变量名中，是不符合VisualBasic的命名规范的。

A：_mnu_Open_234

B：Abc901

C：price_

D：K

参考答案：A

5、MsgBox函数返回值的类型是o

A：数值或字符串

B：字符串

C：变体

D：整型数值

参考答案：D

6、VB一共有设计、运行和中断三种模式，要使用调试工具应该。

A：进入中断模式

B：进入运行模式

C：进入设计模式

D：不用进入任何模式

参考答案：A

7、设a=6,则执行

x=IIF(a>5,-l,0)

后，x的值为。

A：-1

B：6

C：0

D：5

参考答案：A

8、可以同时删除字符前导和尾部空白的函数是

A：Mid

B：Rtrim

C：Trim

D：Ltrim

参考答案：C

9、以下语句的输出结果是。

PrintFormat$("32548.5","000,000.00")

A：32,548.5

B：32548.5

C：032,548.50

D：32,548.50

参考答案：C

10、设有如下声明:

DimXAsInteger

如果Sgn(X)的值为-1,则X的值是。

A：等于0的整数

B：大于0的整数

C：整数

D：小于0的整数

参考答案：D

11、在窗体上画一个命令按钮，然后编写如下事件过程:

PrivateSubCommand1_C1ick()

Fori=1To4

x=4

Forj=1To3

x=3

Fork=1To2

x=x+6

Nextk

Nextj

Nexti

Printx

EndSub

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

参考答案：15#15#15#15

12、执行下面的程序段后，S的值为o

s=5

Fori=2.6To4.9Step0.6

s=s+l

Nexti

参考答案：9

13、下列表达式有错误，正确的写法应该是o

[(a+b)+c]/80-5-(d+e)

参考答案：(a+b+c)/80・5/(d+e)#(a+b+c)/80-5/(d+e)

14、表示x是5的倍数或是9的倍数的逻辑表达式为

参考答案：xMod5=0OrxMod9=0#xMod9=0OrxMod5=0

15、以下程序的功能是:从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数

字的平均值，输出结果。请填空。

PrivateSubForm_click()

Dimx,yAsSingle

DimzAsInteger

x=InputBox(MEnterascore0)

Dowhilex>=0

y=y+x

z=z+1

x=InputBox(nEnterascore11)

Loop

Ifz=0Then

z=1

EndIf

y=______

Printy

EndSub

参考答案：y/z

VB考试二

1、列表框中的列表项的数目可以通过以下哪个属性的值获得O

A：Listindex

B：ListCount

C：Count

D：Index

参考答案：B

2、在窗体上画一个名称为Listl的列表框，一个名称为Label1的标签。列表框中显示若干

城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确

实现上述功能的程序是o

A：PrivateSubListl_Click()

Label1.Caption=List1.Text

EndSub

B：PrivateSubListl_Click()

Label1.Name=List1.Listindex

EndSub

C：PrivateSubListl_Click()

Label1.Name=List1.Text

EndSub

D：PrivateSubListl_Click()

Label1.Caption=List1.Listindex

EndSub

参考答案：A

3、在列表框中当前被选中的列表项的序号是由下列哪个属性表示。

A：Listindex

B：Index

C：List

D：Tabindex

参考答案：A

4、为了清除列表框中的所有内容，应使用的方法是：。

A：Clear

B：Remove

C：Removeitem

D：Cis

参考答案：A

5、在窗体上画一个名称为Listl的列表框，为了对列表框中的每个项目都能进行处理，应

使用的循环语句为o

A：Fori=lToListl.ListCount

NEXT

B：Fori=0ToListl.Count-1

NEXT

C：Fori=0ToListl.ListCount-1

NEXT

D：Fori=lToListl.Count

NEXT

参考答案：C

6、设有如下程序：

OptionBase0

PrivateSubForm_Click()

Dima

DimiAsInteger

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

Fori=0To3

Printa(5-i);

Next

EndSub

程序运行后，单击窗体，则在窗体上显示的是O

A：6543

B：5432

C：4321

D：7654

参考答案：A

7、设执行以下程序段时依次输入1、3、5,执行结果为

Dima(4)AsInteger,b(4)AsInteger

ForK=0To2

a(K+1)=Val(InputBox(”请输入数据”))

b(3・K)=a(K+1)

NextK

PHntb(K)

A：0

B：3

C：5

D：1

参考答案：D

8、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序:

PrivateSubCommandl_Click()

DimiAsInteger,jAsInteger

Dima(10,l0)AsInteger

Fori=lTo3

Forj=lTo3

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

Printa(i,j);

Nextj

Print

Nexti

EndSub

程序运行后，单击命令按钮，窗体上显示的是O

A：123

456

789

B：234

345

456

C：147

258

369

D：123

246

369

参考答案：A

9、用下面的语句所定义的数组的元素个数是：。

Dimarr(3To5,-2to2)

A：24

B：12

C：15

D：20

参考答案：C

10、下列语句可以为动态数组分配实际元素个数。

A：static语句

B：Dim语句

C：public语句

D：ReDim语句

参考答案：D

11＞假定程序中有以下语句：

answer=MsgBox(,,Stringl,,„"String2",,,String3H,2)

执行该语句后，将显示一个信息框，此时如果单击“确定“按钮，则answei•的值为：

A：String3

B：String2

C：String1

D：1

参考答案：D

12、设有语句

x=InputBox("输入数值示例”)

程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是

A：0是默认值

B：变量X的值是字符串“10”

C：在InputBox对话框标题栏中显示的是“示例”

D：变量X的值是数值10

参考答案：B

13、以下程序段运行的结果是：o

Dima(-lTo5)AsBoolean

DimflagAsBoolean

flag=False

DimiAsInteger

DimjAsInteger

DoUntilflag=True

Fori=-1To5

j=j+1

Ifa(i)=FalseThen

a(i)=True

ExitFor

EndIf

Ifi=5Then

flag=True

EndIf

Next

Loop

Printj

A：20

B：7

C：8

D：35

参考答案：D

14、设a=5,b=6,c=7,d=8,则执行下列语句后，x的值为：。

x=IIF((a>b)And(c<d),10,20)

A：300

B：20

C：30

D：10

参考答案：B

15、要将•个组合框设置为简单组合框(SimpleCombo),则应将其Style属性设置为

A：0

B：1

C：3

D：2

参考答案：B

VB考试三

1、设组合框Combol中有3个项目，则以下能删除最后一项的语句是.

A：Combol.RemoveitemCombol.Listcount

B：Combol.Rcmoveltem2

C：Combo1.Removeitem3

D：Combo1.RemoveltcmText

参考答案：B题分：6

2、在窗体上画一个命令按钮，其名称为Commands然后编写如下程序:

FunctionFunc(ByValxAsInteger,yAsInteger)

y=x*y

Ify>0Then

Func=x

Else

Func=y

EndIf

EndFunction

PrivateSubCommandl_Click()

DimaAsInteger,bAsInteger

a=3

b=4

c=Func(a,b)

Print"a="；a

PrintHb=M;b

Print"c="；c

EndSub

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

A：a=3

b=4

c=12

B：a=13

b=12

c=12

C：a=3

b=4

c=3

D：a=3

b=12

c=3

参考答案：D题分：6

3、单击命令按钮时，下列程序代码的执行结果为—

PublicSubProcl(nAsInteger,ByVaimAsInteger)

n=nMod10

m=m/10

EndSub

PrivateSubCommand1_Click()

DimxAsInteger,yAsInteger

x=12:y=34

CallProcl(x,y)

Printx;y

EndSub

A：123

B：23

C：1234

D：234

参考答案：D题分：6

4、以下关于函数过程的叙述中，正确的是。

A：在函数过程中，过程的返回值可以有多个

B：函数过程形参的类型与函数返回值的类型没有关系

C：当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递

D：如果不指明函数过程参数的类型，则该参数没有数据类型

参考答案：B题分：6

5、以下说法错误的是。

A：函数过程可以带参数

B：子过程没有返回值

C：函数过程没有返回值

D：子过程可以带参数

参考答案：C题分：6

6、在窗体上画一个命令按钮(名称为Command])，然后编写如下事件过程：

PrivateSubCommandl_Click()

DimbAsInteger

b=b+1

EndSub

运行程序，三次单击命令按钮后，变量b的值是：O

A：2

B：1

C：0

D：3

参考答案：B题分：6

7、假定有以下函数过程：

FunctionFun(SAsString)AsString

DimsiAsString

Fori=1ToLen(S)

sl=UCase(Mid(S,i,l))+sl

Nexti

Fun=si

EndFunction

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

PrivateSubCommand1_Click()

DimStrlAsString,Str2AsString

Strl=InputBox("请输入一个字符串”)

Str2=Fun(Strl)

PrintStr2

EndSub

程序运行后，单击命令按钮，如果在输入对话框中输入字符串"abcdefg”则单击“确定”按钮后

在窗体上的输出结果为O

A：GFEDCBA

B：ABCEDFG

C：gfedcba

D：abcdefg

参考答案：A题分：6

8、Sub过程与Function过程最根本的区别是。

A：两种过程参数的传递方式不同

B：Function过程可以有参数，Sub过程不可以

C：Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以

D：Sub过程的过程名不能返回值，而Function过程能通过过程名返回值

参考答案：D题分：6

9、在代码中定义了一个子过程：

SubP(a,b)

EndSub

下面调用该过程的格式是正确的。

A：CallP

B：CallP10,20

C：P(10,20)

D：CallP(10,20)

参考答案：D题分：6

10、在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：

PrivateSubCommandl_Click()

StaticXAsInteger

StaticYAsInteger

Cis

Y=1

Y=Y+5

X=5+X

PrintX,Y

EndSub

程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为。

A：1515

B：156

C：1516

D：56

参考答案：B题分：6

11、设有以下循环结构

Do

循环体

LoopWhilev条件,

则以下叙述中错误的是O

A：循环体中可以使用ExitDo语句

B：”条件”可以是关系表达式、逻辑表达式或常数

C：若"条件”是一个为0的常数，则一次也不执行循环体

D：如果”条件"总是为True,则不停地执行循环体

参考答案：C题分：6

12、在窗体上画一个名称为Commandl的命令按钮，然后编写如下通用过程和命令按钮的

事件过程：

PrivateFunctionfun(ByValmAsInteger)

IfmMod2=0Then

fun=2

Else

fun=1

EndIf

EndFunction

PrivateSubCommand1_Click()

DimiAsInteger,sAsInteger

s=0

Fori=1To5

s=s+fun(i)

Next

Prints

EndSub

程序运行后，单击命令按钮，在窗体上显示是。

A：7

B：6

C：8

D：9

参考答案：A题分：6

VB考试四

1、某人编写了如下程序，用来求10个整数(整数从键盘输入)中的最大值：

PrivateSubCommandl_Click()

Dima(l0)AsInteger,maxAsInteger

Fork=lTo10

a(k尸InputBox("输入一个整数”)

Nextk

max=0

Fork=lTo10

Ifa(k)>maxThen

max=a(k)

EndIf

Nextk

Printmax

EndSub

运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误

的，程序需要修改。下面的修改中可以得到正确运行结果的是O

A：把max=a(k)改为a(k)=max

B：把Ifa(k)>maxThen改为Ifa(k)<maxThen

C：把第2个循环语句Fork=lTo10改为Fork=2To10

D：把max=0改为max=a(10)

参考答案：D

2、设有语句：Open"d:\Test.txt"ForOutputAs#1,以下叙述中错误的是。

A：执行该语句后，就可以通过Print#语句向文件Test.txt中写入信息

B：用该语句建立的文件的文件号为1

C：该语句打开d盘根目录下一个已存在的文件Test.txt,之后就可以从文件中读取信息

D：若d盘根目录下无Test.txt文件，则该语句创建此文件

参考答案：C

3、工程中有2个窗体，名称分别为Forml、Form2,Fonnl为启动窗体，该窗体上有命令按

钮Commandl。要求程序运行后单击该命令按钮时显示Form2,则按钮Click事件过程应该

是o

A：PrivateSubCommandl_Click()

Form2.Load

EndSub

B：PrivateSubCommandl_Click()

Form2.Visible

EndSub

C：PrivateSubCommand1_Click()

LoadForm2

EndSub

D：PrivateSubCommand1Click。

Form2.Show

EndSub

参考答案：D

4、在窗体上画一个名为Command1的命令按钮，然后编写如下代码：

OptionBase1

PrivateSubCommandl_Click()

Dima

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

j=l

Fori=4To1Step-1

s=s+a(i)*j

j=j*10

Nexti

Prints

EndSub

运行上面的程序，其输出结果是O

A：12

B：1234

C：34

D：4321

参考答案：B

5、设在窗体中有一个名称为Listl的列表框，其中有若干个项目(如图)。要求选中某一项

后单击Commandl按钮，就删除选中的项，则正确的事件过程是。

A：PrivateSubCommandl_Click()

Listl.ClearListl.Listindex

EndSub

B：PrivateSubCommand1_Click()

Listl.Clear

EndSub

C：PrivateSubCommand1_C1ick()

Listl.RemoveltemListl.Listindex

EndSub

D：PrivateSubCommandl_Click()

Listl.Removeitem

EndSub

参考答案：c

6、窗体上有一个名称为Frame1的框架(如图)，若要把框架上显示的"Frame1"改为汉字"

框架"，下面正确的语句是。

A：Framel.Caption="框架"

B：Framel.Name="框架"

C：Framel.Tcxt="框架"

D：Framel.Value="框架"

参考答案：A

7、设窗体上有一个图片框Picture1,要在程序运行期间装入当前文件夹下的图形文件

Filel.jpg,能实现此功能的语句是o

A：CallLoadPicture("Filel.jpg")

B：Picture1.Picture=LoadPicture("File1.jpg")

C：LoadPicture("File1.jpg")

D：Picture1.Picture="Filel.jpg"

参考答案：B

8、在窗体上画个名称为Timerl的计时器控件，要求每隔0.5秒发生一次计时器事件，则

以下正确的属性设置语句是o

A：Timerl.Interval=50

B：Timer1.Interval=5

C：Timerl.Interval=0.5

D：Timerl.Interval=500

参考答案：D

9、在窗体上画一个通用对话框，其名称为CommonDialogl,然后画一个命令按钮，并编写

如下事件过程：

PrivateSubCommandl_Click()

CommonDialogl.Filter=HAllFiles(*.*)|*.*|TextFiles"&_

"(*.txt)|*.txt|ExecutableFiles(*.exe)|*.exen

CommonDialogl.Filterlndex=3

CommonDialogl.ShowOpen

MsgBoxCommonDialogl.FileName

EndSub

程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是

A：TextFiles(*.txt)

B：AllFiles(*.*)

C：ExecutableFiles(*.exe)

D：不确定

参考答案：C

10＞在窗体上画一个名称为Command1命令按钮，然后编写如下事件过程：

PrivateSubCommandl_Click()

c=nABCD"

Forn=1To4

Print______

Next

EndSub

程序运行后，单击命令按钮，要求在窗体上显示如下内容

D

CD

BCD

ABCD

则在处填入的内容为。

A：Left(c,n)

B：Right(c,n)

C：Mid(c,n,n)

D：Mid(c,n,l)

参考答案：B

11、在窗体上画一-个名称为Labelk标题为“VisualBasic考试”的标签，两个名称分别为

Command1和Command2＞标题分别为“开始”和“停止”的命令按钮，然后画一个名称为

Timerl的计时器控件，并把其Interval属性设置为500,如图所示。

编写如下程序：

PrivateSubForm_Load()

Timerl.Enabled=False

EndSub

PrivateSubCommand1_C1ick()

Timerl.Enabled=True

EndSub

PrivateSubCommand2_Click()

Timerl.Enabled=False

EndSub

PrivateSubTimerl_Timer()

IfLabel1.Left＜WidthThen

Label1.Left=Label1.Left+20

Else

Labell.Left=O

EndIf

EndSub

程序运行后，单击"开始"按钮，标签在窗体中移动。

对于这个程序，以下叙述中错误的是o

A：单击"停止"按钮后再单击"开始"按钮，标签从停止的位置继续移动

B：标签的移动方向为自右向左

C：当标签全部移出窗体后，将从窗体的另一端出现并重新移动

D：标签按指定的时间时隔移动

参考答案：B

12、执行下列语句

strInput=InputBox("请输入字符串"，"字符串对话框","字符串")

将显示输入对话框。此时如果直接单击"确定"按钮，则变量strinput的内容是。

A："请输入字符串"

B：空字符串

C："字符串"

D："字符串对话框"

参考答案：C

13、假定在图片框Picture1中装入了一个图形，为了清除该图形(不删除图片框)，应采用

的正确方法是o

A：执行语句Picture[.Picture

B：执行语句Picture1.Picture=LoadPicture("")

C：选择图片框，然后按Del键

D：选择图片框，在属性窗口中选择Picture属性条，然后按回车键

参考答案：B

14、在窗体上画一-个命令按钮和一个文本框，名称分别为Commandl和Textl,然后编写如

下程序：

PrivateSubCommandl_Click()

a=InputBox("请输入日期(1〜31)")

曰'旅游景点："一

&IIf(a>OAnda<=1。，"长城","")_

&IIf(a>10Anda<=20,"故宫_

&IIf(a>20Anda<=31，"颐和园

Text1.Text=t

EndSub

程序运行后，如果从键盘上输入16,则在文本框显示的内容是o

A：旅游景点：长城颐和园

B：旅游景点：长城故宫

C：旅游景点：颐和园

D：旅游景点：故宫

参考答案：D

15、若变量a未事先定义而直接使用(例如：a=0),则变量a的类型是。

A：Variant

B：String

C：Boolean

D：Integer

参考答案：A

16、有如下程序：：

PrivateSubForm_Click()

DimiAsInteger,sumAsInteger

sum=0

Fori=2To10

IfiMod200AndiMod3=0Then

sum=sum+i

EndIf

Nexti

Printsum

EndSub

程序运行后，单击窗体，输出结果为O

A：30

B：12

C：24

D：18

参考答案：B

17、以下能从字符串"VisualBasic”中直接取出子字符串“Basic”的函数是。

A：String

B：Mid

C：Left

D：Instr

参考答案：B

18、设窗体上有一个列表框控件Listl,含有若干列表项。以下能表示当前被选中的列表项

内容的是。

A：List1.Listindex

B：List1.List

C：List1.Text

D：List1.Index

参考答案：C

19、设a=5,b=10,则执行c=Int((b-a)*Rnd+a)+1后，c值的范围为。

A：6〜10

B：6〜9

C：5〜10

D：5〜9

参考答案：A

20、在窗体上有1个名为Cdl的通用对话框，为了在运行程序时打开保存文件对话框，则

在程序中应使用的语句是o

A：Cdl.Action=2

B：Cdl.ShowSave=True

C：Cdl.Action=l

D：Cdl.ShowSave=0

参考答案：A

21、下面可以正确定义2个整型变量和1个字符串变量的语句是o

A：DimaAsInteger,b,cAsString

B：Dima%,b$,cAsString

C：Dimn,mAsInteger.sAsString

D：Dimx%,yAsInteger,zAsString

参考答案：D

22、在窗体上画一个命令按钮和一个文本框，其名称分别为Commandl和Textl,把文本框

的Text属性设置为空白，然后编写如下事件过程：

PrivateSubCommandl_Click()

a=InputBox(nEnteraninteger")

b=InputBox(nEnteraninteger11)

Text1.Text=b+a

EndSub

程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10,则文本框中显示的内

容是o

A：出错

B：18

C：810

D：108

参考答案：D

23>在窗体上画一个名称为CommonDialogl的通用对话框，一个名称为Command1的命令

按钮。然后编写如下事件过程：

PrivateSubCommandl_Click()

CommonDialogl.FileName

CommonDialogl.Filter=MAllfile|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txtn

CommonDialogl.Filterlndex=2

CommonDialog1.DialogTitle=,,VBTestn

CommonDialog1.Action=1

EndSub

对于这个程序，以下叙述中错误的是O

A：在该对话框中指定的默认文件类型为文本文件(*.Txt)

B：在该对话框中指定的默认文件名为空

C：该对话框的标题为VBTest

D：该对话框被设置为”打开“对话框

参考答案：A

24、设在窗体Forml上有一个列表框Listl,其中有若干个项目。要求单击列表框中某一项时,

把该项显示在窗体.匕正确的事件过程是o

A：PrivateSubListl_Click()

PrintForml.Text

EndSub

B：PrivateSubForml_Click()

PrintList1.Text

EndSub

C：PrivateSubListl_Click()

PrintList1.Text

EndSub

D：PrivateSubForml_Click()

List1.PrintList1.Text

EndSub

参考答案：C

25、在窗体上从左到右有Textl、Text2两个文本框(见图)，要求运行程序时在Textl中输

入1个分数后按回车键，则判断分数的合法性，若分数为0~100中的1个数，则光标移到

Text2中；否则光标不动，并弹出对话框“分数错”。下面程序中正确的是o

A：PrivateSubText1KeyPress(KeyAsciiAsInteger)

IfKeyAscii=13Then,回车符的ASCII码是13

a=Val(Text1)

Ifa<0Anda>100Then

Text2.SetFocus

Else

Text1.SetFocus:MsgBox(“分数错”)

EndIf

EndIf

EndSub

B：PrivateSubTextl_KeyPress(KeyAsciiAsInteger)

IfKeyAscii=13Then,回车符的ASCII码是13

a=Val(Textl)

Ifa>=0Ora<=100Then

Text2.SetFocus

Else

Text1.SetFocus:MsgBox(“分数错”)

EndIf

EndIf

EndSub

C：PrivateSubTextl_KeyPress(KeyAsciiAsInteger)

IfKeyAscii=13Then,回车符的ASCII码是13

a=Val(Textl)

Ifa>=0Anda<=100Then

Text2.SetFocus

Else

Textl.SetFocus:MsgBox("分数错”)

EndIf

EndIf

EndSub

D：PrivateSubTextl_KeyPress(KeyAsciiAsInteger)

IfKeyAscii=13Thenf回车符的ASCII码是13

a=Val(Textl)

Ifa>=0Anda<=100Then

Textl.SetFocus

Else

Text2.SetFocus:MsgBox("分数错”)

EndIf

EndIf

EndSub

参考答案：C

26、假定通用对话框的名称为CommonDialogl,命令按钮的名称为Command1，则单击命

令按钮后，能使打开的对话框的标题为“NewTitle”的事件过程是。

A：PrivateSubCommandl_Click()

CommonDialogl.DialogTitle="NewTitle”

CommonDialogl.ShowPrinter

EndSub

B：PrivateSubCommandl_Click()

CommonDialog1.DialogTitle="NewTitle”

CommonDialogl.ShowColor

EndSub

C：PrivateSubCommand1_Click()

CommonDialogl.DialogTitle="NewTitle”

CommonDialog1.ShowOpen

EndSub

D：PrivateSubCommandl_Click()

CommonDialog1.DialogTitle="NewTitle”

CommonDialogl.ShowFont

EndSub

参考答案：c

27、在窗体上画一个通用对话框，程序运行后，通过ShowOpen方法显示"打开"对话框，要

求在该对话框的"文件类型"栏中只显示扩展名为DOC的文件，则对通用对话框的Filter属

性的正确设置是：»

A："(*DOC)*.DOC"

B："(*.DOC)|(.DOC)"

C："(*.DOC)|*.DOC"

D："(*.DOC)||*.DOC"

参考答案：C

28、以下说法中正确的是o

A：只有当某个窗体为当前活动窗体时，才能打开菜单编辑器

B：任何时候都可以通过执行"工具"菜单中的"菜单编辑器"命令打开菜单编辑器

C：任何时候都可以通过单击标准工具栏上的“菜单编辑器"按钮打开菜单编辑器

D：只有当代码窗口为当前活动窗口时，才能打开菜单编辑器

参考答案：A

29、为了暂时关闭计时器，应把计时器的某个属性设置为False,这个属性是。

A：Timer

B：Visble

C：Enabled

D：Interval

参考答案：C

30、某人在窗体上画了一个名称为Timerl的计时器和一个名称为Labell的标签，计时器的

属性设置为Enabled=True,Interval=O,并编程如下。希望在程序运行时，可以每2秒在标

签上显示一次系统当前时间。

PrivateSubTimerl_Timer()

Label1.Caption=Time$

EndSub

在程序执行时发现未能实现上述目的，那么，他应做的修改是。

A：通过属性窗口把计时器的Enabled属性设置为False

B：把事件过程中的Labell.Caption=Time$语句改为Label1.Caption=Timerl.Time

C：通过属性窗口把计时器的Interval属性设置为2000

D：把事件过程中的Labell.Caption=Time$语句改为Timer1.Interval=Time$

参考答案：C

31、若设置了文本框的属性PasswordCha『"$",则运行程序时向文本框中输入8个任意字符

后，文本框中显示的是。

A：无任何内容

B：1个"$"

C：8个"*"

D：8个"$"

参考答案：D

32、在窗体上有如下图所示的控件，各控件的名称与其标题相同，并有如下程序：

PrivateSubForm_Load()

Command?.Enabled=False

Check1.Value=1

EndSub

刚运行程序时，看到的窗体外观是。

A：

B：

C：

D：

参考答案：D

33、要使两个单选按钮属于同一个框架，正确的操作是o

A：先画一个框架，再在框架外画两个单选按钮，然后把单选按钮拖到框架中

B：其他选项方法都正确

C：先画一个框架，再在框架中画两个单选按钮

D：先画两个单选按钮，再画框架将单选按钮框起来

参考答案：C

34>在窗体上画一个列表框和一个命令按钮,其名称分别为画st1和Command1,然后编写

如下事件过程

PrivateSubForm_Load()

List1.Additem"Iteml"

Listl.Addltem"Itcm2"

List1.Additem"Item3"

EndSub

PrivateSubCommandl_Click()

Listl.List(Listl.ListCount)="AAAA”

EndSub

程序运行后，单击命令按钮，其结果为O

A：把列表框中原有的最后一项改为“AAAA”

B：把字符串”AAAA"添加到列表框的最后(即"Item3”的后面)

C：把字符串“AAAA”添加到列表框中，但位置不能确定

D：把字符串“AAAA”插入到列表框的最前面(即“Iteml”的前面)

参考答案：B

35、在窗体上画1个命令按扭(名称为Command1)和1个文本框(名称为Textl),然后编

写如下事件过程：

PrivateSubCommand1_Click()

x=Val(Textl.Text)

SelectCasex

Case1,3

y=x*x

CaseIs>=10,Is<=-10

y=x

Case-10To10

y=-x

EndSelect

EndSub

程序运行后，在文本框中输入3,然后单击命令按扭，则以下叙述中正确的是o

A：先执行y=x*x,再执行y=-x

B：执行y=-x

C：执行kx*x

D：程序出错

参考答案：C

36、以下不能输出"Program”的语句是。

A：PrintLeft(,,VBProgramn,7)

B：PrintRight("VBProgramn,7)

C：PrintMid(HVBProgramM,3)

D：PrintMid("VBProgramn,3,7)

参考答案：A

37、窗体上有1个名称为Textl的文本框和1个名称为Command1的命令按钮。要求程序运

行时，单击命令按钮，就可把文本框中的内容写到文件out.txt中，每次写入的内容附加到

文件原有内容之后。下面能够正确实现上述功能的程序是o

A：PrivateSubCommandl_Click()

Open”out.txt"ForAppendAs#1

Print#1,Textl.Text

Close#1

EndSub

B：PrivateSubCommandl_Click()

OpenHout.txt"ForOutputAs#1

Print#1,Textl.Text

Close#1

EndSub

C：PrivateSubCommandl_Click()

Open"out.txt”ForInputAs#1

Print#1,Textl.Text

Close#1

EndSub

D：PrivateSubCommandl_Click()

Opennout.txt"ForRandomAs#1

Print#1,Textl.Text

Close#1

EndSub

参考答案：A

38、设有如图所示窗体和以下程序：

PrivateSubCommand1_C1ick()

Text1.Text=,*VisualBasic”

EndSub

PrivateSubTextl_LostFocus()

IfTextl.text<>MBASICr,Then

Textl.Text=MM

Textl.SetFocus

EndIf

EndSub

程序运行时，在Textl文本框中输入"Basic"(如图所示)，然后单击Command1按钮，则产

生的结果是»

A：文本框中为"Basic",焦点在文本框中

B：文本框中无内容，焦点在文本框中

C：文本框中为"Basic",焦点在按钮上

D：文本框中为"VisualBasic",焦点在按钮上

参考答案：B

39、为了使一个窗体从屏幕消失但仍在内存中，所使用的方法或语句为.

A：Unload

B：Load

C：Show

D：Hide

参考答案：D

40、某人创建了1个工程，其中的窗体名称为Forml；之后又添加了一个名为Form2的窗

体，并希望程序执行时先显示Form2窗体，那么，他需要做的工作是。

A：把Form2的Tabindex属性设置为1,把Fonnl的Tabindex属性设置为2

B：在Forml的Load事件过程中加入语句LoadForm2

C：在Fonn2的Load事件过程中加入语句Forrn2.Show

D：在工程属性对话框中把“启动对象”设置为Form2

参考答案：D

41>CommonDialog控件可以显示种对话框。

A：4种

B：5种

C：7种

D：6种

参考答案：D

42、现有语句：y=IIf（x>0,xMod3,0）

设x=10,则y的值是。

A：语句错误

B：1

C：3

D：0

您的答案：B参考答案：B

43、假定有下表所列的菜单结构:

标题名称层次

显示appear1（主菜单）

大图标bigicon2（子菜单）

小图标smallicon2（子菜单）

要求程序运行后，如果单击菜单项"大图标"，则在该菜单项前添加一个"训。以下正确的事

件过程是o

A：PrivateSubbigicon_Click()

Me.appear.bigicon.Checked=True

EndSub

B：PrivateSubbigicon_Click()

bigicon.Checked=False

EndSub

C：PrivateSubbigicon_Click()

bigicon.Checked=True

EndSub

D：PrivateSubbigicon_Click()

appear.bigicon.Checked=True

EndSub

参考答案：C

44、函数过程Fl的功能是：如果参数b为奇数，则返回值为1,否则返回值为0。以卜能

正确实现上述功能的代码的是o

A：FunctionFl(bAsInteger)

IfbMod2=0Then

Return0

Else

Return1

EndIf

EndFunction

B：FunctionFl(bAsInteger)

IfbMod2=0Then

Fl=l

Else

Fl=0

EndIf

EndFunction

C：FunctionFl(bAsInteger)

IfbMod2=0Then

Fl=0

Else

Fl=1

EndIf

EndFunction

D：FunctionFl(bAsInteger)

IfbMod200Then

Return0

Else

Return1

EndIf

EndFunction

参考答案：C

45、要使一个文本框可以显示多行文本，应设置为True的属性是—

A：MultiLine

B：Enabled

C：MaxLength

D：Width

参考答案：A

46、以下关于图片框控件(PictureBox)的说法中，错误的是

A：用Stretch属性可以自动调整图片框中图形的大小

B：清空图片框控件中图形的方法之是加我一•个空图形

C：图片框控件可以作为容器使用

D：可以通过Print方法在图片框中输出文本

参考答案：A

47、以下有关数组定义的语句序列中，错误的是。

A：Staticarrl(3)

arrl(l)=100

arr1(2尸"Hello”

arrl(3)=123.45

B：OptionBase1

PrivateSubCommand3_Click()

Dimarr3(3)AsInteger

EndSub

C：Dimarr2()AsInteger

DimsizeAsInteger

PrivateSubCommand2_Click()

size=InputBox("输入:“)

ReDimarr2(size)

EndSub

D：DimnAsInteger

PrivateSubCommand4_Click()

Dimarr4(n)AsInteger

EndSub

参考答案：D

48、用Write和Print语句向文件中写入多个数据的差别在于。

A：Print语句写入字符串会自动给字符串加上双引号；写入的正数前面没有空格

B：Print语句自动在数据项之间插入逗号

C：Write语句写入字符串会自动给字符串加上双引号；写入的正数前面没有空格

D：Write语句不会自动在数据项之间插入逗号

参考答案：C

49以下语句用于打开一个顺序文件Open"C:\MyFile.txt"ForOutPut但该语句的