上海计算机二级VB试题

1、2010年上海市高等学校计算机等级考试试卷二级VisualBasic程序设计(考试时间120分钟-A卷)1.、单选题(共15分，每题是合法的变量名。A. X_yzC.Integer2.Rnd函数不可能的返回值是A.11分)B.123abeD. X YAAB.0C.0.0001D.0.99993.要将一个值传递给子过程参数，并通过 n参数返回一个结果,子过程定义中正确的BA. Sub A(ByVal m!, ByVal n!)B. Sub A(ByVal m!, ByRef n!)C. Sub A(ByVal m!, ByRef (n+1)!)D. Sub A(ByVal m+1, ByVal

2、n+2)4.能在窗体Form1的标题栏中显示A. Form1. Name="VisualBasieVisualBasie窗体"窗体”的语句是B. Form1.Title="VisualBasieLC1窗体”C. Form1. Caption="VisualBasie窗体”D.Form1.Text="VisualBasie体”5.在用通用对话框控件建立打开文件对话框时,则Filter属性的正确设置是在文件列表框中只允许显示 jpg图像类型的文件, DA.Pieture(.jpg)|*jpgB.Pieture(.jpg)(*jpg)C.图片文件|(

3、.jpg)d.图片(.jpg)l*jpg6.关于多重窗体程序的叙述中，错误的是A.用Hide方法隐藏窗体，用 ShowB.可以根据需要指定启动窗体方法显示窗体C.若各窗体都建立了一个文本框控件( TextBox ),它们的Name不能相同D.若各窗体都有菜单，则各菜单是彼此独立的C7 .按照结构化程序设计的要求,A.If语句C.GoTo语句8 .同一个窗体中，各个对象的A. LoeationC.Size Text语句是非结构化程序设计语句。B.For 语句D.Seleet Case 语句属性值是不同的，它用于唯一识别对象。B. NameD. Seleet Case 语句CB9.有一个名为Men

4、ul菜单项，为了在运行时使该菜单项失效（变灰），应使用的语句为A. Menu1.Enabled=FalseC. Menu1.Visible=TrueA10.要暂时关闭定时器，应把定时器的A. VisibleC. EnabledB. Menu1.Enabled=TrueD. Menu1.Visible=False属性设置为False。B. TimerD. IntervalCl11 .在VB中，属于方法的是 A.SetFocusAB.LostFocusC.KeyPressD.SelectedText12 .使用 Dim A(100) As Single8语句声明了数组 A, A数组的下标取值范围是

5、A.0 99B.0 100C. 1 9913 .列表框List1中已有确的。A.List1.RemoveItemD.1 1005个列表项，要删除列表框List1最后一项,List1.ListCount - 1语句是正AB.List1.RemoveItemC.List1. Remove5List1.ListCount - 1D.List1.Remove514.要向D盘根目录下的名为 开文件。A. Open"data.txt" ForB. Open"D:data.txt" ForC. Open"data.txt" ForD. Open&q

6、uot;D:data.txt" Fordata.txt的顺序文件中添加内容,Append As #1Append As #1Output As #1Output As #1应先使用 语句打B15.要使文本框输入的字符均显示为*,则设置DA.Visible属性为*B.Name属性为*C.Text属性为*D.PassWordChar属性为二、程序调试题（共20分,错）每错2.5分，第1题有2处错，第2题3处错，第3题3处启动工程文件C:kscxts1.vbp,程序存在8处错误，请调试改正，并按原文件名和位置保存。正确Z果见样例cxts1.exe。改错方法：不能修改或重新定义变量，不允许增

7、加或删除语句，但可以修改语句，所修改的语句必须在句尾加上注释标记* *O，调试改铅OPn输入百分制成绩眄成笛等第为：优秀cc加 E c54 53 4 523 q 51 23 4 5B B B B707：iiim=5340B调试改错题3调试改错您2调试改错题1,程序中有2个错误。以下程序的功能是在文本框中输入百分制成绩，单击按钮后，在标签上显示成绩等第，分优秀、合格和不合格，规定：成绩为“优80"；60W成绩80为"合格"；成绩60为"不合格”。PrivateSubCommand1_Click()Dimd%,s$d=Val(Text1.Text)10Sel

