VB试题及答案.docx

VB试题及答案.docx

《VB试题及答案.docx》由会员分享，可在线阅读，更多相关《VB试题及答案.docx（6页珍藏版）》请在冰豆网上搜索。

VB试题及答案

VB试题及答案

（二）

一、 填空题

1、 在VisualBasic6、0中,按变量作用域的不同可将变量分为全局变量与 局部变量 两种;声明静态变量的关键字为 Static ;

2、 在ViualBasic6、0中,程序结构有 顺序  、  选择  、  循环 3种结构。

3、 控制控件就是否可见的属性为 Visible  ;控制控件就是否可用的属性为  Enabled  ;控件的位置就是由  Left 与 Top  属性来确定的;控件的大小就是由  Width 与 Height 属性来确定;控件上所显示的文本就是由 Caption  属性来设定的;

4、 与鼠标有关的事件包括 Click 、DblClick 、MouseDown 、MouseUp  MouseMove  ,其中 Click 事件在单击控件时被激发, MouseDown 事件在鼠标键被按下时被激发, MouseUp事件在鼠标被松开时被激发。

5、 与键盘有关的事件包括 KeyPress  、 KeyDown  、 KeyUp  ,其中 KeyPress  事件在单击键盘键时被激发, KeyDown  事件在按下键盘键时被激发, KeyUp  事件在松开键盘键时被激发。

6、 向列表框与组合框中添加列表时,可使用 AddItem  方法;删除选定的列表,可使用  RemoveItem  方法;删除全部列表项,可使用  Clear 方法。

7、 定时器控件能够响应的唯一事件为 Timer  ,并且该事件被激发的时间间隔由 Interval 属性来给定。

8、 弹出式菜单一般不直接显示在窗体上,因此菜单的 Visible  属性一般设为False。

要显示弹出式菜单可以用 PopupMenu 方法。

9、 工具栏一般显示在 菜单栏  下面,由  命令按钮   组成;状态栏一般显示在窗体的   底部   ,由  窗格（Panels） 组成。

10、 在图片框绘图之前,除了要建立好坐标系之外,还必须设置好线条的类型、线条的宽度、绘图的模式、填充的样式与填充的颜色,其中线条类型由 DrawStyle  属性来设置,线条宽度  DrawWidth  属性来设置,绘图模式由  DrawMode   属性来设置,填充样式由   FillStyle  属性来设置。

11、 要想让一个标准的窗体变为多文档窗体的子窗体,必须将标准窗体的 MDIChild 属性设为True。

12、 顺序文件可以通过 Write  语句或  Print  语句将数据写入文件,而读取文件中的数据可以使用  LineInput#   语句、  Input#  语句或  Input  函数来实现。

随机文件与二进制文件的读操作可以通过   Get   语句来实现,写操作可以通过  Put 语句来实现。

13、 在VisualBasic6、0中,程序共有 设计  、  运行   、  中断 3种工作模式。

错误有 编译错误 、 实时错误 、 逻辑错误 3种类型。

14、 关键数据分为    主关键字  与外部关键字。

其中  主关键字    就是对数据表内一个记录进行唯一表示的信息,而    外部关键字   就是把一个记录与另外某个数据表中的关键字联系起来的信息。

二、 选择题

1、 以下关键字中,不能定义变量的就是（A）

A.Declare     B.Dim    C.Public    D.Private

2、 下面变量不合法的就是（C）

A、、 a2

（2）   B、 abcd     C、 a$x      D、 CDE

3、 以下事件中,命令按钮不能响应的事件为（C）

A.Click事件    

B.MouseDown事件     

C.Change事件     

D.GotFocus事件

4、 如果要使文本框控件带有水平滚动条（假设MultiLine已设为True）,则ScrollBar属性必须设为（B）

A.0     B.1     C.2    D.3

5、 在列表框、组合框中,当前被选中的列表项由（C）返回。

A.List     B.ListIndex     C.Text     D.ListCount

6、 组合框所能响应的事件与下面哪个属性有关（D）。

A.List     B.ListIndex     C.Text     D.Style

7、 当拖动滚动条的滚动框时,便会激发（A）事件

A.Scroll    B.Change    C.DropDown     D.Click

8、 定时器控件唯一能够响应的事件为（B）

A.Click事件    

