VB试题及答案

1、VB试题及答案（二）一、填空题1、在VisualBasic6、0中，按变量作用域得不同可将变量分为全局变量与局部变量两种；声明静态变量得关键字为Static;2?、在ViualBasic6、0中，程序结构有顺序、选择、循环3种结构。3、控制控件就是否可见得属性为Visible;控制控件就是否可用得属性为Enabled;控件得位置就是由Left与Top属性来确定得；控件得大小就是由Width与Height属性来确定；控件上所显示得文本就是由Caption属性来设定得；4、与鼠标有关得事件包括C1ick、DblClick、MouseDo州、MouseUpMouseMove,其中Click事件在单击

2、控件时被激发，MouseDown事件在鼠标键被按下时被激发，MouseUp事件在鼠标被松开时被激发。？5、与键盘有关得事件包括KeyPress、KeyDown、KeyUp,其中KeyPress事件在单击键盘键时被激发，KeyDown事件在按下键盘键时被激发，KeyUp事件在松开键盘键时被激发。6、向列表框与组合框中添加列表时，可使用AddItem方法;删除选定得列表，可使用RemoveItem方法；删除全部列表项，可使用Clear方法。7、定时器控件能够响应得唯一事件为Timer件被激发得时间间隔由Interval属性来给定。?8、弹出式菜单一般不直接显示在窗体上，因此菜单得Visible属性

3、一般设为False。要显示弹出式菜单可以用PopupMenu方法。9、工具栏一般显示在菜单栏下面,由命令按钮组成；状态栏一般显示在窗体得底部，由窗格（Panels）组成。10?、在图片框绘图之前，除了要建立好坐标系之外，还必须设置好线条得类型、线条得宽度、绘图得模式、填充得样式与填充得颜色，其中线条类型由DrawSty1e属性来设置，线条宽度DrawWdth属性来设置，绘图模式由DrawM。de属性来设置，填充样式由FillStyle属性来设置。11、要想让一个标准得窗体变为多文档窗体得子窗体，必须将标准窗体得MDIChild属性设为True。12?、顺序文件可以通过Write语句或Print

4、语句将数据写入文件，而读取文件中得数据可以使用LineInput#语句、Input#语句或Input函数来实现。随机文件与二进制文件得读操作可以通过Get语句来实现,写操作可以通过Put语句来实现。13、在Visu角1Basic6、0中，程序共有设计、运行、中断3种工作模式。错误有编译错误、实时错误、逻辑错误3种类型。?14、关键数据分为主关键字与外部关键字。其中主关键字就是对数据表内一个记录进行唯一表示得信息,而外部关键字就是把一个记录与另外某个数据表中得关键字联系起来得信息。二、选择题1?、以下关键字中，不能定义变量得就是（A）A.DeclareB.DimC.Pub1icD.Private

5、2、下面变量不合法得就是（C）?A、a2（2）RabcdC、角$xD、CDE3?、以下事件中，命令按钮不能响应得事件为（C）?A.Click事件？B.Mous安。wn事件C.Change事件D.GotFocus事件？4、如果要使文本框控件带有水平滚动条（假设MultiLine已设为True）,贝UScrollBar属性必须设为（B）0B.1C.2D.35?、在列表框、组合框中，当前被选中得列表项由（C）返回。A.ListB.ListIndexC.TextD.ListCount6?、组合框所能响应得事件与下面哪个属性有关（D）。A.ListB.ListIndexC.TexD.Style7、当拖动

6、滚动条得滚动框时，便会激发(A)事件贝.Scro11B.ChangeC.DropDownD.Click?8、定时器控件唯一能够响应得事件为(B)C1ick事件Timer事件Ch角nge事件?D.Db1Click事件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

7、)C.vbAbortRetryIgnore+vbYesNoQincel(2+3)?D.vbRetryCancel(5)?12、图片框与图像框都就是通过以下哪个属性来设置显示得图片得(C)A.MouseIconB.ImageC.PictureD.Icon13?、在图片框中所画图形得颜色与下面哪个属性有关(B)A.DrawSty1edeC.DrawWidthD.SealeModei4、要想获得使用Open语句所打开得文件得大小可以使用(A)A.LOF函数B.Len函数C.函数D.EOF函数？15、下面哪个语句只能从顺序文件中读出英文字符，非英文字符不能读出(B)?A.Input#语句B.Input

8、函数C.LineInput加句D.Get语句16、Dat角控件得很多属性,()属性用于指定Data控件所要操作得一个表或一个查询。？A、DatabaseName属性?BRecordsetType属性GExclusive属性？DRecordSouree属性三、程序填空题1.以下程序就是为了在窗体上显示1+2+3+4+、+100得与,请将程序填写完整。？PrivateSubForrlLoad()?Form1、AutoRedraw=TrueDimiAsIntegerDimsumAsInteger?sum=0?Fori=1To100sum=sum+iNexti?PrintsumEndSub2.窗体得L

9、oad事件中有以下代码：PrivateSubForm_Load()Form1、AutoRedraw=TrueDimaAsIntegerDimbAsIntegerDimcAsIntegera=300b=45?c=a*bDoWhi1ea<>bIfa>bThena=a-b?Elseb=b-aEndIfLoopPrintc/b?EndSub循行程序后，程序得输出为900。以下程序就是一个密码检验程序，程序界面如图1所示。当在文本框中输入密码，然后单击【确定】按钮。这就是如果输入得密码为“1234”，则弹出如图2所示得消息框；如果输入得密码不为“1234”，则弹出如图3所示得消息框。在

