2024年-VB考试题库二级习题(含答案)

VB考试一

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

A：SelStartB：SeiLengthC：SelTextD：Text

参考答案：C

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

的语句为：。

A：Text1.Enabled=FalseB：Text1.Hide

C：Textl.ClearD：Textl.Visible=False

参考答案：D

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

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

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

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

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

参考答案：D

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

A：_mnu_0pen_234B：Abc901C：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：-1B：6C：0D：5

参考答案：A

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

A：MidB：RtrimC：TrimD：Ltrim

参考答案：C

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

PrintFormats("32548.5","000,000.00")

A：32,548.5B：32548.5C：032,548.50D：32,548.50

参考答案：C

10、设有如下声明：

DimXAsInteger

如果Sgn(X)的值为T,则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

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

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

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

s=5

Fori=2.6To4.9Step0.6

s=s+l

Nexti

参考答案：9

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

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

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

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

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

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

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

PrivateSubFormclickO

Dimx,yAsSingle

DimzAsInteger

x=InputBox(''Enterascore")

Dowhilex>=0

y=y+x

z=z+1

x=InputBox("Enterascore")

Loop

Ifz=0Then

z=1

EndIf

y=______

Printy

EndSub

参考答案：y/z

VB考试二

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

A：ListindexB：ListCountC：CountD：Index

参考答案：B

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

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

实现上述功能的程序是_____o

A：PrivateSubListl_Click()

Labell.Caption=Listl.Text

EndSub

B：PrivateSubListl_Click()

Labell.Name=Listl.Listindex

EndSub

C：PrivateSubList!ClickO

Labe11.Name=Listl.Text

EndSub

D：PrivateSubListl_Click()

Labell.Caption=Listl.Listindex

EndSub

参考答案：A

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

A：ListindexB：IndexC：ListD：Tabindex

参考答案：A

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

A：ClearB：RemoveC：RemoveitemD：Cis

参考答案：A

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

使用的循环语句为9

A：Fori=lToListl.ListCount

NEXT

B：Fori=0ToListl.Count-1

NEXT

C：Fori=0ToListl.ListCount-1

•♦••••

NEXT

I)：Fori=IToListl.Count

NEXT

参考答案：C

6、设有如下程序：

OptionBase0

PrivateSubFormClick()

Dima

DimiAsInteger

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

Fori=0To3

Printa(5-i);

Next

EnclSub

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

A：6543B：5432C：4321D：7654

参考答案：A

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

Dima(4)AsInteger,b(4)AsInteger

ForK=0To2

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

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

NextK

Printb(K)

A：0B：3C：5D：1

参考答案：D

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

PrivateSubCommand1Click()

DimiAsInteger,jAsInteger

Dima(10,10)AsInteger

Fori=lTo3

Forj=lTo3

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

Printa(i,j);

Nextj

Print

Nexti

EndSub

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

A：123

456

789

B：234

345

456

C：147

258

369

1)：123

246

369

参考答案：A

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

Dimarr(3To5,-2to2)

A：24B：12C：15D：20

参考答案：C

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

A：static语句B：Dim语句C：public语句D：ReDim语句

参考答案：D

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

answer=MsgBox("String1"，，"String2","String3”,2)

执行该语句后，将显示一个信息框，此时如果单击〃确定”按钮，则answer的值为:

A：String3B：String2C：StringlD：1

参考答案：D

12、设有语句

、=1呼仇8。乂("输入数值“，"0〃，"示例")

程序运行后，如果从键盘上输入数值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：20B：7C：8I)：35

参考答案：D

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

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

A：300B：20C：30D：10

参考答案：B

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

A：0B：1C：3I)：2

参考答案：B

VB考试三

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

A：Combol.RemoveltemCombol.Listcount

B：Combol.Removeltem2

C：Combol.Removeltem3

D：Combol.RemoveltemText

参考答案：B题分：6

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

FunctionFunc(ByVaixAsInteger,yAsInteger)

y=x*y

Ify>0Then

Func=K

Else

Func=y

EndIf

EndFunction

PrivateSubCommand1Click()

DimaAsInteger,bAsInteger

a=3

b=4

c=Func(a,b)

Print"a=〃；a

