四川省自考Visual Basic程序设计复习题答案

复习题PAGE复习题PAGE66《VisualBasic程序设计》复习题一、单项选择题1、以下不属于VisualBasic系统的文件类型是()。 【B 】A．.frm B．.bat C．.vbg D．.vbp2与传统的程序设计语言相比VisualBasic最突出的特点 【D 】A．结构化程序设计B．程序开发环境C．程序调试技术 D．事件驱动编程机3如果要设置窗体的标题栏应设置的属性。 【C】AName BTitle 、Caption DText4若要使命令按钮不可用课设置属性为False来实现。【D】AValue BCancel 、Default DEnabled5下列符是VisualBasic中的合法变量名。 【A】A．x23 B．8xy C．END D．X8[B]6x105VisualBasicC】A、0<=x<105B、0<x<105C、0<=xAndx<105D、0<=xOrx<=1057用于从字符串左边截取字符的函数是 【C 】A、Ltrim() BTrim() C、Left() 、Instr()8、循环结构Fori=1To10Step2的执行次数是 【B 】A10 B5 C、4 、69、当鼠标指针在屏幕上移动时会触发的事件。 【B 】AMouseDown 、MouseMoveC、MouseUp 、MousePress10、在事件过程中，Private表示 【B 】A、此过程可以被任何其它过程调用B、此过程只可以被本窗体模块中的其它过程调用C、此过程不可以被任何其它过程调用D、此过程只可以被本工程中的其它过程调用1建立并打开一个新的顺序文“seqnew.da的正确语句 【A 】AOpen“seqnew.dat”ForOutputAs#1BOpen“seqnew.dat”ForinputAs#1COpen“seqnew.datForBinaryAs#1D、Open“seqnew.dat”ForRandomAs#112、下面的语句用Array函数为数组变量aa=Array(1，245689)针a的声明语句应该 。 【A 】ADima B、DimaAsIntegerC、Dima(9)AsInteger DDima()AsInteger13使用CommonDialog控件方法可显“字体。 【D 】AShowOpen BShowSave 、ShowColor 、ShowFont14、VB6.0中专门为程序代码的书写提供了一窗口。 【A 】A、代码 、属性 、窗体 、立即15、VisualBasic程序中的注释所使用的字符。 【A 】A、' 、: 、\ _16、下列不属于常量的。 【C 】A、12 、“ch”C、abc 1.2317、下列说法错误的。 【C 】A、Stop语句用来暂停程序的执行B、End语句是用来结束一个程序的执行C、Msgbox语句和Msgbox函数都有返回值D、MsgBox语句常用于简单的信息显示18命令按钮的标题文字属性来设置。 【B 】AText 、Caption CName D、名称)19以下不允许用户在程序运行时输入文字的控件。 【D】A、文本框 、组合框C、简单组合框D、下拉式列表框20时钟控件的时间间隔。 【A 】A、以毫秒计、以分钟计C、以秒计 D、以小时计21、假定建立了一个名为Command1的命令按钮数组，则以下说法中错误的是 。 【B A、数组中每个命令按钮的名称(名称属性)均为Command1B、数组中每个命令按钮的标题(Caption属性)都一样C、数组中所有命令按钮可以使用同一个时间过程D、用名称Command1(下标)可以访问数组中的每个命令按钮22.标准模块文件的扩展名（。 【C 】A、.clsB、.frmC、.basD、.rec23.下列逻辑表达式为True（。【C】A、"A"<"9" 、"A">"a" 、"a">"AT"D、"AT"<"AND"24.（方法可将项目添加到组合框中。【D】A、List B、ListIndex AddD、AddItem25.（Check1无效。【B】A、Check1.Value=1 、Check1.Value=C、Check1.Style=1 D、Check1.Style=026.触发文本框Change事件的操作（。 【A 】A、改变文本框的内容B、改变文本框的大小C、文本框获得焦点 D、文本框失去焦点二、判断改错题（“√”并改正错误。1、对于VisualBasic2、在默认情况下，InputBox的返回值是一个字符串【√ 】3、计时器控件的Interval属性设为1000，Enabled属性设为False，则每隔1秒的时间就产生一次Timer事件【× “False”改为4、将组合框的Style属性设置为0时，组合框称为“下拉式组合框，其选可以从下拉列表框的列表项中选择，也可以由用户输入【√ 】5、函数过程必须用关键字Private声明。【×】可以申明为Public。6、块If结构中的Endif可以缺省【× 】不可以7enabled属性。【×】改为Visible三、阅读程序填空题1、要求下面代码段中的循环体执行3次。PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimxasintegerx=1DoWhile 7 x=x+2LoopEndSub2、下列程序用于求S=1+3+32+33+…+310的值。PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimsAsinteger,tAsinteger,iAsintegers= 1 Fori=1to10t= 3^i s=s+tNextiLable1.text=＂s=＂&sEndSub3、下面程序段是将列表框ListBox1Dimi,jAsIntegerFori=0ToListBox1.Items.Count-1Forj=ListBox1.Items.Count-1To i+1 StepIf ListBox1.Items(i)=ListBox1.Items(j)Then ListBox1.Items.RemoveAt(j) EndIfNextjNexti4、输入一个数，判断其为偶数还是奇数，并用消息框显示出结果，如“您输入的数2是偶数”。PrivateSubForm1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMyBase.ClickDimXAsIntegerDimYAsStringX=InputBox("请输入X的值:") IFXMOD2=0THEN是偶数"ELSE是奇" MsgBox("您输入的数"&X&Y)EndSub5、找出被3、5、7除，余数为1的最小的5个正整数。Sub Button1_Click()Handles Button1.ClickDimCountN% , n%CountN=0n=1Don=n+1If_nmod3=1andnmod5=1andnmod7=1_ThenMsgBox(n)countN=CountN+1EndIfLoop whilecountn<5 End Sub6、输入任意长度的字符串，要求将字符顺序倒置。例如，将输入的“ABCDEFG”变换成“GFEDCBA”。Sub Button1_Click()HandlesDima$, I%, c$,d$a=InputBox$(“输入字串”)d=””EndSub

ForI= len(a) c=Mid(a,I,1)d=d& c NextIMsgBox(d)

To1Step -1四、名词解释题1、解释什么是属性,事件和方法。属性：属性是对对象特性的描述，不同的对象有不同的属性。事件：事件是由VisualBasic6.0方法：方法是指控制对象动作行为的方式，是对象包含的函数或过程。2、创建VB应用程序的四个步骤。（在窗体上建立对象设置对象的属性（编写对象事件过程保存和运行程序。3、过程在VisualBasic中，过程分为SUB过程和FUNCTIONSUB定义是平行的，不能在过程中定义其他过程。4、编译错误也称为语法错误，这种错误是由于程序中的语句违反了VisualBasic而引起的。5、什么是形式参数？什么是实际参数？形式参数：就是在定义函数或过程的时候命名的参数。通俗讲就是一个记号。实际参数：就是在执行时，调用函数或过程时，传递给函数或过程的参数。通俗讲就是实际值。五、编程题1、随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生246，输出是642。Dimsum,a,b,cAsInteger,mAsSinglePrivateSubCmd1_Click()Randomizem=Int(Rnd*900+100)Printma=mMod10b=(mMod100)c=m\100sum=a*100+b*10+cPrintsum ）EndSub2、找出2~10