VB试题及答案Word文档下载推荐.docx
《VB试题及答案Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《VB试题及答案Word文档下载推荐.docx(6页珍藏版)》请在冰豆网上搜索。
、DblClick
、MouseDown
、MouseUp
MouseMove
,其中
事件在单击控件时被激发,
MouseDown
事件在鼠标键被按下时被激发,
MouseUp事件在鼠标被松开时被激发。
5.
与键盘有关的事件包括
KeyPress
KeyDown
KeyUp
事件在单击键盘键时被激发,
事件在按下键盘键时被激发,
事件在松开键盘键时被激发。
6.
向列表框和组合框中添加列表时,可使用
AddItem
方法;
删除选定的列表,可使用
RemoveItem
删除全部列表项,可使用
Clear
方法。
7.
定时器控件能够响应的唯一事件为
Timer
,并且该事件被激发的时间间隔由
Interval
属性来给定。
8.
弹出式菜单一般不直接显示在窗体上,因此菜单的
属性一般设为False。
要显示弹出式菜单可以用
PopupMenu
9.
工具栏一般显示在
菜单栏
下面,由
命令按钮
组成;
状态栏一般显示在窗体的
底部
,由
窗格(Panels)
组成。
10.
在图片框绘图之前,除了要建立好坐标系之外,还必须设置好线条的类型、线条的宽度、绘图的模式、填充的样式和填充的颜色,其中线条类型由
DrawStyle
属性来设置,线条宽度
DrawWidth
属性来设置,绘图模式由
DrawMode
属性来设置,填充样式由
FillStyle
属性来设置。
11.
要想让一个标准的窗体变为多文档窗体的子窗体,必须将标准窗体的
MDIChild
属性设为True。
12.
顺序文件可以通过
Write
语句或
Print
语句将数据写入文件,而读取文件中的数据可以使用
LineInput#
语句、
Input#
Input
函数来实现。
随机文件和二进制文件的读操作可以通过
Get
语句来实现,写操作可以通过
Put
语句来实现。
13.
在Visual中,程序共有
设计
运行
中断
3种工作模式。
错误有
编译错误
实时错误
逻辑错误
3种类型。
14.
关键数据分为
主关键字
和外部关键字。
其中
是对数据表内一个记录进行唯一表示的信息,而
外部关键字
是把一个记录与另外某个数据表中的关键字联系起来的信息。
二、
选择题
以下关键字中,不能定义变量的是(A)
A.Declare
B.Dim
C.Public
D.Private
下面变量不合法的是(C)
A..
a2
(2)
B.
abcd
C.
a$x
D.
CDE
以下事件中,命令按钮不能响应的事件为(C)
A.Click事件
B.MouseDown事件
C.Change事件
D.GotFocus事件
如果要使文本框控件带有水平滚动条(假设MultiLine已设为True),则ScrollBar属性必须设为(B)
A.0
B.1
C.2
D.3
在列表框、组合框中,当前被选中的列表项由(C)返回。
A.List
B.ListIndex
C.Text
D.ListCount
组合框所能响应的事件与下面哪个属性有关(D)。
D.Style
当拖动滚动条的滚动框时,便会激发(A)事件
A.Scroll
B.Change
C.DropDown
D.Click
定时器控件唯一能够响应的事件为(B)
B.Timer事件
D.DblClick事件
含有子菜单的菜单不能设置(B)
A.访问键
B.快捷键
C.菜单标题
D.菜单名称
要使一个菜单项变为分隔线,必须将其标题属性设为(C)
A.下划线
B.&
C.上划线
D.减号
在设置MsgBox函数的参数值时,如果buttons值为5,则下面组合正确的是(A)
A.vbOKonly+vbRetryCancel(0+5)
B.vbOKCancel+vbYesNo(1+4)
C.vbAbortRetryIgnore+vbYesNoCancel(2+3)
D.vbRetryCancel(5)
图片框和图像框都是通过以下哪个属性来设置显示的图片的(C)
A.MouseIcon
B.Image
C.Picture
D.Icon
在图片框中所画图形的颜色与下面哪个属性有关(B)
A.DrawStyle
B.DrawMode
C.DrawWidth
D.ScaleMode
要想获得使用Open语句所打开的文件的大小可以使用(A)
A.LOF函数
B.Len函数
C.FileLen函数
D.EOF函数
15.
下面哪个语句只能从顺序文件中读出英文字符,非英文字符不能读出(B)
A.Input#语句
B.Input函数
C.LineInput#语句
D.Get语句
16.
Data控件的很多属性,(
)属性用于指定Data控件所要操作的一个表或一个查询。
A.
DatabaseName属性
B.
RecordsetType属性
C.
Exclusive属性
D.
RecordSource属性
三、
程序填空题
1.
以下程序是为了在窗体上显示1+2+3+4+…….+100的和,请将程序填写完整。
PrivateSubForm_Load()
=
True
DimiAsInteger
DimsumAsInteger
sum=0
Fori=1To100
sum=
sum+i
Nexti
Printsum
EndSub
2.
窗体的Load事件中有以下代码:
PrivateSubForm_Load()
=True
DimaAsInteger
DimbAsInteger
DimcAsInteger
a=300
b=45
c=a*b
DoWhilea<
>
b
Ifa>
bThen
a=a-b
Else
b=b-a
EndIf
Loop
Printc/b
运行程序后,程序的输出为
900
。
3.
以下程序是一个密码检验程序,程序界面如图1所示。
当在文本框中输入密码,然后单击【确定】按钮。
这是如果输入的密码为“1234”,则弹出如图2所示的消息框;
如果输入的密码不为“1234”,则弹出如图3所示的消息框。
在图3所示的消息框中,如果单击“确定”按钮,则重新输入密码;
如果单击“取消”,则退出程序。
图1
程序界面
图2【密码正确】消息框
图3
【密码不正确】消息框
PrivateSubCommand1_Click()
DimRetAs
Integer
'
密码正确,弹出“密码正确”消息框
If="
1234"
Then
MsgBox"
密码正确"
vbOKOnly+vbInformation,"
密码不正确,则弹出"
密码不正确"
消息框
Else
Ret=MsgBox("
密码不正确,请重新输入"
vbOKCancel+vbCritical,_
"
)
根据所单击的按钮,执行不同的操作
SelectCase
Ret
单击”确定“按钮,重新输入密码
Case1
="
单击”取消“按钮,退出程序
Case2
Unload
Form1
EndSelect
EndIf
4.
在某个工程中,已用【菜单编辑器】设计了4个菜单:
【颜色】、【红色】、【蓝色】、【绿色】,其中【颜色】为一级菜单,其“名称”属性为mnuColor,“Visible”属性为True,菜单【红色】、【蓝色】、【绿色】为菜单【颜色】的子菜单。
以下程序用来实现以下功能:
(1)
菜单【颜色】不显示在窗体上,即让菜单【颜色】成为弹出式菜单。
(2)
在窗体上单击鼠标左键,弹出菜单【颜色】的子菜单。
(3)
在弹出的菜单中,单击某个菜单项,窗体的背景颜色变为相应的颜色。
菜单【颜色】不可见
False
PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,_
YAsSingle)
单击鼠标左键,弹出弹出式菜单
IfButton=
2
mnucolor
PrivateSubmnucolor1_Click()
单击菜单【红色】,窗体的底色变为红色
=vbRed
PrivateSubmnucolor2_Click()
单击菜单【蓝色】,窗体的底色变为蓝色
=vbBlue
PrivateSubmnucolor3_Click()
单击菜单【绿色】,窗体的底色变为绿色
=vbGreen
5.
以下程序用图像框控件来实现编辑图片的功能。
OptionExplicit
PrivateConstsmallAsSingle=
PrivateConstlargeAsSingle=-1
PrivateSubcmdLarge_Click()
ZoomimgCar,large
PrivateSubcmdSmall_Click()
ZoomimgCar,small
放大、缩小处理过程
PrivateSubZoom(ByValimgAsImage,ByValratioAsSingle)
通过改变图片框的尺寸和位置来实现对图片的放大和缩小
=+*ratio/2
=-*ratio
6.
以下程序是将驱动器列表控件、文件夹列表控件、文件列表控件3个控件组合在一起,以便实现对文件的管理,并且在文件列表控件中只显示文本文件,即扩张名为txt的文件。
PrivateSubDrive1_Change()
=Drive1.
Drive
PrivateSubDir1_Change()
Path
在文件列表中只显示文本文件
File1.
Pattern
*.txt"
7.
以下程序为了在程序运行时,在不中断程序的前提下,直接将变量i的值显示在立即窗口中。
调用显示数字的子过程
fori=0to10
i
Debug
.Print"
i="
;
四、
程序改错题
在某个工程中,已为工程设计了两个菜单【文件】/【打开】、【文件】/【另存为】和一个文本框控件Text1,并已向工程窗体中添加了通用对话框控件。
单击【文件】/【打开】子菜单,弹出【打开】对话框,从对话框中选择要打开的文件。
文件中的内容显示到文本框中。
单击【文件】/【另存为】子菜单,弹出【另存为】对话框,在对话框中输入要保存的文件名,然后保存文件。
PrivateSubmnuFileOpen_Click()
DimfNameAsString
DimtextAsString
DimtextbuffAsString
设置文件过滤器
文本文件(*.txt)|*.txt"
显示“打开”对话框
fName=
IffName<
"
打开顺序文件
OpenfNameForOutPutAs#1
改为:
OpenfNameForInputAs#1
读取顺序文件中的内容,并将它显示到文本框中
DoWhileNotEOF
(1)
LineInput#1,text
textbuff=textbuff+text
=textbuff
加入:
Close#1
PrivateSubmnuSaveAs_Click()
DimfNameAsInterger
显示“另存为”对话框
OpenfNameForInputAs#1
OpenfNameForOutputAs#1
将文本框中的内容写入文件
Print#1,