vb单选判断题题库资料

vb单项选择判断题题库资料vb单项选择判断题题库资料122/122vb单项选择判断题题库资料序号题干答案1VB是一种面向对象的程序设计语言。对2VB经过窗体管理组成应用程序的各样文件的会集。错3VB支持弹出菜单，所谓“弹出菜单”是指单击鼠标后打开的错菜单。4VisualBasic程序的运行，仅能从某一窗体启动，如Form1错窗体。VisualBasic程序的运行能够从Main()过程启动，也能够从5某对个窗体启动。VisualBasic供应的几种标准坐标系统的原点都是在画图区域

的左上角，若是要把坐标原点放在其他地址，则需使用自定

义

坐标系统。

单击并拖拽工具箱中所需的控件到窗体上即可完成增加控件任务.

Dimi,jasinteger表示i和j都是整型变量。

Single和Double型用于保留浮点数,在VB中定义单精度浮

点8位9

,双浮点16位.

10Visual_basic是合法的变量名。

能够用"&"，"+"合并字符串，但是用在数值变量时，"+"可能

会

将两个数值加起来。

某一过程中的静态变量在过程结束后，静态变量及其值能够

在

其他过程中使用。

全局变量用global或public要点字声明，且仅在通用声明

处可13以定义。若是某子程序add用publicstaticsubadd()定义，则该子14程序的变量都是局部变量。

对

错

错

错

对

对

错

错

错

设A=3,B=4,C=5,D=6，则表达式A>BAndC<=DOr2*A>C

15错的值是False。16全部的VB的变量,都有隐含说明字符和重申声明两种方法来错定义.17在VB中，运算"ABCDE123A"Like"[a*a]"的结果是True。错18在VB中,运算"D"Like"[!A-Z]"的结果是True.错19在VB中，运算"ABA"Like"[a?a]"的结果是False。对20MsgBox()函数建立的信息框能显示信息也能输入信息。错21MsgBox()函数建立的信息框能显示信息也能输入用户的信错息.Picture图片框既可用来显示图片和绘制图形,也可用Print22方错法来显示文字.

在框架控件内的几个单项选择按钮中，可有一个或多个单项选择按钮

23的Value属性为True。（正确答案：只有一个）错*.bmp格式的图片，若是在autosize设为False的图片框，24它会错以图片框大小完满显示出来。“菜单编写器”中最少要填“名称”和“标题”这两个框，25才错能正确完成菜单栏的设计。ActiveX控件是扩展名为*.ocx的独立文件，使用时需用26“工程”/“部件”载入或移去。对Circle方法绘制扇形或圆弧图形时，图形的形状不但与初步27角、对停止角的大小相关，而且与初步角、停止角的正或负相关。28Frame控件是一种容器控件,因此它可有它自己的坐标系.错29Function函数有参数传达，而且必然有返回值。错30Image控件不能够用作容器使用。对31Image控件使用的资源比Picture控件使用的多.错32Line(500,500)–(2500,2500)命令能够正确画出矩形。错33List1.Clear是除去List1的全部列表项，因此Clear是对象对的方法。move方法的一般形式是:对象名.moveA,B[,C,D],其中A指34Left错,C指width.

35Shape控件和Line控件能够在窗体中搬动，因此它们拥有错Move方法。36Text与Label有好多共同特点，它们都能显示和输入文本。错Variant是一种数据种类,因此只能存放象其他数据种类一37样,错无特别值.（正确：有特别值）

Variant是一种特其他数据种类，Variant种类变量能够储藏

除

了定长字符串数据及自定义种类外的全部系统定义种类的数据。

Variant种类变量还可拥有Empty、Error和Null等特别值。

VB规定窗体文件的扩展名是.vbp。

VB若同一个工程有好多窗体，能够指定任一窗体为启动窗体。

VB赞同设计和使用用户自己设计的控件。

VB赞同用户使用Type语句在窗体模块的通用声明中自己定义

数42

据种类。

标签控件能够用来让用户输入数据。

标签没有Change事件和SetFocus方法。

菜单中每一菜单项都是控件，能够经过点击菜单项或经过光

标选

择并按回车键，以触发Click事件。

除了标准控件外，还可引入其他控件及第三方厂商研制的控

件。

窗体的Enabled属性值为False时,该窗体上的按钮、文本框

等

控件就不会对用户的操作做出反响。

从几十个项目中任选其中一项或多项时可采用列表框或组合

框控

件实现.

单项选择钮控件和复选框控件都拥有Value属性，它们的作用完全相同。

50当窗体的ScaleTop=0,ScaleLeft=0时,这个窗体Top和Left值也是0.当准时器控件的Interval属性值设置为0时，会连续不断地激发

对

错

对

对

对

错

错

对

对

对

错

错

错

错

Timer事件。

当需要在同一窗体中建立几组相互独立的单项选择钮时，就要用52框对架将每一组单项选择钮框起来。当在一个简单组合框的文本框中输入一个它的列表框中的没53有错的条目时，组合框会自动将这一条目增加到它的列表框中。54准时将文本框中的数据保留到磁盘，应用于采用Timer计时器控件。对对窗体Form内各控件不能够用鼠标随意精确定位是由于窗体中55的对定位网格起作用.56对象的可见性用Enabled属性设置，可用性用Visible属性设置。错57对象的属性都能够在属性窗口中设置。错对象是基本的运行实体，它既包括了数据(属性)，也包括作58对用于对象的操作(方法)和对象的响应动作(事件)。关于文件系统控件，当驱动器控件Drive1中的驱动器符改变时，

59文件夹列表控件Dir1中显示的文件夹也作相应改变，能够在对Drive1中的Change事件中使用以下命令：Dir1.Path=Drive1.Drive。60方法是VB对象能够响应的用户操作。错61转动条控件不能作为用户输入数据的方法。对62转动条控件不能作为用户输入数据的一种方法.错63转动条控件可作为用户输入数据的一种方法.错计时器(Timer)控件的Interval属性的单位是毫秒，即若将64此对属性值设为10，则每0.01秒产生一次Timer事件。计算机在办理数据时必定将其装入内存,在高级语言中经过内65对存单元名来接见其中的数据,命名的内存单元就是常量或变量.

66将焦点主动设置到指定的控件或窗体上，应采用Setfocus方对法。67能够利用键盘光标选择菜单项,因此可响应KeyPress事件.错68控件是对象，而窗体不是对象，它可是控件对象的窗口。错69框架控件和形状控件都不能够响应用户的鼠标的单击事件。错70利用PrivateConst声明的符号常量，在代码中不能够够再赋对值。71列表框包括了组合框的功能。错72列表框的中的项目不能够够多列显示。错每个对象都有一系列起初定义好的对象事件，但要使对象能73响对应详尽的事件，则编写该对象相应的事件过程。74面向对象程序设计是一种以对象为基础，由事件驱动对象执对行的设计方法。命令Picture1.Circle(500,800),800能够在图片框75Picture1对中画出的图形是圆心在(500,800)的一个圆。76目录列表框中的列表项不能够够经过AddItem方法进行增加。对77除去Combo1对象的内容是Combo1.Clear。对78除去list1列表框对象的内容的语句是list1.cls。错79若是一个菜单项的Visible属性为False，则它的子菜单也不对会显示。若是一个列表框一共有5个选项,而当选中第三项时,这时列80表对框的ListIndex属性为2.output，append方式若要新建一个磁盘上的次前言件，可用81打对开文件。

