




版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
VisualBasic综合试卷一、单项选择题1.与传统的程序设计语言相比,VisualBasuc最突出的特点是()。A.结构化程序设计B.程序开发环境C.事件驱动编程机制D.程序调试技术2.在设计阶段,双击窗体上的某个控件时,打开的窗体是()。A.工程资源管理器窗口B.代码编辑器窗口C.工具箱窗口D.属性窗口3.当需要上下文帮助时,选择要帮助的内容,希望出现MSDN窗口及显示所需的帮助信息,应按的键是()。A.HelpB.F10C.EscD.F14.对于定时器(Timer)控件,设计其定时是否开启的属性是()。A.IndexB.EnabledC.TagD.Left5.表达式2*3^2+2*8/4+3^2的值是()。A.31B.42C.49D.646.后缀为.CLS的文件表示()。A.类模块文件B.窗体文件C.标准类模块文件D.窗体二进制数据文件7.数字式子Sin30O写成VB表达式是()。A.Sin30B.Sin(30)C.Sin(30O)D.Sin(30*3.14/180)8.当运行程序时,系统自动启动窗体的事件过程是()。A.LoadB.ClickC.UnloadD.GotFocus9.要退出For…Next循环,可使用的语句是()。A.ExitB.ExitForC.EndDoD.ExitDo10.对于窗体级变量,下列说法中错误的是()。A.所在窗体的各子程序都可以访问B.其它窗体的子程序不能访问C.所在窗体的各子程序都不能访问用Private定义的窗体级变量D.一定要在所在窗体的通用区内定义11.用下面的语句所定义的数组的元素个数是()。DimA(-1To3)AsIntegerA.2B.3C.4D.512.下列叙述正确的是()。A.Load语句与Show语句功能完全相同B.UnLoad语句与Hide语句功能完全相同C.Load语句与Unload语句功能完全相反D.三者都对13.当一个工程中含有多个窗体时,则启动对象是()。A.启动VB时建立的窗体B.第一个添加的窗体C.最后一个添加的窗体D.在“工程属性”对话框中通过“启动对象”指定的窗体14.VB程序中设置断点的按键是()。A.F5键B.F6键C.F9键D.F10键15.对象的三要素是()A.属性,事件,方法B.属性,过程,方法C.元素,事件,过程D.元素,过程,方法16、在运行程序时,在文本框中输入新的内容,或在程序代码中改变Text的属性值,相应会触发到什么事件?A)GotFocusB)ClickC)ChangeD)DblClick17、如果一个变量未经定义就直接使用,则该变量的类型为AIntegerBByteCBooleanDVariant18、根据变量的作用域,可以将变量分为3类,分别为A局部变量、模块变量和全局变量B局部变量、模块变量和标准变量C局部变量、模块变量和窗体变量D局部变量、标准变量和全局变量19、下面的数组声明语句中正确的是ADimgg[1,5]AsStringBDimgg[1To5,1To5]AsStringCDimgg(1To5)AsStringDDimgg[1:5,1:5]AsString20、下列程序段的执行结果为I=4x=5DoI=I+1x=x+2LoopUntilI>=7Print"I=";IPrint"x=";xAI=4x=5BI=7x=15CI=6x=8DI=7x=1121、以下各表达式中,计算结果为0的是AINT(12.4)+INT(-12.6)BCINT(12.4)+CINT(-12.6)CFIX(13.6)+FIX(-12.6)DFIX(12.4)+FIX(-12.6)22、要获得当前驱动器应使用驱动器列表框的属性是APathBDriveCDirDPattern23、当在滚动条内拖动滚动块时触发AKeyUp事件BKeyPress事件CScroll事件DChange事件24、设已经在"菜单编辑器"中设计了窗体的快捷菜单,其顶级菜单为Bs,取消其"可见"属性,运行时,在以下事件过程中,可以使快捷菜单响应鼠标右键菜单的是APrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)IfButton=2ThenPopupMenuBs,2EndSubB)PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)PopupMenuBsEndSubC)PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)PopupMenuBs,0EndSubD)PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)If(Button=vbLeftButton)Or(Button=vbRightButton)ThenPopupMenuBsEndSub25、要将名为MyForm的窗体显示出来,正确的使用方法是AMyForm.ShowBShow.MyFormCMyFormLoadDMyFormShow26、下列语句中,获得列表框List1中项目个数的语句是Ax=List1.ListCountBx=ListCountCx=List1.ListIndexDx=ListIndex27、在窗体上画一个命令按钮,然后编写下列程序PrivateSubCommand3_Click()Tcl2Tcl3Tcl4EndSubSubTcl(aAsInteger)StaticxAsIntegerx=x+aPrintx;EndSub程序运行后,单击命令按钮,输出结果为A234B259C354D24328、下列各种形式的循环中,输出"*"的个数最少的循环是Aa=5:b=8DoPrint"*"a=a+1LoopWhilea<bBa=5:b=8DoPrint"*"a=a+1LoopUntila<bCa=5:b=8DoUntila-bPrint"*"b=b+1LoopDa=5:b=8DoUntila>bPrint"*"a=a+1Loop29、设置命令按钮的属性时,只有将何属性设置为1,Picture属性才有效,否则无效?AStyleBCaptionCEnabledDDefault30、能够获得一个文本框中被选取文本的内容的属性是ATextBLengthCSeltextDSelStart31.要在垂直位置上移动控件,应利用控件的属性。
A.LeftB.WidthC.TopD.Height
32.要使文本框中的文本显示掩码(密码)符,在属性设置时,首先必须设置属性为False。
A.TextB.EnabledC.VisibleD.Multiline
33.用键盘的光标键选中某一菜单项,并按回车将触发菜单的的事件。
A.KeyPressB.KeyDownC.ClickD.KeyUp
34.以下对象不具有Clear方法。
A.列表框B.组合框C.剪贴板D.图片框
35.在文件列表框中设定“文件列表”中显示文件类型应个性该控件的属性。
A.PathB.FileNameC.NameD.Pattern
36.组合框有三种风格,它们由Style属性所决定,其中为简单组合框时,Style属性值应为。
A.0B.1C.2D.3
37.下列可调整图片框的大小以适合图片的属性是
A.stretchB.autosizeC.pictureD.oledropmode
38.要想清除文本框中的内容则可利用(8)进行。
A.CaptionB.TextC.ClearD.Cls
39.下列表达式中,其值为0的是
A.7/9B.7mod15C.7\9D.15mod9
40.求以10为底X的常用对数的表达式为
A.LOG(X)/LOG(10)B.LN(X)C.LOG(X)/LOG(E)41.一个对象可以执行的动作和可被对象识别的动作分别称为。
A、事件、方法B、方法、事件C、属性、方法D、过程、事件
42.在窗体Form1的Click事件过程中有以下语句:
Label1.Caption=”VisualBasic”
若本语句执行之前,标签控件的Caption属性为默认值,则标签控件的Name属性和Caption属性在执行本语句之前的值分别为(12)。
A.”Label”、”Label”B、”Label1”、”VisualBasic”
C、”Label1”、”Label1”D、”Caption”、”Label”
43.对象不具有Caption属性。
A、LabelB、OptionC、FormD、Timer
44.Interger类型的变量可存的的最大整数是。
A、250B、256C、32768D、32767
45.下列数据类型中,占用内存最小的是。
A、BooleanB、ByteC、IntegerD、Single
46.对象不能作为控件的容器。
A、FormB、PictureBoxC、ShapeD、Frame
47、为了确定窗体的位置,需要设置的属性是A、top和leftB、top和bottomC、top和rightD、right和bottom
48.已知A、B、C中C最小,则判断A、B、C可否构成三角形三条边长的逻辑表达式是。
A、A>=BAndB>=CAndC>0B、A+C>BAndB+C>AAndC>0
C、(A+C)>=CAndA-C<=C)AndC>0D、A+B>CAndA-B>CAndC>0
49.下面是日期型常量。
A、”12/19/99”B、12/19/99C、#12/19/99#D、{12/19/99}
50.如果在图片框上使用绘图方法绘制一个圆,则图片框的属性不会对该圆的外观产生影响。
A、BackColorB、ForeColorC、DrawWidth二、填空题1.定时器(Timer)控件可识别的事件是,发生该事件的时间间隔由定时器的属性设置,其单位为。2.要想在代码中给名为text1的文本框赋予文本:GOODWORK!时,应当编写的语句是。3.以下语句的输出结果是。s$=“Beijing”s$=“china”Prints$4、要使标签控件Label1中显示“单击此处”,所使用的语句是___________。5.设某个程序中要用到一个二维数组,要求数组名为A,类型为字符串类型,第一维下标从-1到5,第二维下标从2到6,则相应的数组声明语句为。6事件就是在对象上所发生的事情,VisualBasic中的事件如、、等。一个对象可响应个事件。事件过程是指响应某个事件后所执行的程序代码,假如某一事件过程如下:PrivateSubcmd1_click()Form1.Caption=“VB示例”EndSub则响应该过程的对象名是,事件名是。7.一个VB工程之中能有个MDI父窗体。8.要将某窗体定义为一个MDI子窗体,需要将其属性值设置为True。9.若已建立了Form1和Form2两个窗体,默认启动窗体为Form1。通过菜单菜单项,可将启动窗体设置为Form2。在程序中若要显示Form1窗体,则执行语句。。10.Sub过程与Function过程最根本的区别是。11、请填写下列空白,实现运行后形成一个主对角线上元素值为1,其他元素为0的6×6阶矩阵。PrivateSubCommand1_Click()Dims(6,6)Fori=1To6Forj=1To6Ifi=jThenElseEndIfPrintNextjPrintNextiEndSub12、在窗体上加上一个文本控件PCSTextBox,画一个命令按钮,当单击命令按钮的时候将显示"打开文件"对话框,设置该对话框只用于打开文本文件,然后在文本控件中显示打开的文件名。请填空。PrivateSubCommand1_Click()CommonDialog1.Filter=CommonDialog1.ShowOpenPCSTextBox.Text=EndSub13、随机文件使用Put语句写数据,使用语句读数据。14、下列程序的功能是:当x<50时,y=0.8×x;当50≤x≤100时,y=0.7×x;当x>100时,没有意义。请填空。PrivateSubCommand1_Click() DimxAsSingle x=InputBox("请输入x的值!") CaseIs<50y=0.8*xCase50To100y=0.7*xPrint"输入的数据出界!"EndSelectPrintx,yEndSub15、以下程序的功能是从键盘输入若干个学生的考试成绩,统计并输出最高分和最低分,当输入负数时结束输入,输出结果。请补充完整下列程序段。Dimx,amax,aminAsSinglex=InputBox("Enterascore")amax=xamin=xDoWhileIfx>amaxThenamax=xEndIfIfThenamin=xEndIfx=InputBox("enterascore")LoopPrint"max=";amax,"min=";amin16、有一个事件过程,其功能是:从已存在于磁盘上的顺序文件NM1.txt中读取数据,计算读出数据的平方值,将该数据及其平方值存入新的顺序文件NM2.txt中。请填空。PrivateSubForm_Click()DimxAsSingle,yAsSingleOpen"NM1.txt"ForInputAs#1Open"NM2.txt"ForInputAs#2DoWhileNotEOF(1)Printxy=x^2PrintyLoopClose#1,#2EndSub17、在窗体上有一个命令按钮,然后编写如下程序:FunctionTrans(ByValnumAsLong)AsLongDimkAsLongk=1DoWhilenumk=k*(numMod10)num=num\10LoopTrans=kPrintTransEndFunctionPrivateSubCommand1_Click()DimmAsLongDimsAsLongm=InputBox("请输入一个数")s=Trans(m)EndSub程序运行时,单击命令按钮,在输入对话框中输入"789",输出结果为,在输入对话框中输入"987"输出,在输入对话框中输入"879",输出结果为。18.设x=2,y=4,a=4,b=6,表达式(a>xXorb<x)ORx<yIMPy<b的结果为。
19.a和b中有仅只有一个不为1,相应的VisualBasic逻辑表达式为。
20.把条件为1≤x≤5写成VB表达式为:。
21.用随机函数产生10个100~500的整数,其表达可为:。
22.当x=2时,语句ifx=2thenPrintx=2的结果值是。
23.StaticPrivateSubcmdSum_Click()
DimSumasinteger
Sum=2*Sum+1
EndSub
问:第三次单击命令按钮cmdSum后,Sum的值为:。
24.声明单精度常量g(重力加速度)代表9.8可写成:。
25.欲使在自己设计VB程序运行过程中,不中止本程序的运行,同时又可调用系统中已有的应用程序c:\windows\notepad.exe,可在程序代码窗口必要的地方添加语句:。三、阅读程序题阅读下列程序并写出运行结果1.OptionExplicitPrivateSubCommand1_Click()DimSAsIntegerDimiAsIntegerS=1Fori=1To5S=S*iNextiPrintSEndSub结果:2.DimiAsInteger,jAsInteger,kAsIntegerk=0Fori=0To10Step3Forj=1To10Ifj>5Thenk=k+4:ExitFork=k+1NextjPrinti,kIfi>8ThenExitForNextiPrinti,k结果:3.PrivateSubform_Click()A=1b=ADoUntilA>=5X=A*bPrintStr(A)&"*";Str(b)&"=";Str(X)A=A+bb=b+ALoopEndSub结果:4.Fori=1To3Forj=1ToiFork=jTo3A=A+1NextkNextjNextiPrintA结果:5.PrivateSubCommand1_Click()DimA(1To4)AsIntegerDimbAsIntegerForb=1To4A(b)=bNextbText1.Text=A(b-1)EndSub6.C=InputBox(“请输入字符串:”)p=””ForL=Len(c)To2Step–2P=Mid(C,L–1,2)+PNextLPrintP如果输入:ABCDEFG,则结果:7.DimYAsIntegerPrivateSubCommand_Click()DimXAsIntegerX=1Y=1CallAA(Y+1)Z=BB(X)PrintX,Y,ZEndSubPrivateSubAA(ByValZAsInteger),;Y=Z+,XZ=X+YEndSubPrivateFunctionBB(ByRefYAsInteger)Y=Y+1BB=X+YEndFunction结果:8.PrivateSubCommand1_Click()DimSAsInteger,IAsIntegerS=0ForI=1To10IfZS(I)ThenIfI*2<=10ThenPrintStr(I*2)S=S+1ElseExitForEndIfEndIfNextIPrirt“S=”&Str(S)EndSubPublicFunctionZS(ByValXAsInteger)ASBooleanDimJAsIntegerJ=2DoWhileJ<XIfInt(X/J)=X/JThenExitDoJ=J+1LoopIfJ=XThenZS=TrueElseZS=FalseEndIfEndFunction结果:9.DimYAsInteger
PrivateStubCommand_Click()
DimXAsInteger
X=1
Y=1
CallAA(Y+1)
Z=BB(X)
PrintX,Y,Z
EndSub
PrivateSubAA(ByValZAsInteger)
Y=Z+X
Z=X+Y
EndSub
PrivateFunctionBB(ByRefYAsInteger)
Y=Y+1
BB=X+Y
EndFunction结果:10.PrivatesubForm_click()
N=3
DimA(3,3)AsInteger
ForI=IToN
ForJ=IToN
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 公司登山自驾游活动方案
- 公司短期旅游活动方案
- 2025年信息技术与产业发展考试试卷及答案
- 2025年心理医生职业伦理考试试卷及答案
- 2025年生命科学基础知识考试试卷及答案
- 2025年健康管理与慢性病防控考试试题及答案
- 2025年科技创新与知识产权管理考试试题及答案
- 2025年家庭教师资格考试试卷及答案
- 2025年护理学课程公共卫生防疫基础知识考试试卷及答案
- 2025年非营利组织发展助理考试试题及答案
- (高清版)DB13∕T 2937-2019 非煤矿山双重预防机制建设规范
- 电动船舶生产线项目可行性研究报告(范文参考)
- 浙江宁波历年中考作文题与审题指导(2007-2021)
- 大学生医学健康科普演讲
- 冶金天车作业安全培训
- 《马克思主义基本原理概论》课后思考题及答案
- 煤炭行业的企业战略布局与资源整合考核试卷
- 静脉血液标本采集指南
- 2024年广东省广州市初中学业水平考试生物学试题(含答案)
- DB32-T 5080-2025 工程竹结构建筑技术规程
- 《重大电力安全隐患判定标准(试行)》知识培训
评论
0/150
提交评论