大学VB期末考试试题

A)Chi

［第1题］以下合法的VisualBasic标识符是B)aaa

A)ForLoopB)ConstC)9abcD)a#xC)iii

［答案］AD)ina

［第2题］在设计阶段，当双击窗体上的某个控件时，所打开的窗口是()［答案］C

A)工程资源管理器窗口［第5题］在窗体上画•个名称为Commandl的命令按钮，然后编写如下事件过程:

B)工具箱窗口PrivateSubCommandl_Click()

0代码窗口DimnumAsInteger

D)属性窗口num=1

［答案］CDoUnti1num>6

［第3题］在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程:Printnum;

PrivateSubCommand1_Click()num=num+2.4

DimaAsInteger,sAsIntegerLoop

a=8EndSub

s=1程序运行后，单击命令按钮，则窗体上显示的内容是

DoA)13.45.8

s=s+a

a二a—10147

LoopWhilea<=0D)无数据输出

Prints;a［答案］B

EndSub［第6题］设有以下循环结构

程序运行后，单击命令按钮，则窗体上显示的内容是Do

A)79B)340循环体

C)97D)死循环LoopWhile〈条件〉

［答案］C则以下叙述中错误的是

［第4题］有如下程序A)若"条件"是一个为0的常数，则一次也不执行循环体

a$=〃China”B)"条件"可以是关系表达式、逻辑表达式或常数

b$=Ringht$(a$,3):c$=String$(3,b$)C)循环体中可以使用ExitDo语句

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

End［答案］A

运行后输出的结果是［第7题］设窗体上有一个文本框，名称为textl,程序运行后，要求该文本框不能接受键盘

输入，但能输出信息，以下属性设置正确的是:［第11题］在窗体上画一个名称为Timerl的计时器控件，要求每隔0.5秒发生一次计时器

A)text1.maxlength=OB)text1.enab1ed=falsc事件，则以下正确的属性设置语句是

C)textl.visible=falseD)textl.width=OA)Timerl.InterVal=0.5B)Timerl.Interval=5

［答案］BC)Timerl.Interval=50D)Timerl.Interval-50()

［第8题］以下能在窗体Forml的标题栏显示"VisualBasic窗体”的语句是［答案］D

A)Forml.Name=〃VisualBasic窗体〃［第12题］在VisualBasic中通过()属性来设置字体的颜色。

B)Forml.Title=*VisualBasic窗体〃A)FontColor

C)Forml.Caption=*VisualBasic窗体〃B)ClipControl

D)Forml.Text="VisualBasic窗体〃C)BackColor

［答案］CD)ShowColor

［第9题］在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程:［答案］A

PrivateSubCommand1_Click()［第13题］以卜叙述中错误的是

x=InputBox("Input")A)事件过程是响应特定事件的一段程序

SelectCasexB)不同的对象可以具有相同名称的方法

Case1,3C)对象的方法是执行指定操作的过程

Print”分支1D)对象事件的名称可以由编程者指定

CaseIs>4［答案］D

Print〃分支2〃［第14题］设有如卜.程序：

CaseElsePrivateSubCommandl_Click()

Printz，Else分支”DimcAsInteger,dAsInteger

EndSelectc=4

EndSubd二InputBox("请输入一个整数”)

程序运行后，如果在输入对话框中输入2,则窗体上显示的是DoWhiled>0

A)分支1B)分支2C)Else分支D)程序出错Ifd>cThen

［答案］Cc=c+1

［第10题］以卜关于MsgBox的叙述中，错误的是EndIf

A)MsgBox函数返回一个整数d=InputBox(〃请输入一个整数〃)

B)通过MsgBox函数可以设置信息框中图标和按钮的类型Loop

0MsgBox语句没有返回值Printc+d

D)MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量EndSub

［答案］D程序运行后，单击命令按钮如果在输入对话框中依次输入1、2、3、4、5、6、7、

8、9、0,则输出结果是：运行以上程序后，x的值是

A)12A)26B)27C)38D)57

B)ll［答案］

C)10［第20题］［标题］

D)9执行如下两条语句，窗体上显示的是

［答案］Da=9.8596

［第15题］当一个复选框被选中时，它的Value属性的值是PrintFormat(a,"$00,00.00")

A)3B)2C)ID)0A)0,009.86B)$9.86C)9.86D)$0,009.86

［答案］C［答案］D

［第16题］表达式5Mod3+3\5*2的值是［第21题］在窗体上画一个名称为Command1的命令按钮，并编写如下程序:

A)0B)2C)4D)6PrivateSubCommandlClick0

［答案］BDimxAsInteger

［第17题］［标题］StaticyAsInteger

设x=4,y=8,z=7,以卜表达式的值是x=10

x<yAnd(Noty>z)Orz<xy=5

A)1B)-1C)TrueD)FalseCallfl(x,y)

［答案］DPrintx,y