Print"b="；b

Print〃c=";c

EndSub

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

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

参考答案：I)题分：6

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

PublicSubProcl(nAsInteger,ByVaimAsInteger)

n=nMod10

m=m/10

EndSub

PrivateSubCommandl_Click()

DimxAsInteger,yAsInteger

x=12:y=34

CallProcl(x,y)

Printx;y

EnclSub

A：123B：23C：1234I)：234

参考答案：D题分：6

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

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

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

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

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

参考答案：B题分：6

5、以下说法错误的是。

A：函数过程可以带参数B：子过程没有返回值

C：函数过程没有返回值D：子过程可以带参数

参考答案：C题分：6

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

PrivateSubCommand1_Click()

DimbAsInteger

b=b+1

EnclSub

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

A：2B：1C：0D：3

参考答案：B题分：6

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

FunctionFun(SAsString)AsString

DimsiAsString

Fori=1ToLen(S)

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

Nexti

Fun=si

EndFunction

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

PrivateSubCommandlClickO

DimStrlAsString,Str2AsString

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

Str2=Fun(Strl)

PrintStr2

EndSub

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

后在窗体上的输出结果为。

A：GFEDCBA

B：ABCEDFG

C：gfedcba

D：abcdefg

参考答案：A题分：6

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

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

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

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

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、在窗体上画一个名称为Conmiandl的命令按钮，然后编写如下程序：

PrivateSubCommand1Click()

StaticXAsInteger

StaticYAsInteger

Cis

Y=1

Y=Y+5

X=5+X

PrintX,Y

EndSub

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

A：1515

B：156

C：1516

D：56

参考答案：B题分：6

11、设有以下循环结构

Do

循环体

LoopWhile〈条件)

则以下叙述中错误的是。

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

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

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

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

参考答案：C题分：6

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

件过程；

PrivateFunctionfun(ByVaimAsInteger)

IfmMod2=0Then

fun=2

Else

fun=1

EndIf

EndFunction

PrivateSubCommandlClick()

DimiAsInteger,sAsInteger

s=0

Fori=1To5

s=s+fund)

Next

Prints

EndSub

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

A：7B：6C：8D：9

参考答案：A题分：6

VB考试四

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

PrivateSubCommandlClick()

Dima(10)AsInteger,maxAsInteger

Fork=lTo10

a(k)=InputBox("输入一个整数“)

Nextk

max=O

Fork=lTo10

Ifa(k)>maxThen

max=a(k)

EndIf

Nextk

Printmax

EnclSub

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

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

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,Forrnl为启动窗体，该窗体上有命令按

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

O

A：PrivateSubCommand1_C1ick()

Form2.Load

EndSub

B：PrivateSubCommand1Click()

Form2.Visible

EndSub

C：PrivateSubCommand1_C1ick()

LoadForm2

EndSub

D：PrivateSubCommand1_C1ick()

Form2.Show

EndSub

参考答案：D

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

OptionBase1

PrivateSubCommandlClickO

Dima

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

J=1

Fori=4To1Step-1

s=s+a(i)*j

j=j*10

Nexti

Prints

EnclSub

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

A：12

B：1234

C：34

D：4321

参考答案：B

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

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

A：PrivateSubCommand1_C1ick()

Listl.ClearListl.Listindex

EndSub

B：PrivateSubCommand1_C1ick()

Listl.Clear

EndSub

C：PrivateSubCommand1_C1ick()

Listl.RomoveltomListl.Listindex

EndSub

D：PrivateSubCommand1Click()

Listl.RemoveItem

EndSub

参考答案：C

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

框架〃，下面正确的语句是O

A：Frame1.Caption="框架"

B：FrameLName="框架"

C：FrameLText："框架”

D：Frame1.Va1ue="框架"

参考答案：A

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

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

A：Cal1LoadPictureCFilel.jpg")

B：Picturel.Picture二LoadPicture("Filel.jpg")

C：LoadPictureCFihl.jpg")

D：Picture】.Picture="Filel.jpg”

参考答案：B

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

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

A：Timerl.Interval=50

B：Timerl.Interval=5

C：Timerl.Interval=D.5

D：Timerl.lnterval=500

参考答案；D

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

如下事件过程：

PrivateSubCommandlClick()

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

”(丸txt)|*.txt|Executable

Files(*.exe)I*.exe”

CommonDialogl.Filterlndex=3

CommonDialogl.ShowOpcn

MsgBoxCommonDialogl.FileName

EndSub

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

A：TextFiles(*.txt)

B：AllFiles(*.*)

C：ExecutableFiles(*.exe)

D：不确定

参考答案：C

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

PrivateSubCommand1_C1ick()

c="ABCD〃

Forn=1To4

Print.

Next

EndSub

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

D

CD

BCD

ABCI)