B.Timer事件     

C.Change事件     

D.DblClick事件

9、 含有子菜单的菜单不能设置（B）

A.访问键   B.快捷键    C.菜单标题     D.菜单名称

10、 要使一个菜单项变为分隔线,必须将其标题属性设为（C）

A.下划线  B.&   C.上划线    D.减号

11、 在设置MsgBox函数的参数值时,如果buttons值为5,则下面组合正确的就是（A）

A.vbOKonly+vbRetryCancel（0＋5）

B.vbOKCancel+vbYesNo（1＋4）

C.vbAbortRetryIgnore+vbYesNoCancel（2＋3）

D.vbRetryCancel（5）

12、 图片框与图像框都就是通过以下哪个属性来设置显示的图片的（C）

A.MouseIcon    B.Image    C.Picture       D.Icon

13、 在图片框中所画图形的颜色与下面哪个属性有关（B）

A.DrawStyle      B.DrawMode      C.DrawWidth      D.ScaleMode

14、 要想获得使用Open语句所打开的文件的大小可以使用（A）

A.LOF函数    B.Len函数    C.函数   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（）

Form1、AutoRedraw= True 

DimiAsInteger

DimsumAsInteger

sum=0

Fori=1To100

sum= sum+i 

Nexti

Printsum

EndSub

2. 窗体的Load事件中有以下代码:

PrivateSubForm_Load（）

Form1、AutoRedraw=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

EndSub

运行程序后,程序的输出为 900 。

3. 以下程序就是一个密码检验程序,程序界面如图1所示。

当在文本框中输入密码,然后单击【确定】按钮。

这就是如果输入的密码为“1234”,则弹出如图2所示的消息框;如果输入的密码不为“1234”,则弹出如图3所示的消息框。

在图3所示的消息框中,如果单击“确定”按钮,则重新输入密码;如果单击“取消”,则退出程序。

图1 程序界面

        图2【密码正确】消息框               图3 【密码不正确】消息框

PrivateSubCommand1_Click（）

DimRetAs   Integer 

'密码正确,弹出“密码正确”消息框

IfText1、Text="1234"Then

MsgBox"密码正确",vbOKOnly+vbInformation,"密码正确"

'密码不正确,则弹出"密码不正确"消息框

Else

Ret=MsgBox（"密码不正确,请重新输入",vbOKCancel+vbCritical,_

"密码不正确"）

'根据所单击的按钮,执行不同的操作

SelectCase  Ret 

'单击”确定“按钮,重新输入密码

Case1

Text1、Text=""

Text1、SetFocus

'单击”取消“按钮,退出程序

Case2

Unload  Form1

EndSelect

EndIf

EndSub

4. 在某个工程中,已用【菜单编辑器】设计了4个菜单:

【颜色】、【红色】、【蓝色】、【绿色】,其中【颜色】为一级菜单,其“名称”属性为mnuColor,“Visible”属性为True,菜单【红色】、【蓝色】、【绿色】为菜单【颜色】的子菜单。

以下程序用来实现以下功能:

（1） 菜单【颜色】不显示在窗体上,即让菜单【颜色】成为弹出式菜单。

（2） 在窗体上单击鼠标左键,弹出菜单【颜色】的子菜单。

（3） 在弹出的菜单中,单击某个菜单项,窗体的背景颜色变为相应的颜色。

PrivateSubForm_Load（）

'菜单【颜色】不可见

mnucolor、Visible=  False 

EndSub

PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,_

YAsSingle）

'单击鼠标左键,弹出弹出式菜单

IfButton=  2 Then

 PopupMenu   mnucolor

EndIf

EndSub

PrivateSubmnucolor1_Click（）

'单击菜单【红色】,窗体的底色变为红色

Form1、BackColor=vbRed

EndSub

PrivateSubmnucolor2_Click（）

'单击菜单【蓝色】,窗体的底色变为蓝色

Form1、BackColor=vbBlue

EndSub

PrivateSubmnucolor3_Click（）

'单击菜单【绿色】,窗体的底色变为绿色

Form1、BackColor=vbGreen

EndSub

5. 以下程序用图像框控件来实现编辑图片的功能。

OptionExplicit

PrivateConstsmallAsSingle=0、5

PrivateConstlargeAsSingle=-1

P