五套二级VB考试模拟试题Word格式文档下载.docx
- 文档编号:18632287
- 上传时间:2022-12-30
- 格式:DOCX
- 页数:46
- 大小:210.59KB
五套二级VB考试模拟试题Word格式文档下载.docx
《五套二级VB考试模拟试题Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《五套二级VB考试模拟试题Word格式文档下载.docx(46页珍藏版)》请在冰豆网上搜索。
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
ForI=1to5
For
(1)
T=Arr(I)
(2)
(3)
Nextj
For(4)
PrintArr(I)
EndSub
2.利用文件系统控件DrivelistBox、DirlistBox、FilelistBox、ComboBox控件设计如图1所示的窗体,要求:
改变DrivelistBox内容,DirlistBox、FilelistBox发生相应改变;
改变ComboBox内容,FilelistBox发生响应改变。
按要求填写如下代码:
PrivateSubDrive1_Change()
(1)
PrivateSubDir1_Change()
PrivateSubCombox1_Change()
PrivateSubCombox1_click()
(4)
3.利用“文本框”、“水平滚动条”、“命令按钮”设计如图2所示的窗体。
要求:
水平滚动条发生滚动,文本框内的数据在0km/hr~100km/hr之间变化;
单击“结束”按钮,退出程序执行。
图1图2
按要求完成如下代码填空:
PrivateSubcmdexit_Click()
Beep
(1)
PrivateSubhsbspeed_Change()
PrivateSubhsbspeed_Scroll()
四、编程题
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
End
PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=1Then
txtresult.Text="
鼠标左键被按下"
EndIf
IfButton=2Then
鼠标右键被按下"
PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
"
2.程序参考答案:
PrivateSubForm_Load()
MNUWHITE.Enabled=False
MNUSMALL.Enabled=False
PrivateSubMNUBLUE_Click()
FRMCOLOR.BackColor=QBColor
(1)
MNUBLUE.Enabled=False
MNURED.Enabled=True
MNUWHITE.Enabled=True
PrivateSubMNUEXIT_Click()
PrivateSubMNULARGE_Click()
FRMCOLOR.WindowState=2
MNULARGE.Enabled=False
MNUSMALL.Enabled=True
PrivateSubMNURED_Click()
FRMCOLOR.BackColor=QBColor(4)
MNURED.Enabled=False
MNUBLUE.Enabled=True
PrivateSubMUNSMALL_Click()
FRMCOLOR.WindowState=0
MNULARGE.Enabled=True
PrivateSubMNUWHITE_Click()
FRMCOLOR.BackColor=QBColor(15)
VB模拟试卷二
一、单选题(15分,每小题1分)
1.类是对象的抽象,对象则是类的具体化。
VisualBasic集成开发环境中的工具箱中各类图标对应的是,而在窗体上建立的一个控件对应的是。
A.对象,类B.对象,实体C.类,对象D.实体,类
2.下面关于对象的描述中,是错误的。
A.“对象就是自定义结构变量”
B.“对象代表系统中所创建的的一个实体”
C.“对象是一个状态和操作(或方法)的封装体”
D.“对象之间通过消息进行通信”
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)
t=a(i):
a(i)=a(m):
a(m)=t
Nexti
Fori=1ToN
Printa(i);
Print:
压缩显示"
i=1
DoWhilei<
=N′相同元素压缩显示
c=1
Ifi<
NThenj=i+1
DoWhilea(i)=a(j)
Ifj<
NThenj=j+1ElseExitDo
Loop
Ifc=1ThenPrinta(i);
ElsePrintc;
a(i);
i=(5)
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)&
Loop
0Thenh="
-"
Command1_Click事件用于调用DTOH函数,将输入到文本框Text1的十进制整数转换成十六进制字符串,并显示转换结果。
例如,Text1中的值为“-171”,转换结果显示(-171)10=(-ab)16。
Dimhs$
(5)
("
Text1&
)"
10=("
hs&
)16"
四、编程题(45分)
1.打开软盘根目录上的d1.vbp工程,补充程序,当单击命令按钮时,可在文本框显示出100~999之间的水仙化数的个数(其各位数字立方和等于该数),并将统计结果以随机文件形式存入A:
\d1.dat文件中。
(10分)
2.编一个完整的程序,要求如下(35分):
(1)参见图2、图3,在Form1窗体上放置一个标签框、一个命令按钮。
窗体的标题设置为你的姓名,在窗体中建立可通过鼠标右键弹出的菜单(快捷菜单),含有“产生”、“窗体2”和“结束”三个菜单项。
在Form2窗体上放置一个图形框,用你的准考证号建立一项菜单,包含两个菜单项:
分别为“绘图”和“返回”,之间有分隔线。
(8分)
(2)选择快捷菜单的“产生”菜单项时,利用随机函数产生10个大写字母的回文词,每个回文词长度在2~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文件。
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)
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
Next
Text1.Text=n
filenum=FreeFile
Open"
a:
\a1.dat"
ForOutputAsfilenum
Print#filenum,Text1.Text
Closefilenum
(1)Form1:
PrivateSubCombo1_DblClick()
List1.AddItemCombo1.SelText
Combo1.Text="
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)
str="
Fori=1Tol+1
str=str&
a(i)
Fori=1To10
a(i)="
List1.AddItemstr
PrivateSubmntExit_Click()
End
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 二级 VB 考试 模拟 试题