若已在窗体中加入了一个通用对话框：要求在运行时，经过

82ShowOpen打开对话框时，只显示扩展名为DOC的文件，则错对通用对话框的Filter的属性设置应该是："(*.DOC)|(.DOC)"。83三种方式的组合框都能够接受DblClick事件。对84菜单设计中的每一个菜单项分别是一个控件，每个控件都有对自己的名字。85时钟控件的属性Interval值为0时，表示障蔽计时器。对

使用驱动器列表框、目录列表框和文件列表框组成一个文件管

理系统时，三者之间能够实现自动同步，即当在驱动器列表框

改变驱动器时，目录列表框和文件列表框的内容马上同跟着变。

事件过程由某个用户事件或系统事件触发执行,它不能够被其

它87

过程调用.

事件过程与Sub过程,它们相同点都是事件驱动,而不相同的只

是

事件过程由控件属性决定,而Sub过程是由户自定义.

全部的对象都有caption属性。

全部的控件在程序运行今后都是可见的。

经过改变属性窗口中的题。Name属性，能够改变窗体上显示的标

通用对话框只能用SHOW方法进行调用。

同一Form窗体中的各控件能够相互重叠,其显示的上基层次

的93

次序不能够够调整.

图片框的Move方法不但能够搬动图片框,而且还可以够改变该

图94

片框的大小,同时也会改变该图片框相关属性的值.

图片框的Move方法不但能够搬动图片框,而且还可以够改变该

图片

框的大小,同时也会改变该图片框相关属性的值.

图片框的属性Enabled设置为FALSE，图片框上的控件仍可响

错

错

对

错

错

错

错

错

错

错96错

应用户操作。

图象框中的Stretch属性为true时，其作用是图形自动调整

97对

大小以适应图象控件。

98文本框控件有Caption属性。错

99文件依照数据编码方式能够分为ASCII码文件和二进制文件。对

100要使准时器控件起作用，其属性Interval不能够够设置为0。对

搬动框架内的控件时框架内的控件也随从搬动,因此框架内各控错101件的Left和Top属性值也将分别随之改变.

已知窗的fillcolor=rgb(255,0,0)

红,forecolor=rgb(0,255,0)

102绿,fillstyle=0(solid)语句circle(200,100),500,,,,2的错输出结果是红边绿心的长椭圆.103用Cls方法能除去窗体或图片框图中用Picture属性设置的错图形.104用dim语句声明的局部变量能保留前一次过程调用后的值.错用VB6.0仅能开发拥有窗口菜单的应用程序,开发的应用中105不错能支持弹出式菜单.

用鼠标选中某菜单控件时,触发Click事件;而用键盘选中该

106错菜单控件时,触发KeyPress事件.107由VisualBasic语言编写的应用程序有讲解和编译两种执行对方式.由变量名对变量的内容进执行用或更正,则使用变量就是引108用对变量的内容.109有的对象属性既可在属性窗口中设定又可在程序代码中设对定。有一个程序在属性窗口中设置了它的窗体字体大小为10号，而110程序代码若设置了它的窗体字体大小为20号，那么当程序运对行后实质的窗体字体大小为20号。欲在PictureBox控件上设置其他控件,能够经过把窗体上原111已错设计好的控件拖动到PictureBox控件上来实现.112在MsgBox函数中prompt参数是必定的.对113在Sub过程中，能够用Return语句退出Sub过程。对

在VB6.0中，若是要使窗体上的多个控件拥有相同的尺寸，114在对选择了这些控件此后，应执行VB"格式"菜单中的命令。在VB6.0中，若是要增加工具箱中的控件，应执行VB"文件"115菜错单中的命令。在VB5中,文件菜单的"删除工程"的作用是将当前VB工程在116硬错盘中删除掉.117在VB6.0中命令按钮不但响应Click事件,而且响应DbClick事件.错在VB的工具栏中包括了全部的VB控件，我们不能够再加载其118他的错控件。119在VB中，函数Fix(-3.6)的返回值是–4。错在VB中，计时器(Timer)如期激活Timer事件，使Timer中120的对代码执行一次。121在VB中,可经过函数Now返回计算机系统的日期和时间.对在VB中,能够将在Picture控件中绘制的图形以文件的形式122保留对在磁盘上.123在VB中,用DIM定义数组时数组元素也自动赋初值为0.错在VB中将一些通用的过程和函数编写好并封装作为方法供用124户对直接调用.在VB中通用对话框的Filename属性返回的是一个输入或选125取的文错件名字符串.在VisualBasic中Dima,b,casinteger和126错Dimaasinteger,basinteger,casinteger相同。在标准模块的声明部分中用Publice声明的变量的有效范围127是对

其所在的工程。

在表达式中,运算符两端的数据种类要求一致.

在程序中Name属性是作为对象的表记而引用,不会显示在窗

体129

上,而控件上显示的内容由Caption属性决定.

在窗体模块的声明部分中用Private声明的变量的有效范围

是其

所在的工程。

在多文档应用中，每次只能有一个活动的子窗体能够进行输入/编写。

在过程中用Dim和Static定义的变量都是局部变量.在框架控件内的几个单项选择按钮中，只能有一个单项选择按钮的

Value

属性为True。

在框架控件上放置的控件能够搬动到框架控件的外面.

在利用通用对话框件显示字体对话框从前必定设置Flags属

性,

否则将发生不存在字体的错误.

在命令按钮的Click事件过程中,exit与end等效.在盘驱动器列表框Drive1的Change事件过程中,代码

137Dir1.Path=Drive1.Drive的作用是:当Drive1的驱动器改变时,Dir1的目录列表随不相同驱动器的作相应改变.在图片框中放置的控件既能够在该图片框内搬动,也能够移138出该图片框外.在一个窗体的代码中不能够使用Unload语句来卸载本窗体,即一个

窗体只能由其他窗体卸载.

直线控件能够在窗体上拖动，因此它拥有MOVE方法。只要用拖拽的方法,将工具箱中所需的控件拖到窗体上即可

完成.

对

错

错

对

对

对

错

对

错

对

错

错

错

错

属性是用来描述和反响对象特点的参数,不相同的对象拥有各142自错不相同的属性,对象的全部属性都能够在属性窗口中设置.143组合框包括了列表框的功能.对组合框兼有文本框和列表框两者的功能，用户能够经过键入144文对本或选择列表中的项目来进行选择。过程中的静态变量是局部变量，当过程再次被执行时，静态145变量对的初值是前一次过程调用后的值。函数过程(FunctionProcedure)用来完成特定的功能，但不146返错回相应的结果。若是没有使用Public、Private也许Friend,Sub过程在缺省147情况错下是公用的、若是在过程调用时使用按地址传达参数，则在被调过程中不148可错以改变实参的值。若是在过程调用时使用按值传达参数，则在被调过程中能够149改错变实参的值。多文档界面是指在一个父窗口下面能够同时打开多个子窗口。150对子窗口归属于父窗口，,当父窗口关闭时，全部子窗口所相关闭。1.在多文档应用中,每次只能有一个活动的子窗体能够进行输入/编写.答案：Y