8、ectCasedCased=8s="优秀"Case6To7s="合格"CaseElses="不合格"EndSelectLabell.Text="成绩等第为："+sEndSub正确答案：CaseIs=8或8To10或8,9,10Labell.Caption或Labell调试改错题2,程序中有3个错误。单击“调试改错题2”按钮，在Picturel显示有规律数字字符和字母字符图，见样例。PrivateSubCommand2_Click()Dimch$,i%,j%Picturel.CIsFori=1To5Ch=Trim(i

9、)Forj=1To5'输出数字字符Picture1.PrintCh;NextjPicture1.PrintSpace(3);Forj=iTo5'输出字母字符Picturel.PrintChr(65);NextjPicturel.PrintNextjEndSub正确答案：Forj=1ToiPicture1.PrintChr(i+64);Nexti调试改错题3,程序中有3个错误。单击“调试改错题3”按钮，自动产生两个5999之间的随机正整数a,b,在Text2显示较小的数a,Text3显示较大的数b。计算a到b之间的偶数和，结果显示在Label3。PrivateSubCommand

10、2_Click()Dima%,b%,c%,i%a=Int(Rnd*995+5)b=Int(Rnd*995+5)Ifa>bThent=b:a=b:b=tEndIfTextl=aText2=bs=1Fori=aTobIfMod(i,2)=0Thens=s+iNextiLabel3="Sum="&sEndSub正确答案：t=aS=0imod2=0三、程序填空题(共30分，每空2.5分)一.2_2.221.按公式s123n,求累加和s不超过1000的最大项数n。要求每行显示每个n的累加和如图所示，并将全部结果保存在c:data.txt中。在疔填空第牌 pifnirx2

11、5314430555P91714。82049Z3510365115012回口和不建过1 口 E。即最大取敷炉13PrivateSubForm_Click()Dimn%,s$n=1s=(1)Print"N","S"DoWhile(2)s=s+n*nPrintn,sn=n+1LoopPrint"累加和不超过1000的最大项数n="n-2'Open"c:jg.txt"ForAs#1Print#1,"n="n-2Close#1EndSub答案：(1)0(2)s<1

12、000(3)Output2.以下程序段的功能是：在一个字符串变量 并显示是否找到及查找到的结果。样例为查找子串str1中查找子串变量str2中出现的个数,"at"出现的个数为2个。PrivateSubForm_Click()Dimstr1$,str2$,cd1%,cd2%,n%,i%str1=Text1.Textstr2=Text2.Textcd1=Len(str1)cd2=Len(str2)i=1n=0DoWhilei<=(1)IfMid(str1,i,(2)=str2Thenn=n+1EndIf(3)LoopIf(4)ThenLabel3="找到了&qu

13、ot;&n&"个"ElseLabel3="没有找到!EndIfEndSub答案(1)cd1cd1-cd2+1(2)2(3)i=i+1(4)n>03.以下程序段的子过程RightShift的功能是：将一维字符数组s中的元素循环右移一位并输出变动后的结果。完成对Command1_Click()事件过程通过键盘输入右移位数，调用子过程RightShift给定的字符数组元素循环右移，样例为右移3次的结果。PrivateSubCommand1_Click()Dimi%,m%,a()a=Array("A","B",

14、"C","D","E","F","G","H")Print"原始顺序为："Fori=0ToUBound(a)Printa(i)&""NextiPrint=InputBox("请输入右移位数：")Fori=1TomPrint"第"&i&"次右移后："Call(2)NextiEndSubSubRightShift(ByRefs()DimLast$,i%,n%

15、n=(3)Last=s(n)Fori=nTo1Step-1'逐位右移s(i)=(4)Nextis(0)=(5)Fori=0Ton'显示右移后的结果Prints(i)&""NextiPrintEndSub答案：(1)m(2)RightShift(a)(3)UBound(s)(4) s(i-1)(5)Last四、编程题(35分)1.参见样例，在Form1窗体上放置2个列表框。建立如下菜单:菜单项菜单名备注一应用Menu1一级菜单产生Menu11二级菜单计算Menu12二级菜单-bar分隔线结束Menu13二级菜单绘图Menu2一级菜单在Form2上，放置“绘图”和“返回”2个命令按钮。2 .单击“产生”菜单项，在列表框Listl中随机生成10个3位正整数。单击“计算”菜单项，在列表框List2中显示Listl各数据项每位数之和。3