五套二级VB考试模拟试题.docx

五套二级VB考试模拟试题.docx

《五套二级VB考试模拟试题.docx》由会员分享，可在线阅读，更多相关《五套二级VB考试模拟试题.docx（46页珍藏版）》请在冰豆网上搜索。

五套二级VB考试模拟试题

VB模拟试卷一

一、单选题

1.VisualBasic变量命名不超过个字符。

A.255B.256C.125D.126

2.跳出FORNEXT循环程序，可使用语句。

A.EXITB.ENDC.EXITFORD.EXITDO

3.表达式"169"+"196"+200的值是。

A.169196100B.565C.169396D.365200

4.窗体的BORDERSTYLE属性取值种类为D。

A.3B.4C.5D.6

5.利用SHAPE控件可设置B种形状。

A.5B.6C.7D.8

6.以下是“计时器”控件的重要属性。

A.BACKCOLORB.STRETCH

C.TIMERD.INTERVAL

7.VisualBasic代码中用到“水平滚动条”的“CHANGE”事件的同时，也会用到事件。

A.CLICKB.LOAD

C.SCROLLD.MOUSEMOVE

8.结束当前打印作业的方法为B。

A.ENDDOCB.KILLDOC

C.NEWPAGED.END

9.打开“APIVIEWER外接程序”应使用B菜单。

A.视图B.外接程序C.工具D.工程

10.以下控件不属于DATA控件绑定的内部控件。

A.CHECKBOXB.TEXTBOX

C.LABELD.TIMER

11.MOUSEPOINTER属性取值D，可设置鼠标的自定义图标。

A.3B.8C.15D.99

12.以下不属于表达式Chr（Int（89+Rnd*5））的生成范围。

A.\B.[C.AD.]

13.以下代码，循环执行次。

Dimn

Forn=1To50Step5

Txtresult.Text=Str（n）

Next

A.12B.10C.50D.11

14.以下各种高级语言中，B不是面向对象的程序设计语言。

A.VISUALC++B.PASCAL

C.DELPHID.VISUALBASIC

15.下列命令中B可实现对随机文件的读操作。

A.WRITEB.GET

C.INPUTD.PUT

16.VisualBasic中“剪贴板”对象的名称为B。

A.COPYB.CLIPBOARD

C.CLIPD.BOARD

二、填空题

1.通过数据控件Data1连接C:

\vb6\Students.mdb数据库，则需设置Connect为，DatabaseName为。

2.“计时器”控件常用的两个属性为、。

3.Shape控件的属性取值为时，形状为“圆”。

4.代数式9e6ln6的VisualBasic表达式为。

5.表达式CHR（ASC（"*"））的值为。

6.以下代码执行的循环次数为。

Dimnum

Num=200

Do

Txtresult.text=Str（num）

Num=num+1

LoopWhilenum<109

7.代码Picture1.Circle（1200,1000）,750实现的功能为。

8.代码RetVal=Shell（"CALC.EXE",1）实现的功能为。

9.文件系统控件主要包括、、。

10.ActiveX控件的扩展名为。

三、程序填空

1.以下代码用于实现：

从键盘上输入10个整数，并放入一个一维数组中，然后将其前5个元素与后5个元素对换，即：

第1个元素与第10个元素互换，第2个元素与第9个元素互换……第5个元素与第6个元素互换。

分别输出数组原来各元素的值和对换后各元素的值。

OptionBase1

PrivateSubForm_Click（）

Arr=Array（1,2,3,4,5,6,7,8,9,10）

ForI=1to10

PrintArr（I）;

NextI

Print

ForI=1to5

For

（1）

T=Arr（I）

（2）

（3）

Nextj

NextI

For（4）

PrintArr（I）

NextI

EndSub

2.利用文件系统控件DrivelistBox、DirlistBox、FilelistBox、ComboBox控件设计如图1所示的窗体，要求：

改变DrivelistBox内容，DirlistBox、FilelistBox发生相应改变；改变ComboBox内容，FilelistBox发生响应改变。

按要求填写如下代码：

PrivateSubDrive1_Change（）

（1）

EndSub

PrivateSubDir1_Change（）

（2）

EndSub

PrivateSubCombox1_Change（）

（3）

EndSub

PrivateSubCombox1_click（）

（4）

EndSub

3.利用“文本框”、“水平滚动条”、“命令按钮”设计如图2所示的窗体。

