上海计算机二级VB试卷

上海计算机二级VB试卷2010年上海市高等学校计算机等级考试试卷二级VisualBasic程序设计（考试时间120分钟----A卷）一、单选题(共15分，每题1分)1.是合法的变量名。【A】A.X_yz B.123abc C.Integer D.XY2.Rnd函数不可能的返回值是。 【A】A.1B.0C.0.0001 D.0.99993.要将一个值传递给子过程A的m参数，并通过n参数返回一个结果，子过程定义中正确的是。 【B】A.SubA(ByValm!,ByValn!)B.SubA(ByValm!,ByRefn!)C.SubA(ByValm!,ByRef(n+1)!)D.SubA(ByValm+1,ByValn+2)4.能在窗体Form1的标题栏中显示“VisualBasic窗体”的语句是____________。【C】A.Form1.Name="VisualBasic窗体" B.Form1.Title="VisualBasic窗体"C.Form1.Caption="VisualBasic窗体" D.Form1.Text="VisualBasic窗体"C.SizeText D.SelectCase语句9.有一个名为Menu1菜单项,为了在运行时使该菜单项失效（变灰），应使用的语句为____________。A.Menu1.Enabled=False B.Menu1.Enabled=TrueC.Menu1.Visible=True D.Menu1.Visible=False 【A】10.要暂时关闭定时器，应把定时器的_________属性设置为False。 A.Visible B.Timer C.Enabled D.Interval【C】11.在VB中，属于方法的是。 【A】A.SetFocusB.LostFocusC.KeyPressD.SelectedText12.使用DimA(100)AsSingle语句声明了数组A，A数组的下标取值范围是_________。【B】A.0～99 B.0～100C.1～99 D.1～100 13.列表框List1中已有5个列表项，要删除列表框List1最后一项，__________语句是正确的。 【A】

A.List1.RemoveItemList1.ListCount-1B.List1.RemoveItem5C.List1.RemoveList1.ListCount-1D.List1.Remove514.要向D盘根目录下的名为data.txt的顺序文件中添加内容，应先使用_________语句打开文件。 【B】

A.Open"data.txt"ForAppendAs#1

B.Open"D:\data.txt"ForAppendAs#1

C.Open"data.txt"ForOutputAs#1

D.Open"D:\data.txt"ForOutput15.要使文本框输入的字符均显示为*，则设置___________。【D】A.Visible属性为*B.Name属性为*C.Text属性为*D.PassWordChar属性为*二、程序调试题(共20分，每错2.5分，第1题有2处错，第2题3处错，第3题3处错)启动工程文件C:\ks\cxts1.vbp，程序存在8处错误，请调试改正，并按原文件名和位置保存。正确结果见样例cxts1.exe。改错方法：不能修改或重新定义变量，不允许增加或删除语句，但可以修改语句,所修改的语句必须在句尾加上注释标记'***********。调试改错题1,程序中有2个错误。以下程序的功能是在文本框中输入百分制成绩，单击按钮后，在标签上显示成绩等第，分优秀、合格和不合格，规定：成绩≥80为"优秀"；60≤成绩<80为"合格"；成绩<60为"不合格"。PrivateSubCommand1_Click()Dimd%,s$d=Val(Text1.Text)\10SelectCasedCased>=8s="优秀"Case6To7s="合格"CaseElses="不合格"EndSelectLabel1.Text="成绩等第为："+sEndSub正确答案：CaseIs>=8或8To10或8,9,10Label1.Caption或Label1调试改错题2,程序中有3个错误。单击“调试改错题2”按钮，在Picture1显示有规律数字字符和字母字符图，见样例PrivateSubCommand2_Click()Dimch$,i%,j%Picture1.ClsFori=1To5Ch=Trim(i)Forj=1To5'输出数字字符Picture1.PrintCh;NextjPicture1.PrintSpace(3);Forj=iTo5 '输出字母字符Picture1.PrintChr(65);NextjPicture1.PrintNextj EndSub正确答案：Forj=1ToiPicture1.PrintChr(i+64);Nexti调试改错题3,程序中有3个错误。单击“调试改错题3”按钮，自动产生两个5～999之间的随机正整数a,b，在Text2显示较小的数a，Text3显示较PrivateSubCommand2_Click()Dima%,b%,c%,i%a=Int(Rnd*995+5)b=Int(Rnd*995+5)Ifa>bThent=b:a=b:b=tEndIfText1=aText2=bs=1Fori=aTob IfMod(i,2)=0Thens=s+iNextiLabel3="Sum="&sEndSub正确答案：t=aS=0imod2=0三、程序填空题(共30分，每空2.5分)1．按公式，求累加和s不超过1000的最大项数n。要求每行显示每个n的累加和如图所示，并将全部结果保存在c:\data.txt中。PrivateSubForm_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"For（3）As#1Print#1,"n=";n-2Close#1EndSub答案：（1）0 （2）s<1000 （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="找到了"&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","C","D","E","F","G","H")Print"原始顺序为：";Fori=0ToUBound(a)Printa(i)&"";NextiPrint______(1)________=InputBox("请输入右移位数：")Fori=1TomPrint"第"&i&"次右移后：";Call________(2)__________NextiEndSubSubRightShift(ByRefs())DimLast$,i%,n%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．单击“产生”菜单项，在列表框List1中随机生成10个3位正整数。单击“计算