五套二级VB考试模拟试题.docx
- 文档编号:5645190
- 上传时间:2022-12-30
- 格式:DOCX
- 页数:46
- 大小:210.59KB
五套二级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
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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 二级 VB 考试 模拟 试题