要求：

水平滚动条发生滚动，文本框内的数据在0km/hr~100km/hr之间变化；单击“结束”按钮，退出程序执行。

图1图2

按要求完成如下代码填空：

PrivateSubcmdexit_Click（）

Beep

（1）

EndSub

PrivateSubhsbspeed_Change（）

（2）

EndSub

PrivateSubhsbspeed_Scroll（）

（3）

EndSub

四、编程题

1.编程：

如图3所示布局控件（图像、标签、文本框、命令按钮）

当分别按下鼠标左、右键时，在文本框中依次出现“按下鼠标左键”，“按下鼠标右键”，按“结束”按钮将退出运行。

保存为文件名“按键”。

2.如图4、图5所示建立菜单“色彩”，“大小”以及子菜单。

要求：

当选择“红色”，“蓝色”，“白色”时，窗体背景色分别变为红、蓝、白。

当选择“小”，“大”时，窗体在正常和最大化之间切换。

当选择“结束”时，退出程序运行。

保存文件名为“颜色”。

图3

图4

图5

VB模拟试卷一参考答案

一、单选题

1.A2.C3.C4.D5.B6.D7.C8.B

9.B10.D11.D12.C13.B14.B15.B16.B

二、填空题

1.ACCESSC:

\vb6\Students.mdb

2.ENABLEDINTERVAL

3.SHAPE3

4.9*EXP（6）*LOG（6）

5.*

6.1

7.画圆，圆心坐标为（1200,1000），半径为750

8.执行CALC.EXE文件，打开“计算器”

9.DrivelistBoxDirlistBoxFilelistBox

10.OCZ

三、程序填空

1.

（1）j=6To10

（2）Arr（I）=Arr（j）

（3）Arr（j）=T

（4）I=1To10

2.

（1）Dir1.path=Drive1.Drive

（2）File1.Path=Dir1.Path

（3）File1.Pattern=Combox1.Text

（4）File1.Pattern=Combox1.Text

3.

（1）End

（2）txtspeed.Text=Str（hsbspeed.Value）+"km/hr"

（3）hsbspeed_Change

四、编程题

1.程序参考答案：

OptionExplicit

PrivateSubcmdexit_Click（）

End

EndSub

PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）

IfButton=1Then

txtresult.Text="鼠标左键被按下"

EndIf

IfButton=2Then

txtresult.Text="鼠标右键被按下"

EndIf

EndSub

PrivateSubForm_MouseUp（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）

txtresult.Text=""

EndSub

2.程序参考答案：

OptionExplicit

PrivateSubForm_Load（）

MNUWHITE.Enabled=False

MNUSMALL.Enabled=False

EndSub

PrivateSubMNUBLUE_Click（）

FRMCOLOR.BackColor=QBColor

（1）

MNUBLUE.Enabled=False

MNURED.Enabled=True

MNUWHITE.Enabled=True

EndSub

PrivateSubMNUEXIT_Click（）

End

EndSub

PrivateSubMNULARGE_Click（）

FRMCOLOR.WindowState=2

MNULARGE.Enabled=False

MNUSMALL.Enabled=True

EndSub

PrivateSubMNURED_Click（）

FRMCOLOR.BackColor=QBColor（4）

MNURED.Enabled=False

MNUBLUE.Enabled=True

MNUWHITE.Enabled=True

EndSub

PrivateSubMUNSMALL_Click（）

FRMCOLOR.WindowState=0

MNUSMALL.Enabled=False

MNULARGE.Enabled=True

EndSub

PrivateSubMNUWHITE_Click（）

FRMCOLOR.BackColor=QBColor（15）

MNUWHITE.Enabled=False

MNURED.Enabled=True

MNUBLUE.Enabled=True

EndSub

VB模拟试卷二

一、单选题（15分，每小题1分）

1.类是对象的抽象，对象则是类的具体化。

VisualBasic集成开发环境中的工具箱中各类图标对应的是，而在窗体上建立的一个控件对应的是。

A.对象，类B.对象，实体C.类，对象D.实体，类

2.下面关于对象的描述中，是错误的。

A.“对象就是自定义结构变量”

B.“对象代表系统中所创建的的一个实体”

C.“对象是一个状态和操作（或方法）的封装体”

D.“对象之间通过消息进行通信”

