程序设计语言VB习地的题目集含详解

实用标准文案《程序设计语言 VB》课程习题集一、单选题VisualBasic是一种面向（）的程序设计语言。用户事件程序对象2.在VisualBasic6.0 中规定工程文件的扩展名是（ ）。vbpforfrmbas3.VisualBasic6.0 中规定窗体文件的扩展名是（ ）。forfrmvbpbas4.如何使一个标签或按钮控件在运行时不可用（ ）。A.把它的Visible 属性设置成 False精彩文档实用标准文案B.把它的Visible 属性设置成 TrueC.把它的Enabled 属性设置成 FalseD.把它的Enabled 属性设置成 True控件的字体可在属性窗口的（）属性中调整？FontColorTextCaption6.若要将某命令按钮设置为默认命令按钮。则应设置为 True的属性是（ ）。ValueCancelDefaultEnabled在VB中，记录对象数据的是（）。方法事件属性语句在文本框上显示文本的属性是（）。A.Value精彩文档实用标准文案TextPrintEnabledInputBox函数返回值的类型为（）。字符串数值变体数值或字符串（视输入的数据而定）10.设有语句：a=InputBox(" 请输入数值:","输入示例","100") 程序执行后,若从键盘上输入数值20并按回车键,则变量a的值是（）。字符串"20"字符串"120"默认值100数值12011.下列控件中可用于接受用户输入文本，又可用于显示文本的是（） 。A.Label 控件B.TextBox 控件C.Timer 控件D.CommandButton 控件12.语句PRINT "25*4" 的输出结果是（）。精彩文档实用标准文案25*4"100"100出现错误信息只能用来显示字符信息的控件是（）。文本框标签框图片框图像框下列可作为VisualBasic变量名的是（）。A%A4A?xyStemp15.下列哪个符号不能作为 VB中的变量名（）。timeflypass4min4maxR[8]在窗体内声明的变量是（）。精彩文档实用标准文案局部变量模块变量公共变量任意变量语句DimxAsInteger作用是:将x定义为（）变量。单精度型整型布尔型字符型在VB中,用Boolean来表示的数据类型是（）。长整型字符型布尔型单精度型定义常量需要用到的关键字是（）。ConstDimPrivatePublic20.如果要处理 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*/24.判断两个逻辑关系任一满足的逻辑运算是（） 。精彩文档实用标准文案OrAndNotOk25.表达式4+5\6*7/8Mod9 的值是（）。A.4B.5C.6D.726.选拔身高T超过1.7米且体重W小于60公斤的人，表示该条件的布尔表达式为 （）。A.T>=1.7AndW<=60B.T<=1.7OrW>=60C.T>1.7AndW<60D.T>=1.7OrW<6027.VB中下列逻辑表达式书写正确的是（） 。A.a>banda>cB.a>b>cC.a≤bD.a≠12228.设x=4,y=8,z=7 ，表达式 x<yAnd(Noty>z)Orz<x 的值是（ ）。精彩文档实用标准文案1-1TRUEFALSESqr(81)+Fix(3.6)的值是（）。12789把字符串“123”转换为数值123时应该使用的函数是（）。StrValLenLog31.表达式Abs（-3）+int(3.14) 的值为（）。560.146.14Int(Rnd*100)表示的是（）范围内的一个整数。精彩文档实用标准文案[0,100][1,99][0,99][1,100]Len(“Friend”)的值是（）。A.6B.7C.8D.9Int(-3.14)的值是（）。-3-3.14-43.14Right（“banana”,4）的值是（）。babananananaban36.表达式 Mid( “Hello”,2,3)的值是（）。精彩文档实用标准文案“ll”“llo”“ell”“ello”37.语句if3*4>=10thena=1elsea=2 执行后，a的值为（ ）。12101238.语句Ifx=1Theny=1, 下列说法正确的是（ ）。A.x=1 和y=1 均为赋值语句B.x=1 和y=1均为关系表达式C.x=1为关系表达式， y=1 为赋值语句D.x=1 为赋值语句，y=1 为关系表达39.下面程序段中，（）不是把两个数中的大值赋给变量Ｍ ax。Max=IIf(x>y,x,y)Ifx>yThenMax=xElseMax=yMax=x：Ify>=xThenMax=yD.Ify>=xThenMax=y Max=x40.在Select判断结构中，下面的表述中不正确的是（） 。精彩文档实用标准文案A.Case1B.Casea>5C.Case3To6D.Caseis<1041.由"Fori=1To16Step3" 决定的循环结构被执行（ ）次。A.4B.5C.6D.742.Dima(5,5)AsLong 定义的数组元素的个数是（ ）。A.10B.11C.25D.36用于清空数组数据的关键字是（）。EraseLboundUboundRedim44.下列关于dowhile ⋯loop 和do⋯loopwhile 循环执行循环体次数的描述正确的是精彩文档实用标准文案（）。A.dowhile⋯loop循环和do⋯loopwhile循环至少都执行一次B.dowhile⋯loop循环可能不执行，do⋯loopwhile循环至少执行一次C.dowhile⋯loop循环至少执行一次，do⋯loopwhile循环可能不执行D.dowhile⋯loop循环和do⋯loopwhile循环可能都不执行45.For-Next语句属于程序基本结构中的（）。顺序结构循环结构分支结构选择结构下列关于ExitFor的说法，正确的是（）。它可以退出任何类型的循环B.一个循环只能有一个 ExitForC.每个循环必须有 ExitForD.ExitFor 本身是无条件退出循环47.在VisualBasic 代码窗口中,将某一条语句加以注释和说明时 ,应在语句前加（）。,:'?精彩文档实用标准文案48.为了将一个语句写在多行上所使用的行续接符是： （）。&_'：在一个语句内写多条语句时,每个语句之间分隔符号是（）。,；:'50.Function 过程的定义，不必须有的是（ ）。过程的名称虚参EndFunction给过程赋值51.下列过程调用语句中，被调用的过程一定是 Sub子过程的语句是（ ）。Pro1(x)PrintPro2(x)x=Pro3(x)CallPro4(x)精彩文档实用标准文案Sub过程与Function过程最根本的区别是（）。A.Sub过程可以用 Call语句直接使用过程名调用，而 Function 过程不可以B.Function 过程可以有形参， Sub过程不可以C.Sub过程不能返回值，而 Function 过程能返回值D.两种过程参数的传递方式不同53.当拖动滚动条中的滚动块时，将触发滚动条的事件是（） 。MoveSetFocusScrollChange54.列表项选择后得到的选中索引是指（） 。ValueListValueIndexListIndex定时器定时工作所触发的事件是（）。Click()Change()Timer()Load()精彩文档实用标准文案在图片框中加载图形(c:\666.jpg)的方法是（）。Loadpicture("c:\666.jpg")Loadpicture()print("c:\666.jpg")cls以下关于VB列表框的叙述中（）是错误的。A.可通过属性“ Item”，返回列表框中的项目B.可通过属性“ Text”，得到当前列表项中的内容C.可通过属性“ListIndex ”返回当前选中的列表项的索引D.可通过属性“ ListCount ”返回列表框中项目的数目58.为了把焦点移到某个指定控件，所使用的方法是 （）。GetFocusVisibleRefreshSetFocus59.为了隐藏一个窗体，所使用的方法为（） 。LoadShowHideUnLoad精彩文档实用标准文案如果窗体被遮挡，通过调用（）方法，可以将其显示。HideShowUnloadloadVB窗体设计器的主要功能是（）。建立用户界面画图编辑文字编写程序代码窗体的（）方法可以清除窗体上的图形与文本。printclsloadcircle窗体没有（）属性。CaptionTextPictureTop精彩文档实用标准文案64.当一个工程有多个窗体时，其中的启动窗体是（ ）。第一个添加的窗体最后一个添加的窗体启动VB时建立的窗体在工程属性对话框中指定的窗体65.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（） 。工程资源管理器窗口工具箱窗口代码窗口属性窗口66.以下哪种属性或者方法可以重新定义 VB坐标系？（ ）A.ScaleMode 属性B.Scale方法C.DrawWidth 和DrawStyle 属性D.BorderWidth 和BorderStyle 属性指令Circle（2000，3000），2000，QBColor，－3.14/2，－3.14将绘制以下哪种图形？（）圆椭圆扇形精彩文档实用标准文案圆弧68.使用Line方法时，参数 B和F可以组合使用，下列组合中（ ）是不允许的。不使用B和FBB和FF69.执行命令Line（200，200）－step（500，500）后，CurrentX＝（ ）。200500700300在VisualBasic中,以下选项中表示单击事件的是（）。KeyUpClickActivateLoad71.下面不属于键盘事件的是（ ）。KeyUpKeyDownKeyPress精彩文档实用标准文案D.Click72.每当窗体失去焦点时会触发的事件是（） 。ActiveDeactiveLostFocusInitialize73.设在窗体上有一通用对话框控件 Commonialog1 ，通过调用（）语句可以建立“颜色”对话框。Commonialog1.ShowOpenCommonialog1.Action=2Commonialog1.ShowColorCommonialog1.Action=574.用语句Commonialog1.ShowOpen 建立了“打开”对话框以后，要得到用户所选择文件的路径及文件名，应使用 Commonialog1 的（ ）。A.DialogTitle 属性B.FileTitles 属性C.FileName 属性D.InitDir 属性用于显示弹出式菜单的方法名是()。A.ShowOpen精彩文档实用标准文案ShowMenuShowPopupPopupMenu打开菜单编辑器的快捷键是（）。CTRL+FAlt+FCTRL+EAlt+E77.下列叙述中，错误的是（ ）。顺序文件打开后，既可以读又可以写随机文件打开后，既可以读又可以写顺序文件打开后，只能读或者只能写顺序文件和随机文件的打开都使用Open语句VB编程中顺序文件的处理将用到关键字是（）。FileSaveOpenDisk二、填空题1精彩文档实用标准文案PrivateSubCommand1_Click()a=3b=1Fori=1To3f=a+ba=bb=fNextiPrintfEndSub以上程序段运行后， f的结果为 。设有如下通用过程：PublicSubfun(a()AsInteger,xAsInteger)Fori=1To5x=x+a(i)NextEndSub在窗体上画一个名称为 Text1的文本框和一个名称为 Command1 的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()精彩文档实用标准文案Dimarr(5)AsInteger,nAsIntegerFori=1To5arr(i)=2*iNextfunarr,nText1.Text=Str(n)EndSub程序运行后,单击命令按钮 ,则在文本框中显示的内容是 。阅读下列程序段OptionExplicitPrivateSubCommand1_Click()Dimstr1AsStringDimstr2AsStringstr1="ABCDEFG"MySubstr1,str2Printstr2EndSubPrivateSubMySub(ByVal a AsString,b AsString)DimcAsString精彩文档实用标准文案DimiAsIntegerFori=Len(a) To 1Step-1c=c+Mid(a,i,1)Nextb=cEndSub程序运行后，“print”语句的输出结果是 ____。在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()x=Int(Rnd)+6Ifx^2>25Theny=x^2+5x=Int(Rnd)+4Ifx^2<25Theny=x^2x=Int(Rnd)+5Ifx^2=25Theny=x^2-5PrintyEndSub程序运行后，单击命令按钮，其输出结果为 ___。阅读下列程序段PrivateSubCommand3_Click()精彩文档实用标准文案Printpl(3,6)EndSubPublicFunctionpl(xAsSingle,nAsInteger)AsSingleIfn=0Thenpl=1ElseIfnMod2=1Thenpl=x*x+nElsepl=x*x-nEndIfEndIfEndFunction程序运行后，单击该命令按钮，屏幕上显示的结果是 ______。阅读下列程序段PrivateSubCommand2_Click()Fori=1To3x=1Forj=1To3x=3+j精彩文档实用标准文案Fork=1To3x=x+3NextkNextjNextiPrintxEndSub运行程序后，单击命令按钮，输出结果是 。阅读下列程序段PrivateSubCommand1_Click()DimiAsIntegerDimkAsIntegerk=0Fori=0To10k=k+1i=i+kNextPrintk;iEndSub请问其循环体共执行了 次，i的值是 。精彩文档实用标准文案PrivateSubCommand1_Click()DimiAsIntegerDimxAsIntegeri=1x=2Doi=i+1x=x+iLoopUntili>=7Printi,xEndSub单击命令按钮后， i和x的值分别是 、 。87.下面程序运行后， a、b、c、d的结果分别 。PrivateSubCommand1_Click()Dima,b,c,dAsIntegerDoFora=1To2b=b+1Ifa=1Thenb=0c=5精彩文档实用标准文案d=d+2NextaLoopUntild>10Printa,b,c,dEndSub假定有如下的Sub过程：SubS(xAsSingle,yAsSingle)t=xx=t+xy=t-yEndSubPrivateSubCommand2_Click()DimaAsSingle,bAsSinglea=6b=4CallS(a,b)Printa,bEndSub程序运行后，单击命令按钮输出结果为 。精彩文档实用标准文案阅读下列程序段Dima(3,3)AsIntegerForm=1To3Forn=1To3a(m,n)=(m-1)*3+nNextnNextmForm=2To3Forn=1To2Printa(m,n);NextnNextm程序运行后，显示结果为： 。三、综合设计题90.编制程序实现：在窗体上，单击按钮 1，在文本框中动态显示当前时间；单击按钮 2，则停止动态显示；单击按钮 3，清除文本框内容。提示：可用定时器控制时间，用系统函数Now 显示时间（如 Text1.Text=Now ）。编制程序：求出100-200之间所有可以被3整除的数的总和，将结果用消息框显示输出。精彩文档实用标准文案编制程序：利用输入框输入10个不同的整数，将它们从小到大排序，并打印输出。93.编制程序实现：设计在一框架中包含三个复选框，只有当其 1,3选中而2未选中时，才在Text1中显示"Hello"字符。94.编一程序能实现在窗体上打印出如下图所示的图形。AAAAAAAAAAAAAAAABBBBBBBBBBBBBBBB编一程序用于判断一正整数是否为素数。（提示：只能被1和本身整除的正整数称为素数。为了判断一个数n是不是素数，可以将n被2到sqr(n)之间的所有整数除，如果都除不尽，则n就是素数，否则n是非素数。）选用If和Select判断结构中任意一种编写满足下列条件的计税要求的程序：少于1600元，免税；1601-5000元，征2%的税；多于5000元，超过部分征5%的税。97.有a、b、c三个数，编一程序实现通过文本框给a、b赋值；再调用能完成a、b比较大小的子过程，用c将大数回传。要求按值传送a、b。98.编一程序用于求所有的"水仙花数"。所谓"水仙花数"是指一个3位数，其各位数字精彩文档实用标准文案立方和等于该数本身。例如： 153就是一水仙花数，因为 153=13+53+33 。设计一弹出式菜单，用于设置窗体的背景色，背景色包含白色、黄色、红色三种颜色。编写程序实现：输入三角形的三条边a,b,c的值，根据其数值判断能否构成三角形。如果能，则判断三角形是否是直角三角形，若是则计算该直角三角形的面积。提示：判断能否构成三角形的方法是，求最长的一边，判断它的边长是否小于另外两边边长之和；或求最短的一边，判断它的边长是否大于另外两边之差。101.编写程序：通过四个命令按钮 Command1-Command4 ，在图片框 Picture1 内分别实现画点、画线、画圆、擦除等功能。编写程序实现：在窗体上单击按钮1，可通过输入对话框输入两个字符串；单击按钮2，将输入的两个字符串连接为一个字符串，并计算该字符串长度，然后在消息框中显示出来。103.编一程序：用三个文本框分别输入 a、b、c，求一元二次方程 ax2+bx+c=0 的解x1和x2，只包括实根。编一程序：利用输入对话框输入两个正整数，求最大公约数。四、简答题（略）⋯⋯答案精彩文档实用标准文案一、单选题DABCACCBAABABDDBBCA精彩文档实用标准文案ACCBABCADABBCACCCCCD精彩文档实用标准文案BCDABBDCBCBDCDDCAADC精彩文档实用标准文案BABBDCBCDCBDCCCDCAC精彩文档实用标准文案二、填空题1930GFEDCBA203154、147、293、1、5、1212、24、5、7、8三、综合设计题PrivateSubCommand1_Click()Timer1.Interval=5Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=False精彩文档实用标准文案EndSubPrivateSubCommand3_Click()Timer1.Enabled=FalseText1.Text=""EndSubPrivateSubTimer1_Timer()Text1.Text=NowEndSub91.PrivateSubCommand1_Click()Dimi,sAsIntegerFori=100To200IfiMod3=0Thens=s+iNextiMsgBox("100-200 之间所有可以被 3整除的数的总和为： "&Str(s))EndSub92.PrivateSubCommand1_Click()Dima(9),i,j,mAsIntegerFori=0To9a(i)=Val(InputBox(" 第"&i+1&" 个数："))Nexti精彩文档实用标准文案Fori=0To9Forj=i+1To9Ifa(i)>a(j)Thenm=a(i)a(i)=a(j)a(j)=mEndIfNextjNextiFori=0To9Printa(i);NextiEndSubPrivateSubCommand1_Click()IfCheck1.Value=1And Check2.Value=1AndCheck3.Value=0ThenText1.Text="Hello"EndIfEndSubPrivateSubCommand1_Click()Dimi,jAsInteger精彩文档实用标准文案Fori=1To4Forj=1To(2*i-1)Print"A";NextjPrintNextiFori=4To1Step-1Forj=(2*i-1)To1Step-1Print"B";NextjPrintNextiEndSubPrivateSubCommand4_Click()Dimn,k,i,tempAsIntegern=InputBox(" 请输入一个正整数 ")k=Int(Sqr(n))i=2temp=0DoWhilei<=kAndtemp=0精彩文档实用标准文案IfnModi=0Thentemp=1Elsei=i+1EndIfLoopIftemp=0ThenPrintn;" 是一个素数"ElsePrintn;" 不是素数"EndIfEndSubPrivateSubCommand1_Click()Dimn,pAsSinglen=Val(Text1.Text)SelectCasenCaseIs<=1600p=0Case1600To5000p=(n-1600)*0.02精彩文档实用标准文案CaseElsep=5000*0.02+(n-5000)*0.05EndSelectEndSubPrivateSubc1(ByValaAsSingle,ByValbAsSingle,c)Ifa>bThenc=aElsec=bEndSubPrivateSubCommand1_Click()Dima,b,cAsSinglea=Val(Text1.T ext)b=Val(Text2.T ext)Callc1(a,b,c)PrintcEndSubPrivateSubCommand1_Click()Dima,b,c,nAsIntegerForn=100To999a=Int(n/100)b=Int((n-a*100)/10)精彩文档实用标准文案c=n-(a*100+b*10)Ifn=a^3+b^3+c^3ThenPrintn;NextEndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenuMenuAEndIfEndSubPrivateSubB_Click(IndexAsInteger)SelectCaseIndexCase1Form1.BackColor=vbWhiteCase2Form1.BackColor=vbYellowCaseElseForm1.BackColor=vbRedEndSelect精彩文档实用标准文案EndSubPrivateSubCommand1_Click()Dima(2),i,j,mAsIntegerFori=0To2a(i)=Val(InputBox(" 第"&i+1&" 条边为："))NextiFori=0To2Forj=i+1To2Ifa(i)>a(j)Thenm=a(i)a(i)=a(j)a(j