第11题文本框控件中将Text的内容全部显示为所定义的字符的属性项是().

A:PasswordCharB:需要编程来实现C:PasswordD:以上都不是答案：A

第12题下面()控件不拥有Caption属性.

A:标签框B:单项选择钮C:命令按钮D:文本框答案：D

第2题三种方式的组合框都能够接受

DblClick

事件.

答案：

Y

第

20题在多文档应用中

,每次只能有一个活动的子窗体能够进行输入

/编写.

答案：Y

一、判断共10题（共计10分）第1题Shape控件和Line控件能够在窗体中搬动,因此它们拥有Move方法.答案：N第2题VisualBasic程序的运行能够从Main()过程启动,也能够从某个窗体启动.答案：Y第3题图片框的属性Enabled设置为FALSE,图片框上的控件仍可响应用户操作.答案：N第4题若已在窗体中加入了一个通用对话框:要求在运行时,经过ShowOpen打开对话框时,只显示扩展名为DOC的文件,则对通用对话框的Filter的属性设置应该是:"(*.DOC)|(.DOC)".N第5题设计菜单中每一个菜单项分别是一个控件,每个控件都有自己的名字.答案：Y第6题除去list1列表框对象的内容的语句是list1.cls.答案：N第7题图片框的Move方法不但能够搬动图片框,而且还可以够改变该图片框的大小,同时也会改变该图片框相关属性的值.答案：N

第8题当窗体的ScaleTop=0,ScaleLeft=0时,这个窗体Top和Left值也是0.答案：N

第9题框架控件和形状控件都不能够响应用户的鼠标的单击事件.答案：Y第10题通用对话框只能用SHOW方法进行调用.答案：N二、单项选择共10题（共计10分）第1题用户能够经过设置菜单项的()属性值为FALSE来使该菜单项不能见.A:HideB:CheckedC:VisibleD:Enabled答案：C第2题准时器的Interval属性以()为单位指定Timer事件之间的时间间隔.分B:秒C:毫秒D:微秒答案：C

第3题要在图片框P1中打印字符串"HowAreYou",应使用语句().A:Picture1.Print="HowAreYou"B:P1.Picture=LoadPicture("HowAreYou")C:P1.Print"HowAreYou"D:Print"HowAreYou"

答案：

C第4题以下关于设置控件属性的表达正确的选项是

().用户必定设置属性值B:全部的属性值都能够由用户随意设定C:属性值不用一一重新设置D:不相同控件的属性项都完满相同

第5题启动VisualBasic后,系统为用户新建的工程起一个名为

答案：C

()的临时名称

.工程1B:窗体1C:工程D:窗体答案：A

第6题设a=10,b=5,c=1,执行语句Printa>b>c后,窗体上显示的是().A:TrueB:FalseC:1D:出错信息答案：B第7题MSGBOX函数中有4个参数,其中必定写明的参数是().指定对话框中显示按钮的数目B:设置对话框标题C:提示信息D:全部参数都是可选的

C

第8题应用程序设计完成后,应将程序保留,保留的过程是().

只保留窗体文件即可B:只保留工程文件即可C:先保留工程文件,此后保留窗体文件

D:先保留窗体文件(或标准模块文件),此后还要保留工程文件答案：D

第9题改变控件在窗体中的左右地址应更正该控件的()属性.

A:TopB:LeftC:WidthD:Right答案：B第10题

VB

认为下面

()组变量是同一个变量

.

A:A1和a1B:SUM和SUMMARYC:AVER和

三、程序填空共3题（共计30分）

第1题'【程序填空】

AVERAGED:A1

和

A_1

答案：A'功能：以下程序的功能如(图1)。

'

PrivateSubForm_Click()

Dima%,b%,c%,d!

Dimx1,x2

Dimp,q,r

a=InputBox("请输入a的值")

b=InputBox("请输入b的值")

c=InputBox("请输入c的值")d=b*b-4*a*c

p=-b/(2*a)

Ifd>=0Then

'SPACE

If【?】Then

r=Sqr(d)/(2*a)

x1=p+r

x2=p-r

Else

x1=p

x2=p

'SPACE

?】

Print"x1=";x1,"x2=";x2

'SPACE

?】

q=Sqr(-d)/(2*a)

Print"x1=";p;"+";q;"i","x2=";p;"-";q;"i"

EndIf

EndSub

答案：1).d>0或0<d2).EndIf3).Else

第2题'【程序填空】

'功能：完成程序，使程序输出值为15

'

PrivateSubCommand1_Click()

'SPACE

Dimi,j,x,【?】AsInteger

Fori=1To4

x=4

Forj=1To3

x=3

'SPACE

For【?】=1To2

'SPACE

x=x+【?】

Nextk

Nextj

Nexti

Printx

EndSub

答案：1).k2).k3).6

第3题'【程序填空】

'功能：用输入对话框输入x，依照如图公式计算对应的y，

在窗体上输出y的值。

'

PrivateSubCommand1_Click()

'SPACE

DimxAsSingle,【?】AsSingle

'SPACE

x=Val(【?】("Pleaseinputx:","输入X的值"))

Ifx=10Then

'SPACE

?】

ElseIfx>10Then

'SPACE

y=Sqr(x)【?】

Else

y=2*x^3+6

EndIf

Printy

EndSub

答案：1).y2).InputBox3).y=04).+Sin(x)

四、程序改错共3题（共计30分）

第1题'【程序改错】

'题目:设窗体中有图片框Pic1，现要求在其中绘制10个同心圆，

尔后将此图以Test.BMP作文件名存入磁盘。

'

OptionExplicit

PrivateSubCommand1_Click()

DimXAsInteger

DimYAsInteger

DimIAsInteger

Dimrad(9)AsInteger

X=Pic1.ScaleWidth/2

Y=Pic1.ScaleHeight/2

'FOUND

ForI=1To9

rad(I)=500*Rnd

NextI

I=9

'FOUND

DoUntilI<1

Pic1.Circle(X,Y),rad(I),RGB(256*Rnd,256*Rnd,256*Rnd)

'FOUND

I=I+1

Loop

SavePicturePic1.Image,"Test.BMP"

EndSub

答案：1).fori=0to9或fori=0to9step1

2).DoUntilI<0或dountil0>i

3).I=I-1或i=-1+i

第2题'【程序改错】

'题目：从计算机输入三个数,找出中间数

'

OptionExplicit

PrivateSubFindMidNum()

DimxAsInteger,yAsInteger,zAsInteger,AAsInteger

x=InputBox("PLEASEINPUTTHEFIRSTNUMBER")

y=InputBox("PLEASEINPUTTHESECONDNUMBER")

z=InputBox("PLESSEINPUTTHETHIRDNUMBER")

'FOUND

Ifx>yThen

A=x

x=y

y=A

EndIf

'FOUND

Ify=zThen

Printy

'FOUND

ElseIfx=zThen

Printz

Else

Printx

EndIf

EndSub

PrivateSubForm_Click()

FindMidNum

EndSub答案：

1).Ifx<yThen

或

Ify>xThen

2).Ify>=zThen或Ifz<=yThen

3).ElseIfx>=zThen或ElseIfz<=xThen

第3题'【程序改错】