3.表达式"123"+"A"&&100的值是。

A.123100B.123A100C."123A100"D.1230100

4.设CurrentX=50，CurrentY=100，执行指令“Line（100,20）-Step（300,500）”后，CurrentY=。

A.400B.500C.520D.600

5.若要设置命令按钮具有图形特性可通过属性来进行。

A.AppearanceB.BackStyleC.BordestyleD.Style

6.下面的四个VisualBasic逻辑表达式语法中，正确的是。

A.x>y.And.x<>yB.x>y~z

C.x>yAnd<>zD.x>yAndy<>z

7.数组声明DimX（5,-2to3,2）共有个元素。

A.50B.60C.90D.108

8.数据类型中的变体型可以包括数值型、日期型、对象型和字符型等数据，此外，它还含4个特殊的数据：

和Empty。

A.Null、Error、ObjectB.Null、Error、Nothing

C.Null、Error、TypeD.Null、Error、Data

9.从函数子过程退出，并返回到主调过程，可使用语句。

A.ExitB.ReturnC.ExitSubD.ExitFunction

10.下列命令中可实现对顺序文件的写操作。

A.PrintB.LineInputC.InputD.Put

11.在VisualBasic中要将一个窗体从内存中释放，应该使用以下语句中的。

A.CloseB.HideC.StopD.UnLoad

12.设置窗体中鼠标指针的形状可通过属性来进行。

A.IconB.MouseIconC.MousePointerD.Picture

13.引用列表框List1最后一个数据项应使用。

A.List1.List（List1.ListCount）B.List1.List（List1.ListCount-1）

C.List1.List（ListCount）D.List1.List（ListCount-1）

14.Timer控件可用于后台进程中，可在Timer事件内编程，要停止触发Timer事件，可通过以下属性。

A.Enabled=False或Interval=0B.Visible=False或Interval=0

C.Enabled=False或Visible=FalseD.Enabled=False且Interval=0

15代数式Ln（1+tg2x）所对应的VisualBasic表达式是。

A.Log（1+tan（x）^2）B.Log（1+tg（x）^2

C.Ln（1+tan（x）^2）D.Ln（1+tg（x）^2）

二、填空题（20分，每小题2分）

1.窗体上放置了若干个文本框和命令按钮，当窗体装入后，要将焦点自动定位到文本框Text1上，则在设计时需要将Text1控件的属性设置为。

2.当单击滚动条的箭头时，要使滑块的移动量为50，则需通过属性来控制。

3.当焦点进入文本框Text1时，要自动选定文本框开始的5个字符，需要通过代码和Text1.SelLength=来实现。

4.选择通用对话框的方法，可打开另存为对话框。

5.对于窗体上的菜单按钮，如果不允许显示，应通过属性进行设置。

6.对于正在使用的动态数组d（），要增加2个单元，则应使用语句。

7.格式输出函数Format（6543.21,"##,###.000"）的显示结果为。

8.绘制圆心坐标为（1000,500），半径为300的圆，其代码为。

9.在VisualBasic中声明静态变量的关键字是。

10.表达式Str（Int（-2.3）+Sgn（6）+Sqr（25））的值为。

三、程序填空（20分，每格2分）

1.本程序随机产生N（15）个1到5的数字，按数字降序排序后，将连续出现的数字用压缩形式显示。

例如，连续3个数字4，则显示3*4，参见图1。

图1

PrivateSubCommand1_Click（）

ConstN=15

Dima%（1ToN）

Dimc%,i%,j%,m%

Fori=1ToN

a（i）=Int（

（1））

Printa（i）;

Nexti

Print:

Print"排序";

Fori=1ToN-1′选择法排序

m=i

Forj=

（2）

Ifa（j）>=a（m）Then（3）

Nextj

t=a（i）:

a（i）=a（m）:

a（m）=t

Nexti

Fori=1ToN

Printa（i）;

Nexti

Print:

Print"压缩显示";

i=1

DoWhilei<=N′相同元素压缩显示

c=1

Ifi

DoWhilea（i）=a（j）

（4）

Ifj

Loop

Ifc=1ThenPrinta（i）;ElsePrintc;"*";a（i）;"";

i=（5）

Loop

EndSub

2.DTOH子过程是将十进制整数转换成十六进制整数，参数D为要转换的十进制整数，参数h为转换结果。

PublicSubDTOH（ByValDAsInteger,hAsString）