［第18题］［标题］EndSub

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:PrivateSubfl(ByRefxlAsInteger,ylAsInteger)

PrivateSubCommandlClick()xl=xl+2

a$="VisualBasic”yl=yl+2

PrintString(3,a$)EndSub

EndSub程序运行后，单击命令按钮，在窗体上显示的内容是

程序运行后，单击命令按钮，在窗体上显示的内容是A)105B)125C)107D)127

A)VWB)VisC)sicD)11［答案］D

［答案］A［第22题］阅读程序

［第19题］设有如下程序段：OptionBase1

x=2PrivateSubFormClickO

Fori=lTo10Step2Dimarr,Sum

x=x+iSum=0

Nextarr=Array(1,3,5,7,9,11,13,15,17,19)

Fori=lTo10Cis

Ifarr(i)/3=arr(i)\3ThenFori=lTo2

Sum=Sum+arr(i)y=y+x

EndIfx=x+2

NextiNext

PrintSumPrintx,y

EndSubEndSub

程序运行后，单击窗体，输入结果为程序运行后，连续三次单击Commandl按钮后，窗体上显示的是

A)13B)14C)27D)15A)42B)121801230D)46

［答案］C［答案］B

［第23题］在VisualBasic设计界面中不能隐藏的窗口是()。［第27题］在窗体上画一个文本框和一个计时器控件，名称分别为Textl和Timerl,在属性

A)工程窗口窗口中把计时器的Interval属性设置为1000,Enabled属性设置为False,程序运行后，如

B)属性窗口果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的

C)立即窗口程序：

D)窗体窗口PrivateSubCommandlClick()

［答案］ATimer1._________

［第24题］以下可以构成语句的一项是()oEndSub

A)对象名.属性PrivateSubTimerl_Timer()

B)对象名.方法名Textl.Text=Time

C)对象名.事件名EndSub

D)对象名.函数名在处应填入的内容是

［答案］BA)Enabled=TrueB)Enabled=FaIseC)Visible=True

［第25题］以下不是VisualBasic的特点的选项是()。D)Visible=False

A)可视编程［答案］A

B)算法设计［第28题］设有如下程序：

C)事件驱动PrivateSubCommand1_Click()

D)面向对象DimsumAsDouble,xAsDouble

［答案］Bsum=0

［第26题］在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程:n=0

PrivateSubCommandlClickOFori=1To5

StaticxAsIntegerx=n/i

n=n+1Label3.Caption=HScrolll*HScroll2

sum=sum+xEndSub

NextD)PrivateSubCommand1_C1ick()

EndSubLabel3.Caption=HScrol11.Text*HScrol12.Text

该程序通过For循环计算一个表达式的值，这个表达式是EndSub

A)1+1/2+2Z3+3/4+4/5B)1+1/2+2/3+3/4［答案］D

C)1/2+2/3+3/4+4/5D)1+1/2+1/3+1/4+1/5［第31题］在窗体(名称为Forml)上画一个名称为Textl的文本框和一个名称为Command1

［答案］C的命令按钮，然后编写个事件过程。程序运行以后，如果在文本框中输入•个字符，则

［第29题］在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：把命令按钮的标题设置为〃计算机等级考试〃。以下能实现上述操作的事件过程是：

PrivateSubCommand1_C1ick()A)PrivateSubTextl_Change()

Forn=1To20Command1.Caption=〃计算机等级考试”

IfnMod300Thenin=m+n\3EndSub

NextnB)PrivateSubCommand1ClickO

PrintnCaplion=”计算机等级考试”

EndSubEndSub

程序运行后，如果单击命令按钮，则窗体上显示的内容是C)PrivateSubForm1_C1ick()

A)15B)18C)21D)24Textl.Caption=〃计算机等级考试〃

［答案］CEndSub

［第30题］在窗体上画两个滚动条，名称分别为Hscrolll、Hscroll2；六个标签，名称分D)PrivateSubCommand1ClickO

别为Labell、La为12、Label3>Label4、Labe15Label6,其中标签Label4、Labe16分Textl.Texti计算机等级考试”

别显示〃A〃、〃B〃、〃A*B〃等文字信息，标签Label1.Label2分别显示其右侧的滚动条的数EndSub

值，Label3显示A*B的计算结果。如图所示。当移动滚动框时，在相应的标签中显示滚动［答案］A

条的值。当单击命令按钮〃计算〃时，对标签Labell、Label2中显示的两个值求积，并将结［第32题］设a=5,b=4,c=3,d=2,下列表达式的值是3>2*bOra=cAndbOcOrc>d

果显示在Label3中。以卜.不能实现上述功能的事件过程是A)1B)TrueC)FalseD)2

A)PrivateSubCommand1ClickO［答案］B

Label3.Caption=Str(Vai(Label1.Caption)*Val(Label2.Caption))［第33题］设a=〃MicrosoflVisualBasic",则以卜使变量b的值为"VisualBasic"的语句是