'题目：输出40以内能够被3整除的数，要求输出结果为5

个数一行。

'

OptionExplicit

PrivateSubForm_Click()

Cls

DimxAsInteger

DimiAsInteger

'FOUND

i=1

Forx=1To40

If(x/3)=(x\3)Then

'FOUND

Printx

i=i+1

EndIf

'FOUND

IfiMod3=0Then

Print

EndIf

Nextx

EndSub

答案：1).i=02).Printx;3).ifimod5=0then

五、程序设计共2题（共计20分）

第1题'【程序设计】

题目：编写函数fun其功能是：依照整型形参m，计算以下公式的值:y=1/5+1/6+1/7+1/8+1/9+1/10...+1/(m+5)比方：若m=9，则应输出：1.168229'要求：函数中

用到的中间变量必定声明为Single种类。

'

答案：

DimyAsDouble

DimiAsInteger

Fori=0Tom

y=y+1/(i+5)

Next

Fun=y

第2题（10.0分）题号:488'【程序设计】

'题目：(事件)单击窗体。(响应)已知sum=1/2!-1/4!+1/6!-1/8!+1/10!,请将sum结果值输出到窗体上。使用dowhile...loop语句完成程序

'答案：DimiAsIntegerDimnAsIntegeri=1p=1DoWhilei<=10p=p*iIfiMod2=0Thenn=n+1sum=sum+(-1)^(n-1)/pEndIfi=i+1LoopPrintsum一、判断共10题（共计10分）第1题全部的对象都有caption属性.答案：N第2题事件过程由某个用户事件或系统事件触发执行,它不能够被其他过程调用.答案：N第3题当准时器控件的interval属性值设置为0时,会连续不断地激发Timer事件.答案：N第4题当需要在同一窗体中建立几组相互独立的单项选择钮时,就要用框架将每一组单项选择钮框起来.答案：Y

第5题在窗体模块的声明部分中用Private声明的变量的有效范围是其所在的工程.答案：N第6题VisualBasic程序的运行能够从Main()过程启动,也能够从某个窗体启动.答案：Y第7题VB赞同设计和使用用户自己设计的控件.答案：Y第8题在VB中,能够将在Picture控件中绘制的图形以文件的形式保留在磁盘上.答案：Y第9题Function函数有参数传达,而且必然有返回值.答案：N第10题在VB的工具栏中包括了全部的VB控件,我们不能够再加载其他的控件.答案：N置顶二、单项选择共10题（共计10分）第1题代数式x1-|a|+ln10+sin(x2+2л)/cos(57o)对应的VisualBasic表达式是().

A:X1-Abs(A)+Log(10)+Sin(X2+2*3.14)/Cos(57*3.14/180)

B:X1-Abs(A)+Log(10)+Sin(X2+2*л)/Cos(57*3.14/180)C:X1-Abs(A)+Log(10)+Sin(X2+2*3.14)/Cos(57)D:X1-Abs(A)+Log(10)+Sin(X2+2*л)/Cos(57)答案：A第2题设计动画平时使用时钟控件()来控制动画速度.A:EnabledB:IntervalC:TimerD:Move答案：B第3题要把一个命令按钮设置成无效,应设置其哪一属性值().A:VisibleB:EnabledC:DefaultD:Cancel答案：B第4题设a=10,b=5,c=1,执行语句Printa>b>c后,窗体上显示的是().A:TrueB:FalseC:1D:出错信息答案：B第5题任何控件都拥有的属性是().A:TEXTB:CAPTIONC:NAMED:FORECOLOR答案：C第6题当事件能被触发时,()就会对该事件作出响应.

对象B:程序C:控件D:窗体答案：A

第7题以下表达正确的选项是().

对象是包括数据又包括对象数据进行操作的方法的物理实体

B:对象的属性只幸亏属性窗口中设置

C:不相同的对象能鉴别不相同的事件

D:事件过程都要由用户点击对象来触发答案：C

第8题以下关于设置控件属性的表达正确的选项是().

用户必定设置属性值B:全部的属性值都能够由用户随意设定

C:属性值不用一一重新设置D:不相同控件的属性项都完满相同答案：C

第9题表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是().A:4^5B:3*4C:x+1D:SIN

答案：

C第10题一个对象能够执行的动作和可被对象识其他动作分别称为

A:事件、方法B:方法、事件C:属性、方法D:过程、事件

三、程序填空共3题（共计30分）

第1题'【程序填空】

().

答案：A'下面过程

max()用于求

3个数中最大值，利用这个过程求

5个数中最大值。'

PrivateSubForm_Click()Print"5个数34、124、68、73、352的最大值是："

max1=max(34,124,68)

'SPACE

max1=【?】

Printmax1

EndSub

PublicFunctionmax(ByVala%,ByValb%,ByValc%)

'SPACE

If【?】Then

m=a

Else

m=b

EndIf

'SPACEIf

【?】

Thenmax=m

Else

max=c

EndIf

EndFunction答案：

1).max(max1,73,352)2).a>b

或

b<a3).m>c

或

c<m第2题

'【程序填空】'功能：输入数字1-7,显示其对应是星期几(例:输入

1,显示星期日

,若是输入其他内容，一律显示"输入错误")'

PrivateSubCommand1_Click()

dimxasinteger

dimyasstring

x=val(text1.text)

'SPACE

?】

case1

y="今天是星期日"

case2

y="星期一"

case3

y="星期二"

case4

y="星期三"

case5

y="星期四"

case6

'SPACE

?】

case7

y="星期六"

'SPACE

?】

y="输入错误"

endselect

Text2.Text=y

EndSub

答案：1).selectcasex2).y="星期五"3).CaseElse

第3题'【程序填空】

'功能：以下程序段用于求∑n!

'

PrivateSubForm_Click()

DimsumAsInteger,nAsInteger

n=InputBox("请输入一个正整数")

sum=0

Fori=1Ton

'SPACE

sum=【?】

Nexti

Printsum

EndSub

PrivateFunctionmul(ByValxAsInteger)

DimsAsInteger,iAsInteger

s=1

'SPACE

Fori=1To【?】s=s*iNexti'SPACE【?】EndFunction答案：1).sum+mul(i)2).x3).mul=s四、程序改错共3题（共计30分）第1题'【程序改错】'题目：输出40以内能够被3整除的数，要求输出结果为5个数一行。'OptionExplicitPrivateSubForm_Click()ClsDimxAsIntegerDimiAsInteger'FOUNDi=1Forx=1To40If(x/3)=(x\3)Then'FOUNDPrintxi=i+1EndIfIfiMod5=0ThenPrintEndIf'FOUNDstepiEndSub答案：1).i=02).Printx;或?x;3).Nextx或Next第2题'【程序改错】'题目:程序功能为求解一元二次方程的实根，请修正程序中错误。'OptionExplicitPrivateSubForm_Load()Dima!,b!,c!,root1#,root2#,workAsDoublea=Val(InputBox("请输入系数a的值"))b=Val(InputBox("请输入系数b的值"))c=Val(InputBox("请输入系数c的值"))'FOUND

work=b*2-4*a*c

Ifwork>=0Anda<>0Then

'FOUND