则在______处填入的内容为。

A：Left(c,n)B：Right(c,n)C：Mid(c,n,n)D：Mid(c,n,1)

参考答案：B

11、在窗体上画一个名称为LabelU标题为"VisualBasic考试〃的标签，两个名称分别为

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

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

编写如下程序：

PrivateSubFormLoad(>

Timerl.Enabled=FaIse

EndSub

PrivateSubCommand1_C1ick()

Timerl.Enabled=True

EndSub

PrivateSubCommand2Click()

Timerl.Enabled=False

EndSub

PrivateSubTimerITimerO

IfLabell.Left<VidthThen

Label1.Left=Label1.Left+20

Else

Label1.Left=0

EndIf

EndSub

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

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

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

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

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

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

参考答案：B

12、执行下列语句

strInput=InpulBox(“请输入字符串〃，”字符串对话框〃，”字符串〃)

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

A：”请输入字符串"B：空字符串C：〃字符串"D："字符串对话框”

参考答案：C

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

的正确方法是

A：执行语句Picturel.Picture="”

B：执行语句Picturel.Picture=LoadPicture(〃”)

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

1)：选择图片框，在属性窗口中选择Picture属性条，然后按I可车键

参考答案：B

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

下程序：

PrivateSubCommand1_C1ick()

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

t="旅游景点：〃.

&Ilf(a>0Anda<=10,〃长城

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

&Ilf(a>20Anda<=31,"颐和园

Textl.Text=t

EndSub

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

A：旅游景点：长城颐和园B；旅游景点：长城故宫

C：旅游景点：颐和园D：旅游景点：故宫

参考答案：D

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

A：VariantB：StringC：BooleanD：Integer

参考答案：A

16、有如下程序::

PrivateSubPorm_Click()

DimiAsInteger,sumAsInteger

sum=0

Fori=2To10

IfiMod200AndiMod3=0Then

sum=sum+i

EndIf

Nexti

Printsum

EndSub

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

A：30B：12C：24D：18

参考答案：B

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

A：String

B：Mid

C：Left

1）：Instr

参考答案：B

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

内容的是______o

A：Listl.Listindex

B：Listl.List

C：Listl.Text

1)：Listl.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的通用对话框，为了在运行程序时打开保存文件对话框，则在

程序中应使用的语句是。

A：Cdl.Action=2

B：Cdl.ShowSave=True

C：Cdl.Action=l

D：Cd1.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属性设置为空白，然后编写如下事件过程：

PrivateSubCommand1Click()

a=InputBox("Enteraninteger")

b=InputBox("Enteraninteger")

Textl.Text=b+a

EndSub

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

容是。

A：出错

B：18

C：810

D：108

参考答案：D

23^在窗体1：画一个名称为CommonDialogl的通用对话框，一个名称为Command1的命令按

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

PrivateSubCommand1_Click()

CommonDialogl.FileName

CommonDialogl.Filter=，，Al1file*.*(*.Doc)*.DocI(*.Txt)*.Txt”

CommonDialogl.Filterlndex=2

Common!)ia1og1.DialogTitle="VBTe$t”

CommonDialogl.Action=l

EndSub

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

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

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

C：该对话框的标题为VBTest

D：该对话框被设置为"打开〃对话框

参考答案：A

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

时，把该项显示在窗体上，正确的事件过程是。

A：PrivateSubListl_Click()

PrintForml.Text

EndSub

B：PrivateSubFormlClickO

PrintListl.Text

EndSub

C：PrivateSubListl_Click()

PrintListl.Text

EndSub

