VB语言程序设计-4套作业参考答案.pdf

该【VB语言程序设计-4套作业参考答案 】是由【小屁孩】上传分享，文档一共【40】页，该文档可以免费在线阅读，需要了解更多关于【VB语言程序设计-4套作业参考答案 】的内容，可以使用淘豆网的站内搜索功能，选择自己适合的文档，以下文字是截取该文章内的部分文字，如需要获得完整电子版，请下载此文档到您的设备，方便您编辑和打印。:..如果您需要使用本文档,请点击下载按钮下载!第1套您已经通过该套作业,请参看正确答案1、与传统的程序设计语言相比,VisualBasic语言最突出的特点是()。:C您的答案:C2、VisualBasic集成环境的主窗口中不包括()。:C您的答案:C3、VisualBasic窗体设计器的主要功能是()。:A您的答案:A4、下列叙述中正确的是()。:XXX:..如果您需要使用本文档,请点击下载按钮下载!参考答案:C您的答案:C5、为了把窗体上的某个控件变为活动的,应执行的操作是()。:B您的答案:B6、确定一个控件在窗体上的位置的属性是()。:D您的答案:D7、在窗体上面画一个名称为Text1的文本框,然后编写如下的事件过程:PrivateSubText1_KeyPress(KeyAsciiAsInteger)......EndSub若焦点位于文本框中,则能够触发KeyPress事件的操作是()。:D您的答案:D8、为了装入一个VB应用程序,应当()。(.frm)(.vbp)授课:XXX:..如果您需要使用本文档,请点击下载按钮下载!(.bas)、窗体文件和标准模块文件授课:XXX:..如果您需要使用本文档,请点击下载按钮下载!参考答案:B您的答案:B9、当窗体最小化时缩小为一个图标,设置这个图标的属性是()。:B您的答案:B10、为了取消窗体的最大化功能,需要把它的一个属性设置为False,这个属性是()。:D您的答案:D11、决定窗体有无控制菜单的属性是()。:A您的答案:A12、下列操作中不能向工程中添加窗体的是()。“工程”菜单中的“添加窗体”“添加窗体”,在弹出的菜单中选择“添加窗体”,在弹出的菜单中选择“添加”命令,然后在下一级菜单中选择“添加窗体”命令授课:XXX:..如果您需要使用本文档,请点击下载按钮下载!参考答案:C您的答案:C13、当一个工程含有多个窗体时,其中的启动窗体是()。“工程属性”对话框中指定的窗体参考答案:D您的答案:D14、为了在按下Esc键时执行某个命令按钮的事件过程,需要把该按钮的哪个属性设为True()。:C您的答案:C15、用菜单编辑器创建菜单时,如果要在菜单中添加一条分隔线,正确的操作是()。“-”(减号)“-”(减号)“_”(下划线)“_”(下划线)参考答案:A您的答案:A16、在显示菜单时,菜单的哪个属性为True时将用灰色显示该菜单项标题()。:XXX:..如果您需要使用本文档,请点击下载按钮下载!参考答案:C您的答案:C17、使文本框获得焦点的方法是()。:C您的答案:C18、为了使标签框控件覆盖背景,应把BackStyle属性设置为()。:B您的答案:B19、在窗体上画两个文本框(Name属性分别为Text1和Text2)和一个命令按钮(Namemand1),然后编写如下两个事件过程:mand1_Click()a=+()=""=""EndSub程序运行后,在Text1和Text2中分别输入123和321,然后单击命令按钮,则输出结果为()。:XXX:..如果您需要使用本文档,请点击下载按钮下载!:XXX:..如果您需要使用本文档,请点击下载按钮下载!参考答案:C您的答案:C20、当拖动滚动条中的滚动块时,将触发滚动条的事件是()。:C您的答案:C第2套您已经通过该套作业,请参看正确答案1、以下语句Print3+4\5*6/7Mod8的输出结果是()。:B您的答案:B2、下面不是VB的数据类型的是()。:XXX:..如果您需要使用本文档,请点击下载按钮下载!参考答案:B您的答案:B3、下列可作为VB的变量名的是()。*:B您的答案:B4、-06写成普通的十进制数是()。:B您的答案:B5、+19写成普通的十进制数是()。:D您的答案:D6、设a=2,b=3,c=4,d=5,下列表达式Nota<=cOr4*c=b^2Andb<>a+c的值是()。A.-:XXX:..如果您需要使用本文档,请点击下载按钮下载!参考答案:D您的答案:D7、语句Print5*5\5/5的输出结果是()。:B您的答案:B8、语句PrintSgn(-6^2)+Int(-6^2)+Int(6^2)的输出结果是()。A.-.-1D.-72参考答案:C您的答案:C9、以下语句的输出结果是()。a=Sqr(3)PrintFormat(a,"$$####.###")A.$.$$.$1732D.$$:B您的答案:B10、以下程序段的输出结果是()。a=Sqr(3)b=Sqr(2)c=a>bPrintc授课:XXX:..如果您需要使用本文档,请点击下载按钮下载!A.$.$$.$1732D.$$:XXX:..如果您需要使用本文档,请点击下载按钮下载!参考答案:D您的答案:D11、表达式4+5\6*7/8Mod9的值是()。:B您的答案:B12、一个语句如果在下一行继续写,应在本行尾部加符号()。A.,B.:.;参考答案:C您的答案:C13、假定Picture1和Text1分别为图片框和文本框的名称,下列不正确的语句是()。:C您的答案:C14、以下语句的输出结果是()。(Δ表示空格)a=27b=65Printa;:XXX:..如果您需要使用本文档,请点击下载按钮下载!:XXX:..如果您需要使用本文档,请点击下载按钮下载!参考答案:D您的答案:D15、在窗体上画一个命令按钮,然后编写如下事件过程:mand1_Click()DimaAsInteger,bAsIntegera=InputBox("EntertheFirstinteger")b=InputBox("EntertheSecondinteger")Printb+aEndSub程序运行后,单击命令按钮,先后在输入对话框中输入456和123,则输出结果是()。:A您的答案:A16、执行下面的语句后,所产生的消息框的标题是()。a=MsgBox("AAAA",,"BBBB","",5),不能产生消息框参考答案:A您的答案:A授课:XXX:..如果您需要使用本文档,请点击下载按钮下载!17、对用MsgBox显示的消息框,以下叙述中错误的是()。a=MsgBox("AAAA",,"BBBB","",5):D您的答案:D18、假定有如下的窗体事件过程:mand1_Click()a="VisualBasic程序设计"b=Left(a,6)c=Mid(a,8)MsgBoxb,34,cEndSub程序运行后,单击命令按钮,则在弹出的消息框的标题栏中显示的信息是()。:C您的答案:C19、设有语句x=InputBox("输入数值","示例","20")程序运行后,如果从键盘上输入数值10并按回车键,则下列叙述中正确的是()。"10"“输入数值”参考答案:B您的答案:B授课:XXX:..如果您需要使用本文档,请点击下载按钮下载!20、设a=6,则执行x=IIf(a>5,-1,0)后,x的值为()。.-1参考答案:D您的答案:D第3套您已经通过该套作业,请参看正确答案1、设有函数则下列能正确计算该函数值的语句是()。<0Thenr=1ElseIfx>0Thenr=<0Thenr=1ElseIfx>0Thenr=<0Thenr=1Elser==If(x<0,1,2)参考答案:B您的答案:B授课:XXX:..如果您需要使用本文档,请点击下载按钮下载!2、在窗体上画两个名称分别为Label1和Label2的标签,然后编写如下事件过程:PrivateSubForm_Click()x=-5:s=-5SelectCasesCaseIs>0y=x+1CaseIs>=0y=x+2CaseElsey=x+==yEndSub程序运行后,单击窗体,标签Label1和Label2中显示的内容分别是()。A.-5和-2B.-5和-4C.-5和-3D.-5和-5参考答案:A您的答案:A3、设置复选框或单选按钮标题对齐方式的属性是()。:B您的答案:B4、下列程序段的执行结果为()。x=2:y=1授课:XXX:..如果您需要使用本文档,请点击下载按钮下载!Ifx*y<1Theny=y-1Elsey=y+1Printy-x>.-:XXX:..如果您需要使用本文档,请点击下载按钮下载!参考答案:B您的答案:B5、下列程序段的执行结果为()。x=3:y=4Ifx<yThenPrinty;::D您的答案:D6、下列程序的执行结果为()。x=15Ifx>0Thena=1Ifx>10Thena=2Ifx>20Thena=3Ifx>30Thena=:B您的答案:B7、通过改变单选按钮控件的什么属性值,可以改变单选按钮的选取状态()。:XXX:..如果您需要使用本文档,请点击下载按钮下载!参考答案:A您的答案:A8、在窗体上画两个单选按钮,名称分别为Option1和Option2,标题分别为“宋体”和“黑体”;一个复选框,名称为Check1,标题为“粗体”;一个文本框,名称为Text1,Text属性为“改变文字字体”。要求程序运行时,“宋体”单选按钮和“粗体”复选框被选中,则能够实现上述要求的语句序列是()。========1参考答案:D您的答案:D9、下面控件中,用于将对象分组的是()。:D您的答案:D10、下列代码的运行结果是()。If3-2Thena=10ElseIf(10/2)=6Thena=20Elsea=30授课:XXX:..如果您需要使用本文档,请点击下载按钮下载!:XXX:..如果您需要使用本文档,请点击下载按钮下载!参考答案:A您的答案:A11、阅读下面的程序:PrivateSubForm_Click()Dimm,nAsIntegerm=InputBox("请输入M的值")m=Val(m)m1=mn=InputBox("请输入N的值")n=Val(n)n1=nDoWhilen<>0remin=mModnm=nn=reminLoopPrintm1,n1,mEndSub程序运行后,单击窗体,在输入对话框中分别输入16和24,在程序在窗体上的输出结果为()。:XXX:..如果您需要使用本文档,请点击下载按钮下载!参考答案:B您的答案:B12、阅读下面的程序:PrivateSubForm_Click()DimCheck,CounterCheck=TrueCounter=0DoDoWhileCounter<20Counter=Counter+1IfCounter=10ThenCheck=FalseExitDoEndIfLoopLoopUntilCheck=FalsePrintCounter,CheckEndSub程序运行后,单击窗体,标签Label1和Label2中显示的内容分别是()。-:D您的答案:D13、假定有以下循环结构DoUntil条件循环体Loop则正确的描述是()。“条件”是一个为0的常数,则一次循环体也不执行授课:XXX:..如果您需要使用本文档,请点击下载按钮下载!“条件”是一个为0的常数,“条件”是一个不为0的常数,“条件”是否为“真”,至少要执行一次循环体授课:XXX:..如果您需要使用本文档,请点击下载按钮下载!参考答案:B您的答案:B14、执行下面的程序段后,x的值为()。x=5Fori=1To20Step2x=x+i\:B您的答案:B15、在窗体上画一个命令按钮,然后编写如下事件过程:mand1_Click()Fori=1To4x=4Forj=1To3x=3Fork=1To2x=x+6NextkNextjNextiPrintxEndSub程序运行后,单击命令按钮,输出结果是()。:XXX:..如果您需要使用本文档,请点击下载按钮下载!参考答案:B您的答案:B16、在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其mand1),然后编写如下事件过程:mand1_Click()x=0DoWhilex<50x=(x+2)*(x+3)n=n+=Str(n)=Str(x)EndSub程序运行后,单击命令按钮,在两个文本框中显示的值分别为()。:B您的答案:B17、在窗体上画一个命令按钮,mand1。然后编写如下程序:mand1_Click()Fori=1To4Forj=0ToiPrintChr$(65+i);NextjPrintNextiEndSub程序运行后,如果单击命令按钮,则在窗体上显示的内容是()。:XXX:..如果您需要使用本文档,请点击下载按钮下载!:A您的答案:A18、阅读下面的程序:OptionBase1PrivateSubForm_Click()DimArr(4,4)AsIntegerFori=1To4Forj=1To4Arr(i,j)=(i-1)*2+jNextjNextiFori=3To4Forj=3To4PrintArr(j,i);NextjPrintNextiEndSub授课:XXX:..如果您需要使用本文档,请点击下载按钮下载!程序运行后,单击窗体,输出结果是()。:XXX:..如果您需要使用本文档,请点击下载按钮下载!参考答案:C您的答案:C19、用下面的语句所定义的数组的元素个数是()。Dimarr(3To5,-2To2):C您的答案:C20、在窗体上画一个命令按钮,mand1,然后编写如下代码:OptionBase1mand1_Click()DimArr(3)AsIntegerFori=1To3Forj=1To3Arr(j)=Arr(i)+1NextjNextiPrintArr(3)EndSub程序运行后,单击命令按钮,输出结果是()。:XXX:..如果您需要使用本文档,请点击下载按钮下载!参考答案:C您的答案:C第4套您已经通过该套作业,请参看正确答案1、在窗体上画一个名称为List1的列表框,一个名称为Label1的标签框。列表框中显示若干城市的名称,当单击列表框中的某一城市名时,在标签中显示选中城市的名称。下列能正确实现上述功能的程序是()。()=()=()=()=:XXX:..如果您需要使用本文档,请点击下载按钮下载!参考答案:D您的答案:D2、删除列表框中指定的项目所使用的方法为()。:D您的答案:D3、可唯一标志控件数组中某一个控件的属性是()。:B您的答案:B4、阅读下面的程序:FunctionFunc(xAsInteger,yAsInteger)AsIntegerDimnAsIntegerDoWhilen<=4x=x+yn=n+1LoopFunc=xEndFunctionmand1_Click()DimxAsInteger,yAsInteger,nAsInteger,zAsIntegerx=1:y=1Forn=1To6授课:XXX:..如果您需要使用本文档,请点击下载按钮下载!z=Func(x,y)NextnPrintzEndSub程序运行后,单击命令按钮,输出结果是()。:XXX:..如果您需要使用本文档,请点击下载按钮下载!参考答案:D您的答案:D5、阅读下面的程序:FunctionF(aAsInteger)b=0b=b+1c=c+1F=a+b+cEndFunctionmand1_Click()DimaAsIntegera=2Fori=1To3PrintF(a):XXX:..如果您需要使用本文档,请点击下载按钮下载!参考答案:B您的答案:B6、阅读下面的程序:SubsubP(b()AsInteger)Fori=1To4b(i)=2*iNextiEndSubmand1_Click()Dima(1To4)AsIntegera(1)=5:a(2)=6:a(3)=7:a(4)=8subPa()Fori=1To4Printa(i):A您的答案:A7、阅读下面的程序:Functionfunc(nAsInteger)AsIntegerSum=0Fori=1TonSum=Sum+(i+1)*iNextifunc=SumEndFunction授课:XXX:..如果您需要使用本文档,请点击下载按钮下载!mand1_Click()DimaAsIntegera=5s=func(a)PrintsEndSub程序运行后,单击命令按钮,输出结果为()。:XXX:..如果您需要使用本文档,请点击下载按钮下载!参考答案:C您的答案:C8、使用通用对话框控件时,要在打开的对话框的标题栏上显示“保存文件”,应把这4个汉字赋给的属性变量是()。:A您的答案:A9、用Write和Print语句向文件中写入多个数据的差别在于()。;;写入的正数前面没有空格参考答案:C您的答案:C授课:XXX:..如果您需要使用本文档,请点击下载按钮下载!10、以下能判断是否到达文件尾的函数是()。:D您的答案:D11、下面关于顺序文件的描述正确的是()。,:C您的答案:C12、按文件存取方式和结构来区分有()。:A您的答案:A13、执行语句“Print#1,123;"hello"”后,相应的顺序文件内被写入的内容是()。,"hello"."123hello"参考答案:C您的答案:C14、对一个磁盘上的顺序文件进行读操作,打开方式为()。:XXX:..如果您需要使用本文档,请点击下载按钮下载!:XXX:..如果您需要使用本文档,请点击下载按钮下载!参考答案:D您的答案:D14、不在VB启动时的常用控件工具箱中的控件是()。:B您的答案:B16、()。=""=""=LoadPicture("")=LoadPicture("")参考答案:C您的答案:C17、在窗体上有一个标签框控件,名称为LblTime;一个计时器控件,名称为Timer1,要求每一秒在文本框中显示一次当前的时间。程序代码为:PrivateSubTimer1_______()=TimeEndSub在下划线上应填入的内容是()。:XXX:..如果您需要使用本文档,请点击下载按钮下载!参考答案:C您的答案:C18、图像框控件有一个属性,可以自动调整图像框的大小,以适应图像的尺寸,这个属性是()。:B您的答案:B19、关于图片框控件的说法中,错误的是()。