root1=(Sqr(work))/(2*a)'FOUNDroot2=(Sqr(work))/(2*a)Debug.Print"有二个实根"+Str$(root1)+","+Str$(root2)ElseDebug.Print"无实根!"EndIfEndSub答案：1).work=b^2-4*a*c或work=b*b-4*a*c2).root1=(-b+Sqr(work))/(2*a)或root1=(Sqr(work)-b)/(2*a)或root1=(-b+Sqr(work))/(a*2)3).root2=(-b-Sqr(work))/(2*a)或root2=(-Sqr(work)-b)/(2*a)或root2=(-b-Sqr(work))/(a*2)第3题'【程序改错】'题目:本程序求3~100之间的全部素数（质数）并统计个数；同时将这些素数从小到大依次写入次前言件c:\dataout.txt；素数的个数显示在窗体Form1上。'

DimCountAsInteger,FlagAsBoolean

Dimt1AsInteger,t2AsInteger

'FOUND

Ift1Modt2=0ThenFlag=False

Nextt2

'FOUND

Count=Count+1

'FOUND

Write#1,t2

1).Open"dataout.txt"ForOutputAs#1或Open"dataout.txt"ForOutputAs1

2).IfFlagThen或IfFlag=trueThen

3).Write#1,t1或Write1,t1

五、程序设计共2题（共计20分）

第1题'【程序设计】

'题目：

(事件)双击窗体。

(响应)s=20+21+22+

+263，求

s的值，并将结果储藏到变量

S中。'

答案：

DimiAsInteger

i=20

Whilei<=263

s=s+i

i=i+1

Wend

Print(CStr(s))

第2题

'【程序设计】'题目：

(事件)单击窗体。

(响应)编写程序求

10×11×12+11×12×13++15×的16结×果17，并将结果输出到窗体上。将结果存入变量

M中'

答案：

Dimi,jAsInteger

DimsAsLong

Fori=10To15

s=1

Forj=iToi+2

s=s*j

Next

m=m+s

Next

Print(CStr(m))

试卷编号：8111

一、判断共20题（共计20分）

第1题由VisualBasic语言编写的应用程序有讲解和编译两种执行方式.答案：

Y第2题在VB中,运算"ABCDE123A"Like"[a*a]"的结果是True.答案：Y

第3题在图片框中放置的控件既能够在该图片框内搬动,也能够移出该图片框外.答案：N

第4题在MsgBox函数中prompt参数是必定的.答案：Y

第5题VB支持弹出菜单,所谓"弹出菜单"是指单击鼠标后打开的菜单.答案：N

第6题Listl.clear是除去Listl的全部列表项,因此Clear是对象的方法.答案：Y

第7题在过程中用Dim和Static定义的变量都是局部变量.答案：Y第8题在窗体模块的声明部分中用Private声明的变量的有效范围是其所在的工程.答案：N第9题通用对话框只能用SHOW方法进行调用.答案：N第10题对窗体Form内各控件不能够用鼠标随意精确定位是由于窗体中的定位网格起作用.Y第11题在框架控件内的几个单项选择按钮中,只能有一个单项选择按钮的Value属性为True.Y第12题从几十个项目中任选其中一项或多项时可采用列表框或组合框控件实现.答案：N第13题若已在窗体中加入了一个通用对话框:要求在运行时,经过ShowOpen打开对话框时,只显示扩展名为DOC的文件,则对通用对话框的Filter的属性设置应该是:"(*.DOC)|

(.DOC)".答案：N第14题在VB中,用DIM定义数组时数组元素也自动赋初值为0.答案：N第15题利用PrivateConst声明的符号常量,在代码中不能够够再赋值.答案：Y第16题在VB中,计时器(Timer)如期激活Timer事件,使Timer中的代码执行一次.答案：Y第17题若是一个菜单项的Visible属性为False,则它的子菜单也不会显示.答案：Y第18题经过改变属性窗口中的Name属性,能够改变窗体上显示的标题.答案：N第19题在VB中,运算"D"Like"[!A-Z]"的结果是True.答案：N

第20题在利用通用对话框件显示字体对话框从前必定设置Flags属性,否则将发生不存在字

体的错误.Y

二、单项选择共20题（共计20分）

第1题用户能够经过设置菜单项的()属性值为FALSE来使该菜单项不能见.A:HideB:CheckedC:VisibleD:Enabled

答案：

C第2题要使得窗体在出现从前就完成相关的程序设置可在

()事件中进行编程

.A:linkopenB:KeyPressC:loadD:click

答案：C第3题窗体的Caption属性的作用是().A:确定窗体的名称B:确定窗体的标题

第4题"对象"是计算机系统运行的().

C:确定窗体的界线种类

D:确定窗体的字体

B程序单位B:逻辑单位C:物理实体D:基本实体答案：D

第5题设a=10,b=5,c=1,执行语句Printa>b>c后,窗体上显示的是().

A:TrueB:FalseC:1D:出错信息答案：B

第6题在窗体上建立了多个控件,如TEXT、LABEL1、COMMAND1,若要使程序一运行焦点就定位在COMMAND1控件上,应将COMMAND1控件的()设置为0.

A:INDEXB:TABINDEXC:TABSTOPD:ENABLED答案：B第7题将通用对话框种类,设置为字体对话框,可更正该控件的()属性.A:fontB:filenameC:filterD:action答案：D第8题设置列表框选中的文本用()属性.A:selectedB:captionC:textD:list答案：D第9题能够改变窗体边框线种类的属性是().A:FontStyleB:BorderStyleC:BackStyleD:Border答案：B第10题以下哪个变量的取法是不正确的().A:sTmeB:T_TempC:T12%D:T_12答案：C第11题选中复选框控件时,value属性的值,能够是().A:TrueB:falseC:0D:1答案：D第12题要除去已经在图片框Picture中打印的字符串而不除去图片框中的图像,应使用语句().A:A.P1.ClsB:P1.picture=LoadPicture("")C:P1.Print""D:P1.piture""答案：A第13题控件内的对齐方式()属性决定.A:AlignmentB:WordWrapC:AtuoSizeD:Style答案：A第14题除去列表框的全部选项应选择以下哪一种方法().A:ClearB:ClsC:ClearItemD:RemoveItem答案：A第15题以下赋值语句正确的选项是().A:Text1.text=Text.text+Text2.textB:T=Text1.Name+Text2.NameC:Text1.Caption=Text1.Caption+Text2.CaptionD:Text1.Enable=Text1.Enable+Text2.Enable答案：A

第16题已知A?B?C中C最小,则判断A?B?C能否组成三角形三条边长的逻辑表达式是().A:A>=BAndB>=CAndC>0B:A+C>BAndB+C>AAndC>0C:(A+C)>=CAndA-C<=C)AndC>0D:A+B>CAndA-B>CAndC>0

答案：

B第17题形状控件所显示的图形不能能是().

A:圆B:椭圆C:圆角正方形D:等边三角形答案：D第18题要在图片框P1中打印字符串"HowAreYou",应使用语句().

A:Picture1.Print="HowAreYou"B:P1.Picture=LoadPicture("HowAreYou")

C:P1.Print"HowAreYou"D:Print"HowAreYou"答案：C

第19题文本框中选定的内容,由以下()属性反响.A:TextB:CaptionC:SeltextD:sellenght答案：C第20题在一个语句行内写多条语句时,语句之间应该用()分开.逗号B:分号C:顿号D:冒号答案：D