10、图3所示得消息框中，如果单击“确定”按钮，则重新输入密码；如果单击“取消”，则退出程序。构1程序界面？图2【密码正确】消息框图3【密码不正确】消息框PrivateSubmand1Click()?DimRetAsIntege'密码正确，弹出“密码正确”消息框？IfText1、Text="1234"ThenMsgBox”密码正确",vbOKGly+vbInformation,"密码正确"'密码不正确，则弹出”密码不正确"消息框E1seRet=Ms如ox("密码不正确，请重新输入”，vbOKCance1+vbCri

11、tica1,_?'密码不正确”)'根据所单击得按钮，执行不同得操作SelectCaseRet'单击”确定“按钮，重新输入密码？Case1Text1、Text=""?Text1、SetFocus/单击”取消“按钮，退出程序？Case2?UnloadForm1?EndSelect?EndIfEndSub4?在某个工程中，已用【菜单编辑器】设计了4个菜单：【颜色】、【红色】、【蓝色】、【绿色】，其中【颜色】为一级菜单，其“名称”属性为mnuS1or,“Visible”属性为True,菜单【红色】、【蓝色】、【绿色】为菜单【颜色】得子菜单。以下程序用来实现以

12、下功能：？(1)菜单【颜色】不显示在窗体上，即让菜单【颜色】成为弹出式菜单。(2)在窗体上单击鼠标左键，弹出菜单【颜色】得子菜单。(3)在弹出得菜单中，单击某个菜单项，窗体得背景颜色变为相应得颜色PrivateSubForm_Load()?菜单【颜色】不可见？mnkolor、Visible=FaIseEndSubPrivateSubForm_MouselD)wn(ButtonAsInteger,ShiftAsInteger,XAsSingle,_?YAsSingle)?单击鼠标左键，弹出弹出式菜单？IfButton=2Then?PopupMfenumnucolorEndIf?EndSubPri

13、vateSubmnucolor1_Click()?单击菜单【红色】，窗体得底色变为红色？Form1、BackColor=vbRed?EndSubPrivateSubmnucolor2_Click()'单击菜单【蓝色】，窗体得底色变为蓝色Forml、BackColor=vbBlueEndSubPrivateSubmnixo1or3_Click()?/单击菜单【绿色】，窗体得底色变为绿色？Forml、BackColor=vbGreen?EndSub5.以下程序用图像框控件来实现编辑图片得功能。？OptionExplicit0、5PrivateConstsma1lAsSing1ePrivat

14、eConst1argeAsSingle=-1PrivateSubcmdLarge_Click()ZoomimgQr,largeEndSubPrivateSubcmdSmallClick()ZoomimgCar,smallEndSub'放大、缩小处理过程?PrivateSubZoom(ByValimgAsImage,ByValratioAsSingle)img、Stretch=TrueT通过改变图片框得尺寸与位置来实现对图片得放大与缩小？img、Left=img、Left+img、Width大ratio/2img、Top=imgTop+img、Height*ratio/2?imgWidt

15、h=imgWidth-img、Width大ratioimgHeight=img、Height-img、Height*ratioEndSub6?.以下程序就是将驱动器列表控件、文件夹列表控件、文件列表控件3个控件组合在一起，以便实现对文件得管理，并且在文件列表控件中只显不文本文件，即扩张名为txt得文件。PrivateSubDrive1_Change()?Dir1、Path=Drive1、DrEndSubPrivateSubDir1_Change()=Path?EndSubPrivateSubForm_Load()/在文件列表中只显示文本文件?zilei、Pattern="*、txt&

16、quot;EndSub?7.以下程序为了在程序运行时，在不中断程序得前提下，直接将变量i得值显示在立即窗口中。PrivateSubForm_Load()DimiAsInteger?Form1、AutoRedraw=True?'调用显示数字得子过程？ori=0to10Form1、Printi?NextiDebug、Print"i="iEndSub四、程序改错题泾某个工程中，已为工程设计了两个菜单【文件】/【打开】、【文件】/【另存为】与一个文本框控件Text1,并已向工程窗体中添加了通用对话框控件。以下程序用来实现以下功能:?：1)单击【文件】/【打开】子菜单，弹出【

17、打开】对话框，从对话框中选择要打开得文件。文件中得内容显示到文本框中。(2)单击【文件】/【另存为】子菜单，弹出【另存为】对话框，在对话框中输入要保存得文件名，然后保存文件。PrivateSubmnu()?DimfNameAsStringDimtextAsStringDimtextbuffAsString?设置文件过滤器？monDialog1、Filter="文本文件(*、txt)|*、txt”?显示“打开”对话框monDialog1、ShowOpefifName=monDialogl、IffName<>""Then'打开顺序文件OpenfNameForOutPutAs#1改为：OpenfNameForInputAs#1?读取顺序文件中得内容，并将它显示到文本框中DoWhileNotEOF(1)LineInput#1,text?textbuff=textbuff+textText1、Text=textbuff?加入:Loop?Close#1?EndIfEndSubPrivateSubmnuSaveAs_Click()DimfNam