vb习题(含答案).doc

窗体顶端本卷共有3道大题:窗体底端一、单项选择题（50道小题，共50分）1、VB程序中，通常不会产生错误提示的是()。（1分）A、编译错误B、逻辑错误C、运行时错误D、实时错误2、在设计阶段，双击窗体上任一空白处，打开的窗口是()。（1分）A、工程资源管理器窗口B、代码窗口C、工具箱窗口D、属性窗口3、下列说法中，正确的说法是()。（1分）A、窗体名称和该窗体文件名必须一致B、窗体名称和该窗体文件名可以不相同C、窗体名称和该窗体文件名不能使用汉字D、窗体名称不能使用汉字、但该窗体文件名能使用汉字4、VisualBasic有完备的Help联机帮助功能，可以通过按下功能键()得到帮助。（1分）A、F9B、F8C、F1D、F55、以下()控件可作为容器使用。（1分）A、LabelB、PictureBoxC、TextBoxD、Image6、将窗体的BoderStyle属性设置为()可使窗口不显示标题栏。（1分）A、0B、1C、2D、57、文本框没有()属性（1分）A、TextB、NameC、CaptionD、BorderStyle8、以下关于命令按钮的控件属性的描述中，不正确的是()。（1分）A、Default用来设置缺省命令按钮B、ForeColor用来设置前景色C、Font用来设置字体D、Caption用来设置标题9、设置标签Label1的()属性使它不可见。（1分）A、Label1.Visible=0B、Label1.Visible=1C、Label1.Visible=TruD、Label1.Visible=False10、要使时钟控件的Timer事件每隔3秒发生一次，应该把它的Interval属性设置为()。（1分）A、3B、30C、300D、300011、将当前目录下的图形文件Clock.jpg装入图片框Picture1的语句是()。（1分）A、Picture=Clock1.jpgB、Picture=LoadPicture(Clock1.jpg)C、Picture1.Picture=Clock1.jpgD、Picture1.picture=LoadPicture(Clock1.jpg)12、决定一个控件不可见，要将该控件的()属性设置为False。（1分）A、EnablB、VisibleC、WidthD、Text13、以下算术运算符中，优先级最低的是()。（1分）A、B、/C、D、*14、下列表达式中，合法的是()。（1分）A、a0andsqr(a)=chr(a)B、a0orsqr(a)=abs(a)C、a0orsqr(a)=int(sqr(a)D、a0andsqr(a)=fix(sqr(a)19、已知a%=12.8:b!=14.5，则执行Printa%;b!后，输出结果是()。（1分）A、12.814B、1214.5C、12.815D、1314.520、以下()语句可表示50,100之间的随机整数。（1分）A、Rnd*51+49B、Rnd*51+50C、Int(Rnd*51)+49D、Int(Rnd*51)+5021、函数UCase(basic)的值为()。（1分）A、BasicB、basicC、BAsicD、BASIC22、设a=39级台阶，使b=台阶的语句是()。（1分）A、Right(a,4)B、Instr(a,5,4)C、Left(a,5,4)D、mid(a,4,2)23、下列()是不合法的常量。（1分）A、100B、10E02C、100.0D、10e0.524、下列对变量的定义中，定义X为变体型变量的是()。（1分）A、DimXasDoubleB、DimXC、DimX!D、X%=2325、设有如下变量声明：DimTestDateAsDate，为变量TestDate正确赋值的表达方式是()。（1分）A、TextDate=#1/1/2002#B、TestDate=#1/1/2002#C、TextDate=date(1/1/2002)D、TestDate=Format(m/d/yy,1/1/2002)26、在立即窗口中运行以下语句，a=Beijing:b=ShangHai:Printa,b对其输出结果的描述中，正确的是()。（1分）A、Beijing和ShangHai中间没有空格B、Beijing和ShangHai中间有1个空格C、Beijing和ShangHai中间有6个空格D、Beijing和ShangHai前面有7个空格27、语句段A=3:B=5:T=a：a=b:b=t执行后()。（1分）A、a值为3，b值为3B、a值为3，b值为5C、a值为5，b值为5D、a值为5，b值为328、下列语句中，正确的是()。（1分）A、IfxyTheny=x3B、IfxyTheny=3xC、IfxyTheny=x3D、IfxyTheny=x*329、下面程序段Dimx%:x=5:IfxTheny=x+1Elsey=x运行后，y结果是()。（1分）A、5B、6C、1D、显示出错信息30、执行语句a=InputBox(Today,Tomorrow,Yesterday,5,5)，将显示一个输入对话框，在对话框的输入区中显示的信息是()。（1分）A、TodayB、TomorrowC、YesterdayD、531、窗体上有一个命令按钮Command1,编写如下事件过程:PrivateSubCommand1_Click():x=Val(InputBox(x=):y=InputBox(y=):Printx+y:EndSub,单击命令按钮，先后在两个输入对话框中输入123和321，窗体显示的内容是()。（1分）A、444B、123321C、123+321D、出错信息32、执行语句MsgBoxAAA,2,BBB后，所产生的消息框的标题是()。（1分）A、AAAB、BBBC、2D、出错，不能产生消息框33、已知：a=SoftwareandHardware，b=Len(a)，c=Right(a,8)，执行MsgBoxa,b,c后，在弹出的信息框的标题栏中显示的信息是()。（1分）A、SoftwareandHardwareB、SoftwareC、HardwareD、1934、阅读下列程序段：m=0:Fori=1To3:Forj=1Toi:m=m+j:Nextj,i:执行以上的循环后，i和m的值分别为()。（1分）A、36B、310C、46D、41035、窗体上有一个命令按钮Command1，编写如下事件过程：PrivateSubCommand1_Click():a=0:Form=1To3:a=a+1:b=0:Forj=1To3:a=a+1:b=b+2:Nextj:Nextm:Printa,b:EndSub,运行时，单击按钮，输出结果是()。（1分）A、66B、618C、126D、121836、若有k=10，则循环结构DoUntilk=100B、N=0:Do:N=N+1:LoopWhileN100C、N=0:Do:N=N+1:LoopUntilN100D、N=0:DoWhileN100:N=N+1:Loop38、设a为整型变量，不能正确表达数学关系10a15的VB表达式是()。（1分）A、10a10Anda15D、Not(a=15)39、在VisualBasic中，能正确描述条件“xyz”的表达式是()。（1分）A、xyandzB、xyandyzC、xyzD、xyandz40、如果变量nop的值为2，则执行完语句op=Choose(nop,春,夏,秋,冬)后，op的值为()。（1分）A、春B、夏C、秋D、冬41、执行下列语句a=3:x=IIf(a5,int(-5.6),Fix(5.6)后，x的值是()。（1分）A、5B、-5C、6D、-642、结束当前程序运行的语句是()。（1分）A、quitB、exitC、endD、sub43、要从ForNext循环中退出循环，应使用()语句。（1分）A、ExitB、ExitForC、ContinueD、StopLoop44、如下数组声明语句Dima(3,-2To1,5)中数组a包含的元素个数为()。（1分）A、96B、75C、60D、1345、下列语句错误的是()。（1分）A、Privatea(-10To5)B、Dima(N)N为变量C、Dima()AsIntegerD、Dima%(10,-10To-10)46、能使一维数组arr(6)元素个数加1，但保留数组中原有元素的语句是()。（1分）A、ReDimarr(7)B、ReDimPreservearr(7)C、Publicarr(1To7)D、Staticarr(7)47、窗体上有一个命令按钮Command1，编写如下事件过程：PrivateSubCommand1_Click():Dima(10):Forj=6To10:a(j)=j-5:Nextj:Text1.Text=a(0)+a(a(10)/a(6):EndSub，运行时，单击按钮，Text1中显示()。（1分）A、0B、1C、2D、348、以下定义数组或给数组元素赋值的语句中，错误的是()。（1分）A、Dima:a=Array(1,2,3,4,5)B、Dima():a=Array(1,2,3,4,5)C、DimA%():a=Array(1,2,3,4,5)D、DimaAsVariant:a=Array(1,2,3,4,5)49、当工程中有多个窗体时，必须指定启动窗体，其方法是：选择“工程”菜单中的“工程属性”命令，打开“通用”选项卡，在()中选择运行时显示的第一个窗体。（1分）A、工程类型B、工程名称C、工程描述D、启动对象50、在窗体Form1的单击事件中，与Form1.Hide等价的语句是()。（1分）A、Form1.ClsB、Me.HideC、Me.ClsD、Form1.UnLoad二、填空题（6道小题，共30分）1、*输出Fibonacci数列1，1，2，3，5，8，的前20项。*程序代码如下：PrivateSubCommand1_Click()Dims%,a%,b%,c%a=1b=1PrintaPrintbFori=3To20c=a+bPrintca=bb=cNextiEndSub（4分）2、*使用双循环实现倒三角形输出*程序代码如下：PrivateSubCommand1_Click()Fori=1To5PrintTab(25+i);Forj=1To11-2*iPrint*;NextjPrintNextiEndSub（4分）3、*利用数组求裴波那契数列1,1,2,3,5,.，并将其累加起来，直至其和首次大于200时为止。PrivateSubCommand启动_Click()Dima(20)AsInteger,iAsInteger,sAsIntegera(1)=1:a(2)=1Printa(1);a(2);i=2:s=a(1)+a(2)Doi=i+1a(i)=a(i-1)+a(i-2)Printa(i);s=s+a(i)LoopUntils200Print:PrintS=;sEndSub（4分）4、*参照图，完善下列程序。*在窗体的标签1中每隔1秒刷新显示当前系统时间，并且动态改变其前景色和字体大小。5-2.jpgPrivateSubForm_Load()Timer1.Interval=1000EndSubPrivateSubTimer1_Timer()DimzAsIntegerLabel1=Time()z=Int(Rnd*5+1)label1.BackColor=Choose(z,vbRed,vbYellow,vbGreen,vbBlue,vbWhite)Label1.fontsize=Int(Rnd*21+10)EndSub（【下载文件“5-2.jpg”】；）下载方法：在链接上右击打开弹出菜单，选择“目标另存为”。（6分）5、*参照图，完善下列程序。*在窗体的文本框中输入数字，当光标离开文本框的时候判断该数字是否能被3整除，若可以则全选输入的数字并且出现消息框“恭喜”，否则清空文本框并使光标重新回到该文本框中。12-1.jpgPrivateSubText1_LostFocus()IfVal(Text1)Mod3=0ThenText1.SetFocusText1.selstart=0Text1.sellength=Len(Text1)Msgbox恭喜！ElseText1.SetFocusText1=EndIfEndSub（【下载文件“12-1.jpg”】；）下载方法：在链接上右击打开弹出菜单，选择“目标另存为”。（6分）6、*编写一个文本框复制的程序，如图所示。*运行过程：*1.程序启动时，设置上面文本框的最大长度为10，文本框2不允许用户输入。*2.在上面文本框（Text1）填入文本，选中其中部分文本*3.单击清除按钮（Command1），清除两个文本框内容。*4.单击复制按钮（Command2），将上面文本框（Text1）选中文本复制到下面文本框（Text2）x_29.jpgPrivateSubForm_Load()Text1.maxlength=10Text2.locked=TrueEndSubPrivateSubCommand1_Click()Text1=Text2=EndSubPrivateSubCommand2_Click()Text2.Text=Text1.seltextPrint选中文字的长度为：;Text