三、程序填空共2题（共计10分）

第1题'【程序填空】

'题目：以下程序的功能如(图1)。

'

PrivateSubForm_Click()

Dima%,b%,c%,d!

Dimx1,x2

Dimp,q,r

a=InputBox("请输入a的值")

b=InputBox("请输入b的值")

c=InputBox("请输入c的值")

d=b*b-4*a*c

p=-b/(2*a)

Ifd>=0Then

'SPACE

If【?】Then

r=Sqr(d)/(2*a)

x1=p+r

x2=p-r

Else

x1=p

x2=p

'SPACE

?】

Print"x1=";x1,"x2=";x2

'SPACE

?】

q=Sqr(-d)/(2*a)

Print"x1=";p;"+";q;"i","x2=";p;"-";q;"i"

EndIf

EndSub

答案：1).d>0或0<d2).EndIf3).Else

第2题

'【程序填空】'下面过程

max()用于求

3个数中最大值，利用这个过程求

5个数中最大值。'

PrivateSubForm_Click()Print"5个数34、124、68、73、352的最大值是："

max1=max(34,124,68)

'SPACE

max1=【?】

Printmax1

EndSub

PublicFunctionmax(ByVala%,ByValb%,ByValc%)

'SPACEIf

【?】

Thenm=a

Else

m=b

EndIf

'SPACEIf

【?】

Thenmax=m

Else

max=c

EndIf

EndFunction答案：1).max(max1,73,352)2).a>b

四、程序改错共2题（共计10分）

第1题'【程序改错】

或

b<a3).m>c

或

c<m'题目：请更正程序中错误，保证程序最后输出收效如图

1所示。'注意：不能增加或删除程序行，也不能够够更正程序结构

'

PrivateSubForm_Click()

DimiAsInteger

Fori=1To7

'FOUNDPrintSpc(7);

'FOUND

Ifi>=1Then

Print"*"

Else

'FOUND

Print"*";Spc(2*(i-1));"*"

EndIf

Nexti

EndSub

答案：1).PrintSpc(7-i);2).Ifi=1Then

或

If1=iThen3).Print"*";Spc(2*(i-1)-1);"*"

第2题'【程序改错】

'题目：该程序的功能是经过键盘给一维数组a输入10个整数，尔后将一维数组的这些数赋

值给一个2行5列的二维数组。最后在一行内输出一维数组、在两行内输出二维数组。不能增加或删除程序行，也不能够够更正程序结构

'

PrivateSubForm_Click()

Dima(10),b(2,5)AsInteger

dimiasinteger,kasinteger,jasinteger

Fori=1To10

a(i)=InputBox("请供应10个整数给数组")

a(i)=Val(a(i))

Nexti

k=0

Fori=1To2

Forj=1To5

k=k+1

b(i,j)=a(k)

Nextj

Nexti

PrintTab(10);"数组a的值"

PrintTab(10);

Fori=1To10

'FOUND

Printa(i)

Nexti

Print

PrintTab(10);"二维数组b的值是:"

Fori=1To2

PrintTab(10);

Forj=1To5

'FOUND

Printb(j,i);

Nextj

'FOUND

Paintb(i,j)

Nexti

EndSub

答案：1).Printa(i);2).print(i,j)3).Print

五、程序设计共2题（共计20分）

第1题'【程序设计】

'题目：(事件)单击窗体。(响应)编写代码功能如(图1)。将结果存入变量Sum中。使用

while...wend语句完成程序

'注意：请在指定的事件内编写代码。

'

答案：

DimiAsInteger

i=1

whilei<=10

sum=sum+i^i

i=i+1

wend

Printsum

第2题'【程序设计】

'题目：(事件)双击窗体。(响应)把一元钞票换成一分、二分和五分的硬币（每种最少有一枚），

求出其全部的换法，把结果输出在窗体上。将全部的换法的数目存入变量N中

'注意：请在指定的事件内编写代码。

'

答案：

Dimi,j,kAsInteger

Fori=1To100

Forj=1To50

Fork=1To20

If((i+2*j+k*5)=100)Then

Print(CStr(i))

Print(CStr(j))

Print(CStr(k))

n=n+1

EndIf

Next

Next

Next

六、VB窗体设计共4题（共计20分）

第1题【窗体设计】

题目：请依照题目要求设计指定的窗体。建立如

(图1)所示界面。

1：增加控件在窗体内增加3个文本框(Text1，Text2，Text3)，

3个标签(Label1，Label2，Label3)，

2个水平转动条(HScroll1，HScroll2)。

2：窗体设置：

设置窗体名称(Name)为“Form6”。

设置窗体标题(Caption)为“VB上机试卷”。

3：文本框设置：

在第1个文本框(Text1)中输入文本(Text)“颜色彩节”，

设置文本的对齐方式为“居右对齐”。

设置第2个文本框(Text2)的内容为空。

设置第3个文本框(Text3)的内容为空。

全部文本框的字体、字号可任选。

4：标签设置：

设置第1个标签(Label1)标题(Caption)为“文本框的前景色”。

设置第2个标签(Label2)标题(Caption)为“文本框的背景色”。

设置第3个标签(Label3)标题(Caption)为“当前值”。

5：转动条设置：适合调整水平转动条的大小和地址。

第2题【窗体设计】

题目：请依照题目要求设计指定的窗体。建立如

(图1)所示界面。

1：增加控件

增加菜单，名称为menu_File，名称为menu_Set。

在menu_Set下增加2个子菜单，名称为menu_Set_Back和menu_Set_Fore。

在menu_Set_Back下增加3个子菜单名称为menu_Set_Back_Red，

menu_Set_Back_Green，menu_Set_Back_Blue)。

2：窗体设置

窗体名称(Name)为“Form4”。

窗体标题(Caption)为“VB”。

3：菜单设置

设置菜单(menu_File)的标题(Caption)为“文件(&F)”，并将菜单项设为

“无效”。

设置菜单(menu_Set)的标题(Caption)为“设置(&S)”。

设置菜单(menu_Set)下的菜单(menu_Set_Back)的标题(Caption)为“背景色”。设置菜单(menu_Set)下的菜单(menu_Set_Fore)的标题(Caption)为“前景色”。设置菜单(menu_Set_Back)下的菜单(menu_Set_Back_Red)的标题(Caption)

为“红”，快捷键为Ctrl+A。

设置菜单(menu_Set_Back)下的菜单(menu_Set_Back_Green)的标题(Caption)为“绿”，快捷键为Ctrl+B。

设置菜单(menu_Set_Back)下的菜单(menu_Set_Back_Blue)的标题(Caption)为“蓝”，快捷键为Ctrl+C。

第3题【窗体设计】

题目：请依照题目要求设计指定的窗体。建立如

(图1)所示界面。

1：在窗体内增加1个文本框(Text1)，3个标签(Label1，Label2，Label3)，3个按钮(Command1，Command2，Command3)，1个组合框(Combo1)。

2：窗体设置：

设置窗体名称(Name)为“Form9”。

设置窗体标题(Caption)为“VB”。

3：标签设置：

设置第1个标签(Label1)的标题(Caption)为“人员登记表”。

