程序设计语言VB-习题集(含答案)汇总

第第24页共24页《程序设计语言VB》课程习题集一、单选题VisualBasic是一种面向（）的程序设计语言。用户事件程序对象在VisualBasic6.0中规定工程文件的扩展名是（。vbpforfrmbasVisualBasic6.0中规定窗体文件的扩展名是（。forfrmvbpbas如何使一个标签或按钮控件在运行时不可用（。把它的Visible属性设置成False把它的Visible属性设置成True把它的Enabled属性设置成False把它的Enabled属性设置成True控件的字体可在属性窗口的（）属性中调整？FontColorTextCaption若要将某命令按钮设置为默认命令按钮。则应设置为True的属性是（。ValueCancelDefaultEnabled在VB中，记录对象数据的是（。方法事件属性语句在文本框上显示文本的属性是（。ValueTextPrintEnabledInputBox函数返回值的类型为（。字符串数值变体数值或字符串（视输入的数据而定）=InputBox(":","","100")若从键盘上输入数值20,则变量a的值是（。"20""120"100120下列控件中可用于接受用户输入文本，又可用于显示文本的是（。Label控件TextBox控件Timer控件CommandButton控件语句PRINT "25*4的输出结果是（A.25*4B."100"C.100D.出现错误信息只能用来显示字符信息的控件是（。文本框标签框图片框图像框下列可作为VisualBasic变量名的是（。A%A4A?xyStemp下列哪个符号不能作为VB中的变量名（。timeflypass4min4maxR[8]在窗体内声明的变量是（。局部变量模块变量公共变量任意变量DimxAsInteger作用是x定义为（）变量。单精度型整型布尔型字符型在VB中用Boolean来表示的数据类型是（。长整型字符型布尔型单精度型定义常量需要用到的关键字是（。ConstDimPrivatePublic如果要处理3.1415类数据，使用的变量类型应该是（。SingleLongIntegerString21.表达式2*3^2+2*8/2+3^2的值为（。27313542数学表达式X^2+3XY对应的VB算术表达式是（。X*2+3X*YX*X+3XYX*X+3*X*YX*X+3*XY在VB语言中，求余运算符是（。％MOD*/判断两个逻辑关系任一满足的逻辑运算是（。OrAndNotOk25.表达式4+5\6*7/8Mod9的值是（。4567选拔身高T超过1.7米且体重W小于60公斤的人，表示该条件的布尔表达式为（A.T>=1.7AndW<=60B.T<=1.7OrW>=60C.T>1.7AndW<60D.T>=1.7OrW<60VB中下列逻辑表达式书写正确的是（。a>banda>ca>b>ca≤bD.a≠122设x=4,y=8,z=7，表达式x<yAnd(Noty>z)Orz<x的值是（ 。1-1TRUEFALSE29.Sqr(81)+Fix(3.6的值是（。1278912”转换为数值123时应该使用的函数是（。StrValLenLog表达式Abs（-+int(3.14的值为（。56C.0.14D.6.14Int(Rnd*100)表示的是（）范围内的一个整数。A.[0,100]B.[1,99]C.[0,99]D.[1,100]Len“Frien”的值是（A.6B.7C.8D.934.Int(-3.14的值是（。A.-3B.-3.14C.-4D.3.14Righbanan”,4）的值是（。babananananaban表达式Mid(“Hell”,2,3的值是（。“ll”“llo”“ell”“ello”语句if3*4>=10thena=1elsea=2执行后的值为（ 。121012语句Ifx=1Then下列说法正确的是（ 。x=1y=1均为赋值语句x=1y=1均为关系表达式x=1为关系表达式，y=1为赋值语句x=1为赋值语句，y=1为关系表达（）a。Max=IIf(x>y,x,y)Ifx>yThenMax=xElseMax=yMax=x：Ify>=xThenMax=yIfy>=xThenMax=y Max=x在Select判断结构中，下面的表述中不正确的是（。Case1Casea>5Case3To6Caseis<10由"Fori=1To16Step决定的循环结构被执行（ ）次。A.4B.5C.6D.7Dima(5,5)AsLong定义的数组元素的个数是（ 。A.10B.11C.25D.36用于清空数组数据的关键字是（。EraseLboundUboundRedim下列关于dowhile…loop和d…loopwhile循环执行循环体次数的描述正确的（。dowhile…loopdo…loopwhile循环至少都执行一次dowhile…loop循环可能不执行，do…loopwhile循环至少执行一次dowhile…loop循环至少执行一次，do…loopwhile循环可能不执行dowhile…loopdo…loopwhile循环可能都不执行For-Next语句属于程序基本结构中的（ 。顺序结构循环结构分支结构选择结构下列关于ExitFor的说法，正确的是（。它可以退出任何类型的循环ExitForExitForExitFor本身是无条件退出循环在VisualBasic应在语句前加（。A.,:'?为了将一个语句写在多行上所使用的行续接符是（。&_'：,每个语句之间分隔符号是（。A.,；:'Function过程的定义，不必须有的是（ 。过程的名称虚参EndFunction给过程赋值下列过程调用语句中，被调用的过程一定是Sub子过程的语句是（ 。Pro1(x)PrintPro2(x)x=Pro3(x)CallPro4(x)Sub过程与Function过程最根本的区别是（。SubCallFunction过程不可以Function过程可以有形参，Sub过程不可以SubFunction过程能返回值两种过程参数的传递方式不同当拖动滚动条中的滚动块时，将触发滚动条的事件是（。MoveSetFocusScrollChange列表项选择后得到的选中索引是指（。ValueListValueIndexListIndex定时器定时工作所触发的事件是（。Click()Change()Timer()Load()(c:\666.jpg的方法是（。Loadpicture("c:\666.jpg")Loadpicture()print("c:\666.jpg")clsVB列表框的叙述中（）是错误的。IteTex可通过属性“ListIndex”返回当前选中的列表项的索引可通过属性“ListCount”返回列表框中项目的数目为了把焦点移到某个指定控件，所使用的方法是（。GetFocusVisibleRefreshSetFocus为了隐藏一个窗体，所使用的方法为（。LoadShowHideUnLoad如果窗体被遮挡，通过调用（）方法，可以将其显示。HideShowUnloadloadVB窗体设计器的主要功能是（。建立用户界面画图编辑文字编写程序代码窗体的（）方法可以清除窗体上的图形与文本。printclsloadcircle窗体没有（）属性。CaptionTextPictureTop当一个工程有多个窗体时，其中的启动窗体是（ 。第一个添加的窗体最后一个添加的窗体VB时建立的窗体在工程属性对话框中指定的窗体在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（。工程资源管理器窗口工具箱窗口代码窗口属性窗口以下哪种属性或者方法可以重新定义VB坐标系？（ ）ScaleMode属性Scale方法DrawWidthDrawStyle属性BorderWidthBorderStyle属性67.指令Circl（200300200QBColo3.14/3.14将绘制以下哪种图形？（ ）圆椭圆扇形圆弧68.使用Line方法时，参数B和F可以组合使用，下列组合中（ ）是不允许的。BFBBFF69.执行命令Line（200，200）－step（500，500）后，CurrentX＝（ 。A.200B.500C.700D.300在VisualBasic中以下选项中表示单击事件的是（。KeyUpClickActivateLoad下面不属于键盘事件的是（。KeyUpKeyDownKeyPressClick每当窗体失去焦点时会触发的事件是（。ActiveDeactiveLostFocusInitialize设在窗体上有一通用对话框控件Commonialog1，通过调用（）对话框。Commonialog1.ShowOpenCommonialog1.Action=2Commonialog1.ShowColorCommonialog1.Action=5用语句Commonialog1.ShowOpen建立了“打开”对话框以后，要得到用户所选择件的路径及文件名，应使用Commonialog1的（ 。DialogTitle属性FileTitles属性FileName属性InitDir属性用于显示弹出式菜单的方法名( )。ShowOpenShowMenuShowPopupPopupMenu打开菜单编辑器的快捷键是（。CTRL+FAlt+FCTRL+EAlt+E下列叙述中，错误的是（ 。顺序文件打开后，既可以读又可以写随机文件打开后，既可以读又可以写顺序文件打开后，只能读或者只能写Open语句VB编程中顺序文件的处理将用到关键字是（。FileSaveOpenDisk二、填空题1PrivateSubCommand1_Click()a=3b=1Fori=1Tof=a+ba=bb=fNextiPrintfEndSub以上程序段运行后的结果为 。设有如下通用过程：PublicSubfun(a()AsInteger,xAsInteger)Fori=1Tox=x+a(i)NextEndSub在窗体上画一个名称为Text1的文本框和一个名称为Command1,:PrivateSubCommand1_Click()Dimarr(5)AsInteger,nAsIntegerFori=1To5arr(i)=2*Nextfunarr,nText1.Text=Str(n)EndSub程序运行,单击命令按则在文本框中显示的内容是 。阅读下列程序段OptionExplicitPrivateSubCommand1_Click()Dimstr1AsStringDimstr2AsStringstr1="ABCDEFG"MySubstr1,str2Printstr2EndSubPrivateSubMySub(ByVala AsString,b AsDimcAsStringDimiAsIntegerFori=Len(a) To 1Stepc=c+Mid(a,i,1)Nextb=cEnd程序运行后prin”语句的输出结果是 。在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()x=Int(Rnd)+6Ifx^2>25Theny=x^2+x=Int(Rnd)+4Ifx^2<25Theny=x^x=Int(Rnd)+5Ifx^2=25Theny=x^2-5PrintyEndSub程序运行后，单击命令按钮，其输出结果为 。阅读下列程序段PrivateSubCommand3_Click()Printpl(3,6)EndSubPublicFunctionpl(xAsSingle,nAsInteger)AsSingleIfn=0Thenpl=1ElseIfnMod2=1pl=x*x+nElsepl=x*x-EndIfEndIfEndFunction程序运行后，单击该命令按钮，屏幕上显示的结果。阅读下列程序段PrivateSubCommand2_Click()Fori=1To3x=1Forj=1Tox=3+jFork=1Tox=x+3NextNextjNextiPrintxEnd运行程序后，单击命令按钮，输出结果是 。阅读下列程序段PrivateSubCommand1_Click()DimiAsIntegerDimkAsk=0Fori=0Tok=k+1i=i+kNextPrintk;iEndSub请问其循环体共执行了 次，i的值是 。PrivateSubCommand1_Click()DimiAsIntegerDimxAsi=1x=2Doi=i+1x=x+LoopUntili>=Printi,xEndSub单击命令按钮后和x的值分别是 、 。下面程序运行后b、cd的结果分别 。PrivateSubCommand1_Click()Dima,b,c,dAsIntegerDoFora=1Tob=b+1Ifa=1Thenb=c=5d=d+NextaLoopUntild>Printa,b,c,dEndSubSub过程：SubS(xAsSingle,yAsSingle)t=xx=t+y=t-yEndSubPrivateSubCommand2_Click()DimaAsSingle,bAsSinglea=6b=4CallS(a,Printa,bEndSub程序运行后，单击命令按钮输出结果为 。Dima(3,3)AsIntegerForm1To3Forn=1To3a(m,n)=(m-1)*3+nNextnNextmForm=2To3Forn=1To2Printa(m,n);NextnNextm程序运行后，显示结果为： 。三、综合设计题编制程序实现：在窗体上，单击按钮1，在文本框中动态显示当前时间；单击按钮3，清除文本框内容。提示：可用定时器控制时间，用系统函数Now显示时间（如Text1.Text=No。编制程序：求出100-2003整除的数的总和，将结果用消息框显示输出。10个不同的整数，将它们从小到大排序，并打印输出。编制程序实现：设计在一框架中包含三个复选框，只有当其1,32才在Text1"Hello"字符。编一程序能实现在窗体上打印出如下图所示的图形。AAAAAAAAAAAAAAAABBBBBBBBBBBBBBBB编一程序用于判断一正整数是否为素数（1素数。为了判断一个数n是不是素数，可以将n2sqr(n)除不尽，则n就是素数，否则n）选用If和Select判断结构中任意一种编写满足下列条件的计税要求的程序1600元，免税；1601-5000元，征2%的税；多于5000元，超过部分征5%的税。abc三个数，编一程序实现通过文本框给ab赋值；再调用能完成ab比较大小的子过程，用c将大数回传。要求按值传送b。3方和等于该数本身。例如：153就是一水仙花数，因为153=13+53+33。编写程序实现：输入三角形的三条边a,b,c如果能，则判断三角形是否是直角三角形，若是则计算该直角三角形的面积。提示：判断能否构成三角形的方法是，求最长的一边，判断它的边长是否小于另外两边边长之和；或求最短的一边，判断它的边长是否大于另外两边之差。Command1-Command4Picture1内分别实现画点、画线、画圆、擦除等功能。编写程序实现：在窗体上单击按钮1，可通过输入对话框输入两个字符串；单击按2示出来。ab、cax2+bx+c=0x1和x2，只包括实根。编一程序：利用输入对话框输入两个正整数，求最大公约数。四、简答题（略）……答案一、单选题DABCACCBAABABDDBBCAACCBABCADABBCACCCCCDBCDABBDCBCBDCDDCAADCBABBDCBCDCBDCCCDCAC二、填空题179.980.3081.GFEDCBA82.2083.384.1585.4、1486.7、2987.3、、51288.12、289.4、、78三、综合设计题PrivateSubCommand1_Click()Timer1.Interval=5Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSubPrivateSubCommand3_Click()Timer1.Enabled=FalseText1.Text=""EndSubPrivateSubTimer1_Timer()Text1.Text=NowEndSubPrivateSubCommand1_Click()Dimi,sAsIntegerFori=100To200IfiMod3=0Thens=s+NextiMsgBox("100-2003&Str(s))EndSubPrivateSubCommand1_Click()Dima(9),i,j,mAsIntegerFori=0To9a(i)第&i1&NextiFori=0To9Forj=i+1To9Ifa(i)>a(j)m=a(i)a(i)=a(j)a(j)=EndIfNextjNextiFori=0ToPrinta(i);NextiEndSubPrivateSubCommand1_Click()IfCheck1.Value=1And Check2.Value=1AndCheck3.Value=0Text1.Text="Hello"EndIfEndSubPrivateSubCommand1_Click()Dimi,jAsFori=1To4Forj=1To(2*i-Print"A";NextjPrintNextiFori=4To1Step-1Forj=(2*i-1)To1StepPrint"B";NextPrintNextiEndPrivateSubCommand4_Click()Dimn,k,i,tempAsIntegern=InputBox("请输入一个正整数")k=Int(Sqr(n))i=2temp=0DoWhilei<=kAndtemp=IfnModi=0Thentemp=1Elsei=i+1EndLoopIftemp=0ThenPrintn;"是一个素数"ElsePrintn;不是素数EndIfEndSubPrivateSubCommand1_Click()Dimn,pAsSinglen=SelectCasenCaseIs<=p=0Case1600To5000p=(n-1600)*0.02CaseElsep=5000*0.02+(n-5000)*0.05EndSelectEndSubPrivateSubc1(ByValaAsSingle,ByValbAsSingle,c)Ifa>bThenc=aElsec=EndSubPrivateSubCommand1_Click()Dima,b,cAsa=Val(Text1.Text)b=Callc1(a,b,c)PrintcEndSubPrivateSubCommand1_Click()Dima,b,c,nAsForn=100To999a=Int(n/100)b=Int((n-a*100)/c=n-(a*100+b*10)Ifn=a^3+b^3+c^3ThenPrintn;NextEndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YSingle)IfButton=2ThenPopupMenuMenuAEndEndSubPrivateSubB_Click(IndexAsInteger)SelectCaseIndexCase1Form1.BackColor=Case2Form1.BackColor=vbYellowCaseElseForm1.BackColor=vbRedEndSelectEndSubPrivateSubCommand1_Click()Dima(2),i,j,mAsIntegerFori=0To2a(i)第&i1&NextiFori=0To2Forj=i+1To2Ifa(i)>a(j)m=a(i)a(i)=a(j)=mEndNextjNextiIfa(0)+a(1)>a(2)ThenIfa(0)^2+a(1)^2=a(2)