I)：PrivateSubForml_C1ick()

Listl.PrintListl.Text

EndSub

参考答案：C

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

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

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

A：PrivateSubTextl.KeyPress(KeyAsciiAsInteger)

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

a=Val(Textl)

Ifa<0Anda>100Then

Text2.SetFocus

Else

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

EndIf

EndIf

EndSub

B：PrivateSubTextlKeyPress(KeyAsciiAsInteger)

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

a=Val(Textl)

Ifa>=0Oi-a<=100Then

Text2.SetFocus

Else

Textl.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：PrivateSubTextlKeyPress(KeyAsciiAsInteger)

IfKeyAscii=13Then'回车符的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”

Common!)ia1og1.ShowPrinter

EndSub

B：PrivateSubCommand1Click()

CommonDialogl.DialogTitle="NewTitle”

CommonDialogl.ShowColor

EndSub

C：PrivateSubCommand1_C1ick()

CommonDialogl.DialogTitle="NewTitle”

CommonDialogl.ShowOpen

EndSub

D：PrivateSubCommand1_C1ick()

CommonDialogl.DialogTitle="NowTitle”

CommonDialogl.ShowFont

EndSub

参考答案：C

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

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

性的正确设置是：______，

A：”(丸DOC)*.DOC"B："(*.DOC)|(.DOC)"C："(*.DOC)|*.DOC"D：

”(*.DOC)||*.DOC”

参考答案：C

28、以下说法中正确的是______。

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

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

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

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

参考答案：A

29、为了暂时关闭计时器，应把计时器的某

个属性设置为False,这个属性是。

A：TimerB：VisbleC：EnabledD：Interval

参考答案：C

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

属性设置为Enabled二True,Interval9,并编程如下。希望在程序运行时,可以每2秒在

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

PrivateSubTimerl_Timer()

Label1.Caption=Time$

EndSub

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

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

B：把事件过程中的l.abel1.Caplion=丁山峻语句改为Label1.Caption=Timerl.Time

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

I)：把事件过程中的Label1.Caplion:一》好$语句改为Timer1.Interval=Time$

参考答案：C

31、若设置了文本框的属性PasswordChar="$〃，则运行程序时向文本框中输入8个任意字

符后，文本框中显示的是o

A：无任何内容B：1个〃$〃C：8个〃*〃I)：8个飞〃

参考答案：D

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

PrivateSubFormLoad()

Command2.Enabled=False

Check1.Value=1

EndSub

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

A：

B：

C：

D：

参考答案：D

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

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

B：其他选项方法都正确

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

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

参考答案：C

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

如下事件过程

PrivateSubFormLoad(>

Listl.Additem"Iteml”

Listl.Additem〃Item2”

Listl.Addltom

EndSub

PrivateSubCommandlClickO

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

EnclSub

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

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

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

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

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

参考答案：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：执行y=x*x

D：程序出错

参考答案：C

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

A：PrintLeft("VBProgram”,7)

B：PrintRight("VBProgram”,7)

C：PrintMid("VBProgram”,3)

D：PrintMid(*VBProgram*,3,7)

参考答案：A

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

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

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

A：PrivateSubCommand1Click()

Open"out.Ixt"ForAppendAstil

Print#1,Textl.Text

Close#1

EndSub

B：PrivateSubCommand1Click()

Open"out.txt"ForOutputAs#1

Printttl,Textl.Text

Closettl

EndSub

C；PrivateSubCommand1_C1ick()

Open"out.txt"ForInputAs#1

Print81,Textl.Text

Close#1

EndSub

D：PrivateSubCommandl_Click()

Open"out,txt"ForRandomAs#1

PrintTextl.Text

Close#1

EndSub

参考答案：A

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

PrivateSubCommand1_C1ick()

Textl.Text="VisualBasic”

EndSub

PrivateSubTextl_LostFocus()

IfTextl.textO'BASIC^Then

Textl.Text—"

Textl.SetFocus

EndIf

EndSub

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

生的结果是______o

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

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

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

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

参考答案：B

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

A：Unload

B：Load

C：Show

D：Hide

参考答案：D

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

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

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

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

C；在Form2的Load事件过程中加入语句Form2.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：1C：3D