设置第2个标签(Label2)的标题(Caption)为“姓名:”。

设置第3个标签(Label3)的标题(Caption)为“性别:”。

标签中的字体、字号可随意选择。

4：组合框设置：

适合设置组合框的大小和地址。

5：文本框设置：

设置文本框(Text1)的内容(Text)为空。

6：按钮设置：

设置第1个按钮(Command1)的标题(Caption)为“增加”。

设置第2个按钮(Command2)的标题(Caption)为“取消”。

设置第3个按钮(Command3)的标题(Caption)为“退出”。

第4题【窗体设计】

题目：请依照题目要求设计指定的窗体。建立如(图1)所示界面：请按所给窗体的样子设计

窗体（不要求控件的尺寸相同，运行时获得所给窗体即可，有时需要简单的事件过程）。

1：在窗体内增加2个按钮(Command1，Command2)，3个列表框(List1，List2，List3)，3个标签(Label1，Label2，Label3)，2个框架(Frame1，Frame2)，3个文本框(Text1，Text2，Text3)。

并在框架(Frame1)中增加1个复选框(Check1)，1个组合

框(Combo1)，1个标签(Label4)。

在框架(Frame2)中增加1个标签(Label5)。

2：窗体设置：

设置窗体名称(Name)为“Form30”。

设置窗体标题(Caption)为“字体”。

3：标签设置：

设置第1个标签(Label1)的标题(Caption)为“字体(&F):”。

设置第2个标签(Label2)的标题(Caption)为“字型(&Y):”。

设置第3个标签(Label3)的标题(Caption)为“字号(&S):”。

4：文本框设置：

设置第1个文本框(Text1)的文本(Text)为“宋体”。

设置第2个文本框(Text2)的文本(Text)为“粗体”。

设置第3个文本框(Text3)的文本(Text)为“五号”。

5：列表框设置：

在第1个列表框(List1)中输入文本“黑体”，“宋体”，“隶书”，“幼圆”。

在第2个列表框(List2)中输入文本“规则”，“斜体”，“粗体”，“粗斜体”。

在第3个列表框(List3)中输入文本“一号”，“二号”，“三号”，“四号”，“五号”。

6：按钮设置：

设置第1个按钮(Command1)的标题(Caption)为“确定”。

设置第2个按钮(Command2)的标题(Caption)为“取消”。

7：框架设置：

设置第1个框架(Frame1)的标题(Caption)为“特特收效”。

设置第1个框架(Frame1)中的复选框(Check1)的标题(Caption)为“下划线(&U)”。

设置第1个框架(Frame1)中的标签(Label4)的标题(Caption)为“颜色(&C):”。

适合调整第1个框架(Frame1)中的组合框(Combo1)的大小和地址。

设置第2个框架(Frame2)的标题(Caption)为“示范”。

设置第2个框架(Frame2)中的标签(Label5)的标题(Caption)为“中文字体AaBbCc”。

试卷编号：8108

一、判断共20题（共计20分）第1题VB经过窗体管理组成应用程序的各样文件的会集.答案：N第2题若是一个列表框一共有5个选项,而当选中第三项时,这时列表框的ListIndex属性为2.Y第3题用VB6.0仅能开发拥有窗口菜单的应用程序,开发的应用中不能够支持弹出式菜单.答：N第4题直线控件能够在窗体上拖动,因此它拥有MOVE方法.答案：N第5题列表框包括了组合框的功能.答案：N第6题在表达式中,运算符两端的数据种类要求一致.答案：Y第7题能够利用键盘光标选择菜单项,因此可响应KeyPress事件.答案：N第8题在盘驱动器列表框Drive1的Change事件过程中,代码Dir1.Path=Drive1.Drive的作用是:当Drive1的驱动器改变时,Dir1的目录列表随不相同驱动器的作相应改变.答案：Y第9题VB规定窗体文件的扩展名是.vbp.答案：N第10题在Sub过程中,能够用Return语句退出Sub过程.答案：Y

第11题VB若同一个工程有好多窗体,能够指定任一窗体为启始窗体.答案：Y第12题列表框的中的项目不能够够多列显示.答案：N第13题准时将文本框中的数据保留到磁盘,应用于采用Timer计时器控件.答案：Y第14题由VisualBasic语言编写的应用程序有讲解和编译两种执行方式.答案：Y第15题对象是基本的运行实体,它既包括了数据(属性).也包括作用于对象的操作(方法)和对象的响应动作(事件).答案：Y

第16题在VB中将一些通用的过程和函数编写好并封装作为方法供用户直接调用.答案：Y第17题除去list1列表框对象的内容的语句是list1.cls.答案：N第18题由变量名对变量的内容进执行用或更正,则使用变量就是引用变量的内容.答案：Y第19题在VisualBasic中Dima,b,casinteger和Dimaasinteger,basinteger,casinteger相同.答案：N第20题在VB6.0中,若是要使窗体上的多个控件拥有相同的尺寸,在选择了这些控件此后,应执行VB"格式"菜单中的命令.答案：Y二、单项选择共20题（共计20分）第1题能够获得一个文本框中被采用文本的内容的属性是().A:TextB:LengthC:SelTextD:SelStart答案：C第2题计时器的interval属性为0时,表示().A:计时器无效B:相隔0秒C:相隔0毫秒

D:计时器的

enable属性为

false答案：

A第3题以下关于属性设置的表达错误的选项是

().一个控件拥有什么属性是VB起初设计好的,用户不能够改变B:一个控件拥有什么属性是VB起初设计好的,用户能够改变

C:一个控件的属性即能够在属性窗口中设置,也能够用程序代码设置

D:一个控件的属性在属性窗口中设置,还可以够利用程序代码为其设置新值

第4题要使一个文本框拥有水平和垂直转动条,则应先将其MultiLine

答案：A属性设置为

True,尔后

再将ScrollBar属性设置为().

A:0B:1C:2D:3答案：D

第5题已知A?B?C中C最小,则判断A?B?C能否组成三角形三条边长的逻辑表达式是().

A:A>=BAndB>=CAndC>0B:A+C>BAndB+C>AAndC>0

C:(A+C)>=CAndA-C<=C)AndC>0D:A+B>CAndA-B>CAndC>0答案：B

第6题用语句DimA(-3To5)AsInteger定义的数组的元素个数是().

A:6B:7C:8D:9答案：D

第7题若是TAB函数的参数小于1,则打印地址在第()列.

A:0B:1C:2D:3答案：B

第8题钱币型数据需()字节.

A:2B:4C:6D:8答案：D

第9题在程序代码中更正转动条的value属性时将激发转动条的()事件.

A:changeB:scrollC:dragdropD:gotfocus答案：A

第10题在中断状态下能够运行代码,也能够在运行状态中作为输出结果的窗口称为().

A:当地窗口B:马上窗口C:观察窗口D:栈窗口答案：B

第11题文本框控件中将Text的内容全部显示为所定义的字符的属性项是().

A:PasswordCharB:需要编程来实现C:PasswordD:以上都不是答案：A

第12题下面()控件不拥有Caption属性.

A:标签框B:单项选择钮C:命令按钮D:文本框答案：D

第13题Rnd函数不能能产生的()值.

A:0B:1C:0.1234D:.00005答案：B

