Visual Basic 程序设计期末考试

VisualBasic程序设计期末考试一、单项选择（共20题，每题2分）.VisualBasic用于开发环境下的应用程序。I单项选择题］*LinuxWindows（正确答乡IOSAndrio.一个工程可以包括多种类型的文件，其中，扩展名为.vbp的文件表示文件［单项选择题］*标准窗体代码工程（正确答案）.包含ActiveX控件的文件扩展名为［单项选择题］*frmbasocx（正确答案）bat.以下选项中都是VisualBasic对象的一组是［单项选择题］*代码、数据、变量CaseElsePrint”输入无效”EndSelectEndSub［填空题］*空1答案:userinput空2答案：i空3答案：3.在购买某物品时，假设所标明的价钱x在下述范围内，所付钱y按对应折扣支付：□PrivateSubForm_Click()Dimx!,y!x=Val(InputBox("输入x的值”))IfTheny=xElselfTheny=0.9*xElselfx<3000Theny=0.8*xElsey=0.7*xEndIfPrintyEndSub［填空题］*空1答案：x<1000空2答案:x<2000.输入x,y,z三个数，按从大到小的次序显示，如下图。□PrivateSubCommand1_Click()Dimx!,y!,z!x=InputBox("inputx")y=InpulBoxC'inputy")z=InpulBoxC'inputz")Print"xyz”Print"排序前"；x;"y;"zIfx<yThent=:x=y:y=tIfx<zThent=x:x=:z=tIfy<zThent=y:y=z:z=tPrint"排序后“；x;"y;…;zEndSub［填空题］*空1答案：X空2答案：Z窗体、控件、字符串菜单、控件、窗体正确答案)常量、变量、表达式5.假设A=30,B=90,C=70tD=80,贝lj表达式A+B>160Or(B*C>200AndNotD>60)的值是o［单项选择题］*TrueFalse确答案)016.关系式-5<X<5所对应的布尔表达式是［单项选择题］*X>5orX>-5-5<X<5X>-5and5<XX>-5andX<5(1.假定窗体的名称为Forml,那么把窗体的标题设置为“VBTest”的语句为［单项选择题］*Forml="VBTest"FormI.Caption="VBTest"Forml.Text=nVBTest,'(7Forml.Name=nVBTest".执行以下程序后，变量c$的值为a$=HVisualBasicProgramming"b$="Quick"c$=b$&UCase(Mid(a$,7,6)&Right(a$,11)［单项选择题］*VisualBAISCProgrammingQuickBasicProgrammingQUICKBasicProgrammingQuickBASICProgramming正推言至）.ViusalBasic程序一般都可以用三种控制结构组合而成。［单项选择题］*循环、分支、递归顺序、循环、嵌套循环、递归、选择顺序、选择、循环正嵌答案）.以下不属于常量的是［单项选择题］*12“ch”abc（H确答案）1.23.以下代码，循环次DimnasintegerDimsasstringForn=ITo50Step5s=Str（n）Nextn［单项选择题］*II10（正确答案）501212.以下可以作为VisualBasic变量名的是（）［单项选择题］*SIN（正确答案）CO1COS（X）x（-l）.表达式5人2Mod25\2A2的值是［单项选择题］*1（正确答案）064.表达式Int（-17.8）的值为（）［单项选择题］*18-17-18（正确答案）-16.表达式Abs（-5）+Lcn（"ABCDE"）的值为（）［单项选择题］*131410（正确答案）1.在一个语句行内写多条语句时，语句之间应该用（）分隔。［单项选择题］*逗号分号顿号冒号正确答案）.a="12345678”,那么表达式Left（a,4）+Mid（a,4,2）的值是.［单项选择题］*123456“123445”（正确答案）123445"1279".表达式Mid（”Beijing2008”,4,4）的值是［单项选择题］*Beijjing（正确答案）inj22008.在代码编辑器中，如果一条语句太长，无法在一行内写下（不包括注释），要折行书写，可以在行末使用续行字符表示下一行是当前行的继续。［单项选择题］*一个下划字符（一）直接回车一个空格加一个下划字符（J正确答案）一个空格加一个连字符（-）.如果将文本框的属性设置为True,那么运行时不能对文本框中的内容进行编辑。［单项选择题］*TabStopLocked（正确答案）MultiLineVisible21.以下程序段能够正确实现条件:“X〈Y,那么A=15,否那么A=15”的是［单项选择题］*AIfX<YThenA=15A=-I5PrintAEndIfBIfX<YThenA=15:PrintAA=-15:PrintAEndIfC（正确答案）IfX<YThenA=15:PrintA臼seA=-15:PrintAEndIfDIfX<YThenA=15Else:A=-15PrintAEndIf22.以下程序段的执行结果为1=0ForG=10To19Step31=1+1NextGPrintI［单项选择题］*4（正确答案）5.以下程序段的执行结果为N=0J=1DoUntilN>3N=N+1J=J+N*（N+1）LoopPrintN;J［单项选择题］*0147321441（正确答案）.以下程序执行的结果是一N=0ForI=1To3ForJ=5To1Step-1N=N+1NextJ,IPrintN;J;I［单项选择题］*12041504（正确答案）1231153125.如果要在文本框中键入字符时，只显示某个字符，如星号（*），应设置文本框的属性。［单项选择题］*CaptionPasswordChar确答案)TextChar二、程序填空(共5题，每题10分).编写程序，计算l+2+3+4+...+100oPrivateSubForm_Click()dimSumAsIntegerFori=To100Sum=+INextIPrintSumEndSub［填空题］*空1答案：1空2答案：Sum.求N!(N为自然数)N!=1x2x3....x(N-1)xNSubForm_Click()dimNasIntegerN=InputBox("EnterN")k=1Fori=ltok=k*NextiprintN;”!=";kEndsub［填空题］*空1答案：N空2答案：i.从键盘上输入数字0-6,分别输出星期日-星期六，如果输入无效，输出提示信息。SubForm_Click()Dimuserinpu