上海市计算机二级vb试题及答案,上海计算机二级VB试题

《上海计算机二级VB试题》由会员分享，可在线阅读，更多相关《上海计算机二级VB试题(12页珍藏版)》请在人人文库网上搜索。

1、2010年市高等学校计算机等级考试试卷二级Visual Basic程序设计(考试时间120分钟一一A卷)一.单选题(共15分，每题1分)AA1. 是合法的变量名。A. X yzB. 123abcC. IntegerD. X Y2. Rnd函数不可能的返回值是。A. 1B. 0C. 0. 0001D. 0. 99993. 要将一个值传递给子过程八的m参数，并通过n参数返回一个结果，子过程定义中正确的是。A. Sub A (ByVaiB. Sub A(ByVaiC. Sub A(ByVaiD. Sub A (ByVaiin!. By Vai n!) m!. ByRef n!) m!, ByRef 。

2、(n+1)!) m+1, ByVai n+2)4能在窗体Forml的标题栏中显示TisimlBssic窗体的语句是。CA. Forml. Name=rT Visual Basic 窗体B. Forml. Title=，Visual Basic 窗体C. Forml. Cap tion=M Visual Basic 窗体D. Forml. Text-nVisualBasic 窗体5在用通用对话框控件建立打开文件对话框时，在文件列表框中只允许显示jpg图像类型的文件, 则Filter属性的正确设置是。【D】A. Picture ( jpg)水.jpgB. Picture ( jpg) (*. jp。

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

4、. Select Cose 语句9有一个名为Menul菜单项为了在运行时使该菜单项失效(变灰)，应使用的语句为贞脚.A. Menul. Enabled=FalseB. Menul Enabled=TrueC. Menul.Visible=TrueD. Menu1. Visible=FalseA10. 要暂时关闭定时器，应把定时器的属性设置为False。A. VisibleB. TimerC. EnabledD. IntervalC11. 在B中，属于方法的是o(AA. SetEocusB. LostFocusC. KeyPressD. SelectedText12.使用DimA(lOO) As。

5、 Single语句声明了数组A, A数组的下标取值围是A. 0 99B. 0 100C 1 99D. 1 10013.列表框Listl中已有5个列表项，要删除列表框Listl最后一项, 确的。A. Listl. Removelteni Listl. ListCount - 1B. Listl RemoveItem 5C. Listl Remove ListlListCount 一 1D. Listl .Remove 514.要向D盘根目录下的名为data, txt的顺序文件中添加容，应先使用o (B语句是正A语句打开文件。15要使文本框输入的字符均显示为札则设置DBA.Openwdata. t。

6、xt ForAppendAs #1B.OpenD：data. txtRFor /ppend As #1C.Openwdata. txt ForOutputAs #1D.OpenD:data. txtFor Output As #1A. Visible属性为*B. Name属性为*C. Text属性为*D. PassWordChar M 性为*二.程序调试题(共20分，每错2.5分，第1题有2处错，第2題3处错，第3题3处错)启动工程文件C:kscxtsl.vbp,程序存在8处错误，请调试改正，并按原文件名和位置 保存。正确结果见样例cxtsl.exe。改错方法：不能修改或重新定义变量，不允许增。

7、加或删除语句，但可以修改语句，所修 改的语句必须在句尾加上注释标记1 * O贞脚.调试改错题1,程序中有2个错误。以下程序的功能是在文本框中输入百分制成绩，单击按钮后，在标签上显示成绩等第， 分优秀、合格和不合格，规定：成绩$80为优秀；60W成绩80为合格；成绩60为 不合格。Private Sub Command 1 Click()Dim d%, s$d = Vai(Textl. Text)10Select Case dCase d=8s = 优秀Case 6 To 7s = 合格Case Elses = 不合格End SelectLabel 1. Text =成绩等第为：M + sEnd。

8、 Sub正确答案：Case Is = 8 或 8 To 10 或&9,10Label 1. Caption 或 Label 1调试改错题2,程序中有3个错误。单击调试改错题2”按钮，在Picturel显示有规律数字字符和字母字符图，见样例。Private Sub Command2_Click()Dim ch$,i%,j%Picturel CisFor i = 1 To 5Ch = Trim(i)For j = 1 To 5输出数字字符Picturel.Print Ch；Next jPicturel.Print Space(3):For j = i To 5输出字母字符Picturel. Pri。

9、nt Chr(65):贞脚.Next jPicturel PrintNext jEnd Sub正确答案：For j = 1 To iPicturel. Print Chr(i+64)；Next i调试改错题3,程序中有3个错误。单击调试改错题3”按钮，自动产生两个5999之间的随机正整数a,b,在Text2显 示较小的数a, Text3显示较大的数b。计算a到b之间的偶数和，结果显示在Label3。 Private Sub Command2_Click()Dim a%, b%9 c%9 i%a = Int(Rnd * 995 + 5)b = Int(Rnd 995 + 5)If a b The。

10、nt = b： a = b： b = tEnd IfTextl = aText2 = bs = 1For i = a To bIf Mod(i,2)=0 Then s = s + iNext iLabe13 = ”Sum二” & sEnd Sub正确答案：t=as=oi mod 2=0三、程序填空题(共30分，每空2 .5分)1.按公式$ = 12+22+3?+ ，求累加和s不超过1000的最大项数n。要求每行显示每个n的累加和如图所示，并将全部结果保存在c:data. txt中。 Private Sub Form_Click()Dim n%, s$n = 1s :(1)Print ” S”D。

11、o Wh订e (2)s = s + n * nPrint nt sn=n+lLoopPrint 累加和不超过1000的最大项数n=H: n - 2程序填立笫1题口叵I冈3456783211121314S-5為 04556091勺 405140 H-00510ff 135912Z3S681O13贞脚.Open c:jg.txt For (3) As #1Print #1, nn=； n - 2Close #1End Sub(3) Output答案：(1) 0(2) s 03.以下程序段的子过程RightShift的功能是：将一维字符数组s中的元素循环右移一 位并输出变动后的结果。Command 。

12、1 Click()事件过程通过键盘输入右移位数，调用子过程RightShift完成对给 定的字符数组元素循环右移，样例为右移3次的结果。贞脚.Private Sub Command 1 Click()Dim i%, m%t a()a = Array(Aw, B, P, D, E F G, IDPrint 原始顺序为：；For i = 0 To UBound(a)Print a(i) & ”；Next iPrint(1)__ = InputBox(-请输入右移位数：n)For i = 1 To mPrint 第& i & 次右移后：；Call(2).Next iEnd SubSub RightS。

13、hift(ByRef s()Dim Last$, i%, n%n =Last = s(n)For i = n To 1 Step -1逐位右移s(i) = (4)Next is(0) = (5)For i = 0 To n显示右移后的结果Print s(i) &:Next iPrintEnd Sub答案：(1) m(2) RightShift(a)(3) UBound(s)(4) s(i - 1)(5) Last四、编程題(35分)1. 参见样例，在Forml 体上放置2个列表框。建立如下菜单：菜单项菜单名备注应用Menul一级菜单产生Menul1二级菜单计算Menu12二级菜单bar分隔线结。

14、束Menu13二级菜单绘图Menu2一级菜单在Fonn2上，放置绘图”和返回” 2个命令按钮。2. 单击产生”菜单项，在列表框Listl中随机生成10个3位正整数。单击“计算”菜单项，在列表框List2中显示Listl各数据项每位数之和。3. 单击绘图”菜单项时，显示窗体2,并隐藏窗体1；单击”结束菜单项时，结束程.页脚.序的运行。4. 在窗体2上单击“绘图”命令按钮，定义窗体坐标系(-1, 60)-(20. -60),绘制坐标 轴线；按公式y = (3 * Sin(x) + Cos(5 * x) * 20绘制直线(OS x W20)。单击“返回”命令按钮则关闭窗体2,显示窗体1。5. 在C： KS目录下将工程保存为bctl.vbp、Forml窗体为bet 11. frm Form 2窗体为 bctl2. frnio贞脚。