第14题若是X是一个正的实数,将千分位四舍五入,保留两位小数的表达式是().

A:0.01*int(x+0.05)B:0.01*int(100*(x+0.005))

C:0.01*int(100*(x+0.05))D:0.01*int(x+0.005)答案：B

第15题OPTIONEXPLICIT语句不能够够放在().

A:窗体模块的声明段中B:标准模块的声明段中C:类模块的声明段中D:任何事件过程中D

第16题以下各项变量中,哪一项所占的内存空间最多().

A:dimxascurrencyx=99B:dimst1asstringst1='good'

C:dimst2asstringst2='goodbye'D:dimdasdatad='1898/09/12'答案：C

第17题骰子是一个正六面体,分别用1~6代表这六个面,掷一次骰子出现的数可表示为().A:int(rnd*6+1)B:int(rnd*6)C:int(rnd*7)D:int(rnd(6)+1)答案：A第18题为了在按下回车键时执行某个命令按钮的事件过程,需要把该命令按钮的一个属性设置为True,这个属性是().A:ValueB:DefaultC:CancelD:Enabled答案：B第19题设在窗体上有两个命令按钮,其中一个命令按钮的名称为cmda,则另一个命令按钮的名称不能够是().A:cmdcB:cmdbC:cmdAD:Command1答案：C第20题以下对变量的定义中,不能够定义A为变体变量的是().A:DIMAASDOUBLEB:DIMAASVARIANTC:DIM;AD:A=24答案：A三、程序填空共2题（共计10分）第1题'【程序填空】'题目：以下程序的功能如(图1)。'PrivateSubForm_Click()Dima%,b%,c%,d!Dimx1,x2Dimp,q,ra=InputBox("请输入a的值")b=InputBox("请输入b的值")

c=InputBox("请输入c的值")

d=b*b-4*a*c

p=-b/(2*a)

Ifd>=0Then

'SPACE

If【?】Then

r=Sqr(d)/(2*a)

x1=p+r

x2=p-r

Else

x1=p

x2=p

'SPACE

?】

Print"x1=";x1,"x2=";x2

'SPACE

?】

q=Sqr(-d)/(2*a)

Print"x1=";p;"+";q;"i","x2=";p;"-";q;"i"

EndIf

EndSub

答案：1).d>0或0<d2).EndIf3).Else

第2题'【程序填空】

'下面过程max()用于求3个数中最大值，利用这个过程求5个数中最大值。

'

PrivateSubForm_Click()

Print"5个数34、124、68、73、352的最大值是："

max1=max(34,124,68)

'SPACE

max1=【?】

Printmax1

EndSub

PublicFunctionmax(ByVala%,ByValb%,ByValc%)

'SPACE

If【?】Then

m=a

Else

m=b

EndIf

'SPACE

If【?】Then

max=m

Else

max=c

EndIf

EndFunction

答案：

1).max(max1,73,352)2).a>b

或

b<a3).m>c

或

c<m

四、程序改错

共

2

题（共计

10分）

第1题

'【程序改错】

'题目：以下程序功能是输入三个数，由大到小排序。

'注意：不能增加或删除程序行，也不能够够更正程序结构

'

DimAAsInteger

DimBAsInteger

DimCAsInteger

PrivateSubForm_Click()

DimnTempAsInteger

A=Val(InputBox("Pleaseinputfirstinteger","

输入正整数

"))

B=Val(InputBox("Pleaseinputsecondinteger","

输入正整数

"))

C=Val(InputBox("Pleaseinputthirdinteger","

输入正整数

"))

'FOUND

IfA<=CThen

nTemp=A

A=B

B=nTemp

EndIf

'FOUND

IfB<=CThen

nTemp=A

A=C

C=nTemp

EndIf

'FOUND

IfA<=BThen

nTemp=B

B=C

C=nTemp

EndIf

Print"Theintegersinorderis";A;B;C

EndSub

答案：1).IfA<=BThen或IfB>=AThen

2).IfA<=CThen或IfC>=AThen

3).IfB<=CThen或IfC>=BThen

第2题'【程序改错】

'题目:输入一个字符串，将全部的小写字母都变换为大写字母。

'注意：不能增加或删除程序行，也不能够够更正程序结构

'

PrivateSubForm_Click()

Dims1AsString,s2AsString,iAsInteger,tAsString

s1=InputBox("输入字符串，#号结束")

i=1

'FOUND

s1=Mid(s1,i,1)

Whilet<>"#"

'FOUND

Ift>="a"Andt<="z"Thent=Chr(Asc(t)-30)

s2=s2+t

i=i+1

t=Mid(s1,i,1)

Wend

'FOUND

Print"新字符串为：";s1

EndSub

答案：1).t=Mid(s1,i,1)

2).Ift>="a"Andt<="z"Thent=Chr(Asc(t)-32)

3).Print"新字符串为:";s2

五、程序设计共2题（共计20分）

第1题'【程序设计】

'题目：(事件)双击窗体。

(响应)求1+5+10+15++500的和，并将结果输出到窗体上。将结果存入变量SUM中。

'注意：请在指定的事件内编写代码。

'

答案：

DimiAsInteger

Fori=1To500

IfiMod5=0Then

sum=sum+i

EndIf

Next

Printsum

第2题'【程序设计】

'题目：(事件)单击窗体。(响应)求100以内偶数的和，并将结果输出在窗体上。将结果存入变量SUM中

'注意：请在指定的事件内编写代码。

'

答案：

DimiAsInteger

Fori=1To100

IfiMod2=0Then

sum=sum+i

EndIf

Next

Printsum

六、VB窗体设计共4题（共计20分）

第1题【窗体设计】

题目：请依照题目要求设计指定的窗体。建立如(图1)所示界面：请按所给窗体的样子设

计窗体，不要求控件的尺寸相同，运行时获得所给窗体即可，有时需要简单的事件过程。

1：在窗体内增加2个按钮(Command1，Command2)，3个组合框(Combo1，

Combo2，Combo3)，1个文本框(Text1)，6个标签(Label1，Label2，

Label3，Label4，Label5，Label6)，2个复选框(Check1，Check2)。

2：窗体设置：

设置窗体名称(Name)为“Form22”。

设置窗体标题(Caption)为“字体”。

3：标签设置：设置第1个标签(Label1)的标题(Caption)为“字体”。设置第2个标签(Label2)的标题(Caption)为“字符间距”。设置第3个标签(Label3)的标题(Caption)为“文字收效”。设置第4个标签(Label4)的标题(Caption)为“缩放”。设置第5个标签(Label5)的标题(Caption)为“间距”。设置第6个标签(Label6)的标题(Caption)为“地址”。

4：文本框设置：

在文本框(Text1)中输入文本(Text)“12。”

5：组合框设置：

设置组合框(Combo1)的文本(Text)为“75%”。

设置组合框(Combo2)的文本(Text)为“加宽”。

设置组合框(Combo3)的文本(Text)为“提升”。

6：复选框设置：

设置第1个复选框(Check1)的标题(Caption)为“调整字体的字间距”。

设置第2个复选框(Check2)的标题(Caption)为“若是定义了网格,则对齐网格”。

两个复选框均为选中状态。

7：按钮设置：

设置按钮(Command1)的标题(caption)为“确