VB复习题及答案

第1页共12页================第一章复习题==================1、“面向对象程序设计”的英文缩写是（D）A．OPPB．POPC．PPOD．OOP2、VisualBasic工程文件的扩展名是（B）A．bmpB．vbpC．frmD．bas3、对象的性质和状态特征称为（C）A．事件B．方法C．属性D．类4、用来标识对象名称的属性是（C）A．CaptionB．ValueC．NameD．Text5、用来标识命令按钮标题的属性是（A）A．CaptionB．ValueC．NameD．Text6、要将当前窗体的标题文字设置为“MIS”，可以使用（A）语句来实现A．Me.Caption=MISB．This.Caption=MISC．Me.PrintMISD．This.PrintMIS================第二章复习题=================8、数学式子10sin25º写成VB表达式是（D）A．10Sin(25)B．10*Sin(25)C．10*Sin25D．10*Sin(25*3.14/180)9、把数值型数据转换为字符串型数据，需要使用（A）函数A．StrB．ValC．AscD．Chr10、模拟方形骰子投掷的表达式是（B）A．Int(Rnd*6)B．Int(Rnd*6+1)C．Int(Rnd*6-1)D．Int(Rnd*7-1)11、表达式Right(“asdf”,2)+Ucase(“as”)的值为（D）A．asasB．asASC．dfasD．dfAS12、语句PrintFormat(12.3456,”00000.00%”)的输出结果是（A）A．01234.56%B．1234.56%C．12.34%D．12.3400%=================第三章复习题=================13、为了使Label控件能自动根据内容调整大小，应设置（A）属性为TrueA．AutoSizeB．CaptionC．FontD．Border14、用于设置或返回文本框内容的属性是（B）A．CaptionB．TextC．NameD．Value15、能够实现p和q的值互换的语句是（C）A．p=q:q=pB．p=t:p=q:q=tC．t=p:p=q:q=tD．t=p:q=t:p=q16、单击命令按钮Command1后，交换文本框Text1和Text2的内容：PrivateSubCommand1_Click()DimcAsStringc=Text1.TextText1.Text=Text2.TextText2.Text=cEndSub17、用文本框Text1输入圆的半径R，单击命令按钮Command1后，计算圆周长L和圆面积S，分别用文本框Text2和文本框Text3输出结果，其中圆周率pi定义为常量。PrivateSubCommand1_Click()第2页共12页DimRAsIntegerDimLAsSingleDimSAsSingleConstPI=3.1415926R=Text1.TextL=2*PI*RS=PI*R*RText2.Text=LText3.Text=SEndSub18、用消息框函数MsgBox()显示变量a与b之和。PrivateSubCommand1_Click()DimaAsIntegerDimbAsIntegera=Val(InputBox(输入a的值))b=Val(InputBox(输入b的值))MsgBox(a=&a&vbCrLf&b=&b&vbCrLf&a+b=&a+b)EndSub==================第四章复习题=================19、当单选按钮被按下时，其Value属性为（C）A．1B．2C．TrueD．False20、在多个选项中可以一个都不选、可以选择一个或者选择多个的情况，应选择（B）控件A．OptionButtonB．CheckBoxC．FrameD．CommandButton21、写出下列程序段所对应的函数表达式DimxAsIntegerx=Val(InputBox(enteraninteger))SelectCasexCaseIs=0y=0CaseIs=10y=5+2*xCaseIs=15y=x-5CaseElsey=1EndSelect22、阅读以下程序，当输入79时，写出程序的输出内容151151051002500xxxxxxy第3页共12页PrivateSubCommand1_Click()DimscoreAsIntegerDimrankAsIntegerDimgradeAsStringDimmsgAsStringmsg=输入成绩score=Val(InputBox(msg))rank=score\10Ifrank=10Orrank=9Thengrade=ExcellentElseIfrank=8Thengrade=GoodElseIfrank=7Thengrade=MediumElseIfrank=6Thengrade=PassElsegrade=FailureEndIfPrintScore=;scorePrintGrade=;gradeEndSub================第五章复习题================23、写出程序运行结果PrivateSubCommand1_Click()Fori=3To6Forj=1To8Step3Printj;NextjPrintNextiEndSub24、写出程序运行结果PrivateSubCommand1_Click()DimaAsIntegerDimbAsIntegera=1第4页共12页b=0Dob=b+a*aa=a+1LoopWhilea0Printa,bEndSub25、计算1+（1+2）+（1+2+3）+（1+2+3+4）+（1+2+3+4+5）的值PrivateSubCommand1_Click()DimiAsIntegerDimjAsIntegerDimSum1AsIntegerDimSum2AsIntegerSum1=0Fori=1To5Sum2=0Forj=1ToiSum2=Sum2+jNextjSum1=Sum1+Sum2NextiPrintSum1EndSub26、计算1-1/2+1/3-1/4+…+1/99-1/100的值PrivateSubCommand1_Click()DimiAsIntegerDimtAsIntegerDimsumAsSinglesum=0t=-1Fori=1To100t=t*-1sum=sum+t*(1/i)NextiPrintsum=;sumEndSub27、计算1+1/1!+1/2!+1/3!+…+1/10!的值PrivateSubCommand1_Click()DimiAsIntegerDimjAsInteger第5页共12页DimsumAsDoubleDimFactAsDoublesum=1Fori=1To10Fact=1Forj=1ToiFact=Fact*jNextjsum=sum+1/FactNextiPrintsum=;sumEndSub28、窗体上控件及其属性设置见下表。程序运行后，自动在组合框Combo1中添加五个项目：Beijing、Shanghai、Guangzhou、Chongqing、Shenyang。当在组合框Combo1中输入一个新的项目后按回车键（Ascii码为13）时，如果输入的项目在组合框Combo1的列表中不存在，则自动添加到组合框Combo1的列表中，并在Label2中提示Theitemissuccessfullyadded.；如果输入的项目在组合框Combo1的列表中已经存在，则在Label2中提示Theitemisalreadyexisting.。控件名属性属性值组合框（Combo1）NameTextStyleCombo1BeijingDropdownCombo标签（Label1）AutoSizeCaptionNameTrueCityNameLabel1标签（Label2）AutoSizeNameTrueLabel2PrivateSubCombo1_KeyPress(KeyAsciiAsInteger)DimiAsIntegerIfKeyAscii=13ThenFori=0ToCombo1.ListCount-1IfCombo1.Text=Combo1.List(i)ThenLabel2.Caption=Theitemisalreadyexisting.ExitSubEndIfNextiCombo1.AddItemCombo1.TextLabel2.Caption=Theitemissuccessfullyadded.EndIfEndSub第6页共12页PrivateSubForm_Load()Combo1.AddItemBeijingCombo1.AddItemShanghaiCombo1.AddItemGuangzhouCombo1.AddItemChongqingCombo1.AddItemShenyangEndSub29、窗体上控件及其属性设置见下表。程序运行后，把1-100之间能被7整除的数添加到列表框List1中。单击“计算”按钮，则对List1中的数进行累加求和，并在文本框Text1中显示计算结果。控件名属性属性值列表框（List1）NameList1文本框（Text1）NameText1命令按钮（Command1）NameCaptionCommand1计算PrivateSubForm_Load()DimiAsIntegerFori=1To100IfiMod7=0ThenList1.AddItemiEndIfNextiEndSubPrivateSubCommand1_Click()DimsumAsIntegerDimiAsIntegersum=0Fori=0ToList1.ListCount-1sum=sum+List1.List(i)NextiText1.Text=sumEndSub30、计算出1000之内的完数（完数定义为某个数恰好等于它的因子之和）。PrivateSubCommand1_Click()DimiAsIntegerDimjAsIntegerDimintSumAsIntegerFori=1To1000intSum=0第7页共12页Forj=1ToInt(i/2)IfiModj=0ThenintSum=intSum+jNextjIfintSum=iThenPrintiNextiEndSub31、打印九九乘法表PrivateSubCommand1_Click()DimiAsIntegerDimjAsIntegerFori=1To9Forj=1ToiPrintj;x;i;=;i*j;NextjPrintNextiEndSub32、求两个正整数m和n的最大公约数和最小公倍数PrivateSubCommand1_Click()DimmAsIntegerDimnAsIntegerDimaAsIntegerDimbAsIntegerDimrAsIntegerm=Val(InputBox(Pleaseinputm:))n=Val(InputBox(Pleaseinputn:))a=mb=nDor=aModba=bb=rLoopUntilr=0Printm;和;n;的最大公约数是;aPrintm;和;n;的最小公倍数是;m*n/aEndSub33、求出100-1000之间的水仙花数（水仙花数定义为某个数各位数字的立方之和等于该数）PrivateSubCommand1_Click()DimiAsIntegerDimjAsInteger第8页共12页DimsumAsLongFori=100To1000sum=0Forj=1ToLen(Str(i))sum=sum+Val(Mid(i,j,1))^3Nextj