EndSubA)b=Left(a,10)B)b=Mid(a,10)C)b=Right(a,10)

B)PrivateSubCommand1_C1ick()D)b=Mid(a,11,10)

Label3.Caption=HScrolll.Value*HScroll2.Value

EndSub［答案］B

C)PrivateSubCommand1ClickO［考点］

为了使命令按钮(名称为Command1)右移200,应使用的语句是

A)Command1.Move-200B)Command1.Move200

［第34题］［标题］C)Command1.Left=Command1.Left+200D)Command1.Left=

Command1.Left-200

假定有如下的窗体事件过程：

PrivateSubForm_Click()［答案］C

a$="MicrosoftVisualBasic”［考点］

b$=Right(a$,5)

c=Mid(a$,1,9)

MsgBoxa$,34,b$,c$,5

EndSub［第37题］［标题］

程序运行后单击窗体，则在弹出的信息框中的标题栏中显示的信息是:

A)MicrosoftVisualB)MicrosoftC)BasicD)5)在窗体上画一个文本框，然后编写如下事件过程：

PrivateSubFormClick0

［答案］Bx二InpulBox("请输入一个整数”)

［考点］Printx+Textl.Text

EndSub

程序运行时，在文本框中输入456,然后单击窗体，在输入对话框中输入123,

单击〃确定〃按钮后，在窗体上显示的内容是：

［第35题］［标题］A)123B)4560579D)123456

设a="a",b=〃b〃,c=〃c〃,d="d〃,执行语句x=Iif((ad),〃B〃)后，x的值为:［答案］D

A)"a"B)〃b〃C)”B〃D)〃A〃［考点］

［答案］D

［考点］

［第38题］［标题］

在窗体上画一个名称为Commandl的命令按钮，然后编写如卜.代码:

［第36题］［标题］OptionBase1

PrivateSubCommandl_Click()后编写如下事件过程：

d=0PrivateSubCommand1_C1ick()

c=10Dimarr(5)AsInteger,nAsInteger

x=Array(10,12,21,32,24)Fori=1To5

Fori=1To5arr(i)=i+i

Ifx(i)>cThenNext

d=d+x(i)funarr,n

c=x(i)Textl.Text=Str(n)

ElseEndSub

d=d-c程序运行后,单击命令按钮，则在文本框中显示的内容是

EndIfA)30

NextiB)25

Printd020

EndSubD)15

程序运行后，如果单击命令按钮，则在窗体上输出的内容为

A)89B)99C)23D)77［答案］A

［考点］

［答案］C

［考点］

［第40题］［标题］

［第39题］［标题］设有如下通用过程：

PublicFunctionf(xAsInteger)

设有如下通用过程：DimyAsInteger

PublicSubfun(a()AsInteger,xAsInteger)x二20

Fori=1To5y=2

x=x+a(i)f=x*y

NextEndFunction

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

在窗体上画一个名称为Textl的文本框和一个名称为Command1的命令按钮，然PrivateSubCommand1ClickO

StaticxAsInteger程序运行后,单击命令按和,文件outf.txt中的内容是:

x=10A)MVBP

y=5B)mvbp

y=f(x)C)M

Printx;yV

EndSubB

程序运行后，如果单击命令按钮，则在窗体上显示的内容是P

A)105B)205D)m

C)2040D)1040v

b

［答案］CP

［考点］

［答案］D

［考点］

［第41题］［标题］

在窗体上画•个名称为Command1的命令按钮和一个名称为Texll的文本框,在文本框中输［第42题］［标题］

入以下字符串：

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

然后编写如下事件过程：正确方法是：

PrivateSubCommandl_Click()A)选择图片框，然后按Del键B)执行语句

Open'd:\temp\outf.txt"ForOutputAs#1Picturel.Picture=LoadPicture("")

Fori=1ToLen(Textl.Text)C)执行语句Picturel.Picture^"D)选择图片框，在属性窗口中选择

c=Mid(Textl.Text,i,1)Picture属性，然后按回车键

Ifc>=Andc<=Then

Print#1,LCase(c)［答案］B

EndIf［考点］

Nexti

Close

EndSub

［第43题］［标题］EndSub

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

在窗体上画一个Listl的列表框，一个名称为Labell的标签，列表框中显示若干个项目，A)9B)6012D)15

当单击列表框中的某个项目时，在标签中显示被选中的项目的名称，下列能正确实现上述

操作的程序是［答案］A

A)PrivateSubListl_Click()Labell.Caption=Listl.ListIndexEnd［考点］

Sub

B)PrivateSubListl_Click()Label1.Name=Listl.ListindexEnd

Sub

C)PrivateSubListl_Click()Label1.Name=Listl.TextEndSub［第45题］［标题］

D)PrivateSubListlClickOLabell.Caption=Listl.TextEndSub