DimtAsInteger,cAsString,rAsInteger

h=""

IfD<0Thent=-DElse

（1）

DoWhile

（2）

r=t（3）

t=t＼16

Ifr<10Then

h=r&h

Else

h=（4）&h

EndIf

Loop

IfD<0Thenh="-"&h

EndSub

Command1_Click事件用于调用DTOH函数，将输入到文本框Text1的十进制整数转换成十六进制字符串，并显示转换结果。

例如，Text1中的值为“-171”，转换结果显示（-171）10=（-ab）16。

PrivateSubCommand1_Click（）

Dimhs$

（5）

Print"（"&Text1&"）"&"10=（"&hs&"）16"

EndSub

四、编程题（45分）

1.打开软盘根目录上的d1.vbp工程，补充程序，当单击命令按钮时，可在文本框显示出100～999之间的水仙化数的个数（其各位数字立方和等于该数），并将统计结果以随机文件形式存入A:

＼d1.dat文件中。

（10分）

2.编一个完整的程序，要求如下（35分）：

（1）参见图2、图3，在Form1窗体上放置一个标签框、一个命令按钮。

窗体的标题设置为你的姓名，在窗体中建立可通过鼠标右键弹出的菜单（快捷菜单），含有“产生”、“窗体2”和“结束”三个菜单项。

在Form2窗体上放置一个图形框，用你的准考证号建立一项菜单，包含两个菜单项：

分别为“绘图”和“返回”，之间有分隔线。

（8分）

（2）选择快捷菜单的“产生”菜单项时，利用随机函数产生10个大写字母的回文词，每个回文词长度在2～10之间（所谓回文词就是组成字符串的字母左右对称）并按行显示在标签内。

（10分）

图2图3

（3）选择快捷菜单的“窗体2”菜单项，打开Form2窗体；选择“结束”菜单项，停止程序的运行。

（5分）

（4）单击Form2窗体上的“绘图”按钮，用Line方法绘制0～2π之间参数方程x=asin3θsin2θ，y=asin3θcos2θ图形，其中a为图形框的高度的一半，当单击“返回”按钮，回到Form1窗体。

（7分）

（5）在软盘根目录下将工程保存为D2.VBP、Form1窗体为D21.FRM、Form2窗体为D22.FRM，并且通过“文件|生成...exe”命令将工程生成A:

＼D2.exe文件。

（5分）

 VB模拟试卷二参考答案

一、单选题

1.C2.A3.C4.C5.D6.D7.D8.B

9.D10.A11.D12.C13.B14.A15.A

二、填空题

1.Tabindex0

2.Smallchange

3.Text1.SelStart=05

4.ShowSave

5.Visible

6.ReDimd（Ubound（d）+2）

7.6,543.210

8.Circle（1000,500）,800

9.Static

10.3

三、程序填空

1.

（1）Rnd*5+1

（2）i+1ToN

（3）m=j

（4）c=c+1

（5）i+c

2.

（1）t=D

（2）t>0

（3）Mod16

（4）Chr（r+55）

（5）CallDTOH（Text1,hs）

四、编程题

1.程序参考答案：

PrivateSubCommand1_Click（）

Dimi,a,b,cAsInteger

Text1.Text="Themunberof水仙花"

n=0

Fori=100To999

a=i\100

b=i\10-a*10

c=i-a*100-b*10

If（i=a*a*a+b*b*b+c*c*c）Then

n=n+1

EndIf

Next

Text1.Text=n

filenum=FreeFile

Open"a:

\a1.dat"ForOutputAsfilenum

Print#filenum,Text1.Text

Closefilenum

EndSub

2.程序参考答案：

（1）Form1：

PrivateSubCombo1_DblClick（）

List1.AddItemCombo1.SelText

Combo1.Text=""

EndSub

PrivateSubmntDing_Click（）

Dimi,l,kAsInteger

DimstrAsString

Dima（1To10）AsString

List1.Clear

Fork=1To10

l=Rnd*8+2

Fori=1Tol/2+1

c=Rnd*25+65

a（i）=Chr（c）

a（l+1-i）=Chr（c）

Next

str=""

Fori=1Tol+1

str=str&a（i）

Next

Fori=1To10

a（i）=""

Next

List1.AddItemstr

Next

EndSub

PrivateSubmntExit_Click（）

End

End