《一套VB模拟试题.doc》由会员分享，可在线阅读，更多相关《一套VB模拟试题.doc（13页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、窗体顶端本卷共有3道大题:窗体底端一、单项选择题（50道小题，共50分）1、在设计工作状态，当双击窗体上任何一个控件时，打开的窗口是_。（1分）A、窗体布局窗口B、窗体设计窗口C、属性窗口D、代码窗口2、下面四个语句中，正确的赋值语句是_。（1分）A、a=a+cB、a+c=aC、c+a=aD、ac=a3、如果在图片框Picture1中装入一个图形，为了清除该图形（不删除图片框），应采用的方法是_。（1分）A、选择图片框，在属性窗口中选择Picture属性条，然后按回车键B、选择图片框，然后按Del键C、执行语句Picture1.Picture=LoadPicture()D、执行语句Pictur
2、e1.Picture=4、若要使标签控件显示时，不覆盖其背景内容，应设置的属性是_。（1分）A、ForecolorB、BackColorC、BackStyleD、BorderStyle5、要求在程序运行时，一旦点击文本框使之获取焦点，就自动选中文本框内的所有文本，则需要编写事件过程_。（1分）A、Text1_Change() B、Text1_GotFocus()C、Text1_KeyPress(KeyAsciiAsInteger)D、Text1_SetFocus()6、PrintFormat(1234.234,#.#);Format(1234.234,#.#)的显示结果是_。（1分）A、123
3、4.23B、123.234001234.234C、123.234001234.23D、1234.2347、VisualBasic的编程机制是_。（1分）A、面向过程B、面向对象C、事件驱动D、可视化8、除了系统默认的工具箱之外，还可以通过_方法来增加控件。（1分）A、执行“文件”菜单中的“添加工程”命令B、执行“工程”菜单中的“部件”命令C、在工具箱处执行其快捷菜单中的“添加选项卡”命令D、执行“工程”菜单中的“添加窗体”命令9、能产生10，32之间随机整数的函数表达式为_。（1分）A、Int(Rnd*22)+10B、Int(Rnd*23)+10C、Int(Rnd*22)+11D、Int(Rn
4、d*23)+1110、要把一个Image控件对象设置成隐藏，应设置的属性是_。（1分）A、VisibleB、EnabledC、DefaultD、Cancel11、每个对象的事件名称_。（1分）A、都要由用户定义B、有的由用户定义，有的由系统定义C、都是由系统预先定义D、是不固定的12、启动VisualBasic后，VB为用户建立的第一个窗体是_。（1分）A、FormB、Form1C、窗体1D、窗体13、窗体设计器是用于设计_。（1分）A、窗体的代码B、对象的属性C、应用程序的代码D、应用程序的界面14、已知x=2,y=9,z=4，逻辑表达式xyORzxANDNOTzy的值是_。（1分）A、Tr
5、ueB、-1C、0D、False15、在程序运行模式能够_。（1分）A、中断程序B、添加程序C、输入程序D、编辑程序16、程序如下：i=0:s=0:Do:i=i+2:s=i+s:LoopUntili4，执行后s的值是_（1分）A、10B、11C、12D、1517、窗体文件的扩展名_。（1分）A、.basB、.vbpC、.exeD、.frm18、与传统的程序设计语言相比较，VisualBasic最突出的特点是_。（1分）A、结构化的程序设计B、数据处理C、面向对象的可视化编程D、中文支持19、下列叙述中，正确的是_。（1分）A、工程文件（.vbp）应用程序可以在任何计算机上运行B、打开一个工程文
6、件，系统自动装入与该工程有关的窗体文件C、VB工程文件中可以没有窗体文件D、退出VB系统前要保存新创建的应用程序，只需保存工程文件（.vbp）即可20、如果想用Print方法将计算结果显示在窗体上，则必须保证属性值为True的属性是_。（1分）A、EnabledB、ApperanceC、AutoRedrawD、Moveable21、表达式4+56*7/8Mod9的值是_。（1分）A、4B、5C、6D、722、窗体上有一个文本框和一个命名按钮，当向文本框中输入一个字符时，命令按钮的标题设置为“计算机考试”。下面正确的事件过程为_。（1分）A、PrivateSubCommand1_Click():
7、Command1.Caption=计算机考试:EndSubB、PrivateSubCommand1_Click():Text1=计算机考试:EndSubC、PrivateSubText1_Change():Command1.Caption=计算机考试:EndSubD、PrivateSubText1_Click():Text1.Caption=计算机考试:EndSub23、有一个命令：Text1=欢迎您！，表达方式中省略了对象的_。（1分）A、方法B、属性名C、对象名D、标题24、窗体上有一个标签Label1和一个命名按钮Command1，当程序运行时每单击一次命令按钮，标签就向右移动一定距离。
8、在Command1_Click()中能完成这个功能的命令为_。（1分）A、Label1.Left=100B、Label1.Left=Label1.Left-100C、Label1.Move100D、Label1.MoveLabel1.Left+10025、程序段Dimx%:IfxTheny=xElsey=x+1:Printy运行后，显示的结果是_。（1分）A、0B、1C、随机数D、显示出错信息26、执行程序Forn=1To3:Cls:Printn=;n;:Nextn后,输出结果是_。（1分）A、123B、3C、n=3D、n=1n=2n=327、假设变量iVar是一个整型变量，则执行赋值语句iV
9、ar=2+3之后，变量iVar的值是_。（1分）A、2B、3C、5D、2328、InputBox函数返回值的类型为_。（1分）A、数值B、字符串C、变体D、数值或字符串29、执行程序段：m$=ABC:n$=abc:k$=LCase$(m$):j$=UCase$(n$):PrintAsc(k$+j$)，输出的结果是_。（1分）A、abcabcB、ABCABCC、65D、9730、以下声明语句中，错误的是_。（1分）A、Constvarl=123B、Constvar2=ABCC、Publicconst=计算机等级考试D、Staticvar3asInteger31、语句X=X+1的正确含义是_。（1
10、分）A、变量X的值与X+1的值相等B、将变量X的值存到X+1中去C、将变量X的值加1后赋给变量XD、变量X的值为132、执行程序段：DimaxsAsInteger:axs%=232:axs=232.32:Printaxs%;axs，输出的结果是_。（1分）A、232B、232232C、232.32232.32D、显示出错信息33、下列表达式中，表示X和Y之中有一个是奇数的表达式是_。（1分）A、XMod2=1AndYMod2=1B、XMod2=1OrYMod2=1C、(XMod2=1AndYMod2=0)And(XMod2=0AndYMod2=1)D、(XMod2=1AndYMod2=0)Or
11、(XMod2=0AndYMod2=1)34、执行语句age=InputBox(请输入数值,年龄输入框,38)，如果从键盘上输入数值20并按回车键，则下列叙述中,不正确的叙述是_。（1分）A、变量Age的值是数值20B、对话框标题栏中显示的是年龄输入框C、对话框的默认值是38D、对话框的提示文字为请输入数值35、在下列符号常量的声明中，_是不合法的。（1分）A、ConstaAsSingle=2.6B、ConstaAsInteger=abC、ConstaAsDouble=2*2D、Consta=OK36、在下列逻辑表达式中，逻辑值为真的是_。（1分）A、Not(12)B、Not(3+42Or23D
12、、21And3=1.7AndW=52.5B、T=52.5C、T1.7AndW1.7OrWa(j)Thent=a(i):a(i)=a(j):a(j)=tNextjNextiFori=1To10Printa(i);Nexti:PrintEndSub（4分）3、*随机产生n个两位整数，求出其中的最大值和最小值。PrivateSubCommand1_Click()Dima(100)AsInteger,nAsInteger,iAsIntegerDimminAsInteger,maxAsIntegern=InputBox(vbCrLf+vbCrLf+n=)Print产生的随机数为RandomizeFori
13、=1Tona(i)=Int(Rnd*90)+10Printa(i);Nexti:Printmin=a(1):max=min Fori=2To nIfa(i)maxThenmax=a(i)Ifa(i)minThenmin=a(i)NextiPrint最大值为;maxPrint最小值为;minEndSub（4分）4、*使用双循环实现三角形输出*PrivateSubCommand1_Click()Fori=1To5PrintTab(25-i);Forj=1ToiPrint*;NextjPrintNextiEndSub（4分）5、*利用判断一个三位数是否为对称数（如：343）的函数过程，求出所有三位对
14、称数之和。*程序代码如下：PrivateSubCommand1_Click()DimsumAsLong,nAsIntegersum=0Forn=100To999Ifduicheng(n)thensum=sum+nNextnEndSubPublicFunctionduicheng(ByVali%)AsBooleana=iMod10c=i100Ifa=cThenduicheng=trueElseduicheng=FalseEndIfEnd Function（4分）6、*下面程序计算1!+3!+5!+.+9!的值，请将其补充完整。*程序代码如下：DimntAsSinglePrivateSubaa(B
15、yValnAsSingle)DimiAsIntegernt=1Fori=1Tonnt=nt*iNextiEndSubPrivateSubForm_Click()DimsumAsSingle,nAsIntegersum=0Forn=1To9Step2aa(n)sum=sum+ntNextnPrintsumEndSub（4分）7、*控件属性改变，如图所示PrivateSubCommand1_Click()IfCommand1.Caption=字号ThenLabel1.FontSize=30Command1.Caption=颜色 elseLabel1.forecolor=vbRedCommand1.
16、Caption=字号EndIfEndSub【附图2】（6分）三、编程题（2道小题，共20分）1、*编写程序：*已知一个斐波那契数列的前两项为1,1，以后的每一项均为前两项的和。*例如：1,1,2,3,5，.，请求出这个数列前43项的和。（10分）必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计!请将你解答本题所写的源程序粘贴到下面或者上载源程序2、*编写程序：*先下载数据文件kaoshiwenjian.txt到自己的计算机中,然后编制程序，要求：统计出该数据文件中奇数的个数。（【下载文件“kaoshiwenjian.txt”】；）下载方法：在链接上右击打开弹出菜单，选择“目标另存
17、为”。（10分）必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计!请将你解答本题所写的源程序粘贴到下面或者上载源程序privte sub form_load() Autoredraw=true Open “d:kaoshiwenjian.txt” for input as 1 Do while not eof(1) Input #1,i If i mod 2 0 then N=n+1 End if Loop Print n Close #1 End sub 窗体底端考号： 姓名：剩余时间：89:47保存交卷退出帮助 强烈建议您使用IE5.0以上，屏幕分辨率800X600以上，真彩，小字体浏览