《2010年vb期中考试试卷及答案.docx》由会员分享，可在线阅读，更多相关《2010年vb期中考试试卷及答案.docx（25页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、2010年vb期中考试试卷及答案2020年vb期中考试满分：110分姓名：_1、单项选择题(此题共计40分)1、函数Cint(3.5)，Int(3.5)，Fix(3.5)的值分别是_。()A、-3，4，3B、-4，4，3C、-3，4，4D、-4，3，32、在VB中，下列关于控件的属性或方法中，搭配错误的有_个。Timer1.IntervalList1.ClsText1.PrintList1.RemoveItemVscroll1.ValuePicture1.Print()A、0B、1C、2D、33、若在一个应用程序窗体上，依次创立了CommandButton、TextBox、Label1等控件，
2、则运行该程序显示窗体时，_会首先获得焦点。()A、窗体B、CommandButtonC、Label1D、TextBox4、下面的表达试的值为真的是_。()A、Mid(“VisualBasic,1,12)=Right(“ProgramingLanguageVisualBasic,12)B、“ABCRGabcdeC、Int(134.69)Cint(134.69)D、78.9/32.774.985、执行语句Printformat(5459.478,#,#0.00)，正确的输出结果是_。()A、5459.48B、5,459.48C、5,459.478D、5,459.476、有如下程序代码：Privat
3、eSubCommand1_Click()s=Sin(3.1415926/2)MsgBoxsEndSub程序运行后，消息对话框显示_。()A、0B、1C、1.5708D、27、执行下面程序段后，变是c$的值为_。PrivateSubCommand1_Click()A$=ViaualBASICprogrammingB$=B$&UCase(Mid$(A$,7,6)&Right$(A$,12)PrintB$EndSub()A、ViaualBASICProgrammingB、BasicProgrammingC、basicprogrammingD、BASICPROGRAMMING8、下列语句中不能正常执行
4、的是_。()A、print+32758+10B、print5+9=15C、print65+12D、print65&129、执行语句PrintFormat(1234.567,#,#0.00),正确的输出结果是_。()A、1234.57B、1,234.57C、1,234.56D、01,234.5710、下面是计算1100奇数的和的程序，请补充完好，填空应为_。PrivateSubCommand1_Click()DimsAsLong,xAsIntegers=0Forx=_Step-2s=s+xNextxPrintsEndSubA、100To1B、1To100C、99To1D、1To9911、下列程序
5、段的执行结果为_。x=Int(69-60)*Rnd+60)SelectCasexCaseIs=90Print“优秀Case80To89Print“良好Case60To79Print“合格CaseElsePrint“不合格EndSelectA、优秀B、良好C、合格D、不合格12、下列语句正确的是_。()A、IfKNThenN=K3B、IfKNThenN=K3C、IfKNThenN=K3D、IfKNThenN=K*313、要使文本框能显示多行文字，则需设定它的_属性为True。()A、CaptionB、PasswordCharC、MultiLineD、Seleted14、下面语句错误的是_。()A
6、、Ifa=1Andb=2Thenc=3EndIfB、Ifa=1Thenc=2ElseIfa=2Thenc=3EndIfC、Ifa=1Thenc=2ElseIfa=2Thenc=3EndIfD、If(a=1,2,3)Thenc=215、下面程序的运行结果是_。PrivateSubCommand1Click()x=1:y=1Fori=1TO3x=x+y:y=y+xNextiPrintx;yEndSub()A、66C、1321D、343516、下面程序的内层循环次数是_。Fori=1TO3Forj=1TOiFork=jTO3.NextkNextjNexti()A、3B、14C、9D、2117、对于一
7、个含有计时器控件的窗体，每经过一段由_属性指定的时间间隔，就会产生一个Timer事件。()A、NameB、EnabledC、CaptionD、Interval18、窗体从加载到显示出来，下列最先发生的事件是_。()A、LoadB、ResizeC、ActivateD、Paint19、假如a是一个正实数，对x的第3位小数四舍五入的表达式是_。()A、0.01*Int(a+0.005)B、0.01*Int(a+0.05)C、0.01*Int(100*(a+0.005)D、0.01*Int(100*(a+0.05)20、VisualBasic的一行能够写多条语句，语句之间用_隔开。()A、逗号B、分号
8、C、顿号D、冒号21、判定在文本框内能否按下了回车键，应通过_事件经过。()A、ChangeB、KeyPressC、GotFocusD、Click22、下列循环能正常结束循环的是_。()A、i=5DoLoopUntili0D、i=6Doi=i-2LoopUntili=123、语句Ifx=1Theny=1，下列讲法正确的是_。()A、x=1和y=1均为赋值语句B、x=1和y=l均为关系表达式C、x=1为关系表达式，y=1为赋值语句D、x=1为赋值语句，y=l为关系表达式24、表达式Len(123程序设计ABC)的值是_。()A、10B、14C、20D、1725、在经过中有语句ForI=N1ToN
9、2StepN3，在该循环体内有下列四条语句，其中_会影响循环执行的次数。N1=N1+IN2=N2+N3I=I+N3N3=2*N3()A、B、C、D、26、执行下面的程序，单击窗体后在窗体上显示的结果是_PrivateSubForm_Click()DimStr1AsString,Str2AsStringDimStr3AsString,IAsIntegerStr1=eForI=1To2Str2=UCase(Str1)Str1=Str2&Str1Str3=Str3&Str1Str1=Chr(Asc(Str1)+I)NextIPrintStr3EndSub()A、EeFFC、EEFFD、eeFF27、
10、下列讲法正确的是_。()A、设i=1,x=2,y=2,则x0And(x-y)/i0的结果是TrueB、(7-3-1)Or(7=5)的结果是TrueC、(NotTrueOrTrue)And(TrueOrFalse)的结果是FalseD、a$=Visual,b$=Basic,则a$&b$和a$+b$结果都是VisualBasic28、文本框(Textl)中有选定的文本，执行Textl.SelText=Hello的结果是_。()A、“Hello将替换掉原来选定的文本B、“Hello将插入到原来选定的文本之前C、Textl.SelLength为5D、文本框中只要“Hello29、当一个CheckBox
11、控件的Value属性为2时，表示该控件_。()A、以被选中B、未选中C、当前不可用D、未知30、窗体Form1的名称属性是frm，它的Load事件经过名是_。()A、Form-LoadB、Form_LoadC、frm_LoadD、Me_CmdOK31、在窗体上建立3个文本框：Text1、Text2、Text3，假如在Text1中输入200，在Text2中输入150，则执行下列程序段后，Text3的值为_。DimmAsInteger,nAsIntegerm=Val(Text1)n=Val(Text2)Ifn*m=0ThenExitSubIfm0Text3=mA、200B、150C、100D、50
12、32、DimyAsIntegerm=1DoWhilem=3m=m+1Printm;LoopA、2B、23C、234D、234533、下面程序的输出结果是_。DimiAsInteger,aAsIntegerDoWhileiX是_.()A、算术表达式B、非法表达式C、字符串表达式D、关系表达式36、VisualBasic程序设计时常用的Print、Cls属于_。()A、属性B、打印字库C、方法D、事件37、只能由系统触发的是_事件。()A、ResizeB、DblClickC、TimerD、Paint38、用于除去字符串左侧的空格的函数是_。()A、Rtrim()B、Ltrim()C、LeftTri
13、m()D、Trim()39、下列_是合法的VB变量名。()A、_5aB、我_ABC、5nameD、UseDASF40、下面4个方法中，能够返回字符串的高度值的是_。()A、TextHeightB、TextWidthC、ScaleWidthD、ScaleHeight2、填空题(此题共计40分)1、执行下面的程序段后，s的值为_。s=5Fori=2.6To4.9Step0.6s=s+iNextiprints2、A的绝对值大于等于B同时不等于C的表达式是_(1)_.3、下列程序执行时，从键盘上依次输入123和234，则程序的输出结果是_。DimaAsInteger,bAsIntegera=Input
14、Box(请输入第一个整数,)b=InputBox(请输入第二个整数,)Printa+b4、若一个数的各因子之和正好等于该数本身，则该数称为完全数。如6的因子为1，2，3，其和为6，则6为完全数。编程找出1100之间的所有完全数。完善下列程序。PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsInteger,iAsIntegerFora=2To100_(1)_Forb=2Toa-1IfaModb=0Thenc=b+cEndIfNextbIf_(2)_ThenPrintaEndIfNextaEndSub5、找出110000之间的同构数。所谓
15、同构数，是指此数的平方数的最后几位与该数相等。例如，25的平方为625，25是同构数。完善下列程序。程序代码如下：PrivateSubCommand1_Click()DimiAsInteger,yAsLongForx=1To1000y=x*xIf_(1)_ThenPrintxEndIfNextxEndSub6、下面和程序功能是将一个由字母与数字相混的字符串中选出字符串，并把该字符串在窗体上打印出来，请完善下面程序。OptionExplicitPrivateSubCommand1_Click()DimsAsString,kAsIntegerDimrAsString,iAsInteger,tAsStrings=“aa11bb22Cc33Fori=1ToLen(s)t=_(1)_Ift=“aAndt=“AAndtPrivateSubCommand1_Click()DimtAsInteger,bAsString,kAsIntegert=InputBox(输入一个8)DoUntiltEndSub11、运行下面的程序，就会出现_(1)_，按_(2)_键能够终止程序运行。PrivateSubForm_Click()DimiAsIntegerDoWhilei