2009年上海市高等学校计算机等级考试试卷B+答案

2009年上海市高等学校计算机等级考试试卷+答案二级 VB程序设计 （ B 卷）（本试卷考试时间 120 分钟）一、单选题1. 表达式12 + 8 Mod 5 3 - 1中最先计算的是_。A 12 + 8B 8 Mod 5C 5 3D 3 - 12. 设a=16，b=28，则以下表达式的值为“真”的是_。A a-b0B ab OR b0C Not (a0)D a*bb)And(cd),10,20) 后， x 的值为_ _。5. 若有一名为Menua的菜单项，为了在运行时使该菜单项不可见，应使用的语句是_ _。6. 在程序代码Text1.Text = Visual Basic中，表示对象的是_ _。7. 图像控件Image1要引用图片框控件Picture1中的图像，可使用语句Image1.Picture= _ _ _。三、程序填空1、以下程序的功能是：随机产生10个两位数的正整数，保存在数组a中，现要求计算该数组中所有能被3整除元素的平均值。Dim a(1 To 10) As IntegerDim i%,n%,s%For i = 1 To 10 a(i) = Int( (1) )+10 Print a(i);Next iPrints = 0n = 0For i = 1 To 10 If (2) = 0 Then s = s + a(i) n = n + 1 End IfNext iPrint (3) 2、以下程序的功能是：求2000以内满足如下条件的正整数对：彼此的全部约数之和(本身除外)与另一方相等。例如220与284:220的全部约数(除掉220本身)相加的和是: 1+2+4+5+10+11+20+22+44+55+110=284 284的全部约数(除掉284本身)相加的和是：1+2+4+71+142=220 程序的思想是：对正整数a，调用函数过程sy(a)求解约数之和b，再次调用函数过程sy(b)求出数b的约数之和t，按定义判断a,b是否满足条件。 sy函数过程求n的所有约数(除本身外)之和Function sy (n As Integer) As Integer Dim sum As Integer, i As Integer sum = 0 For i = 1 To _ _ If n Mod i = 0 Then sum = _ _ Next i _ _ = sum End FunctionPrivate Sub Command1_Click() 求2000以内满足条件的正整数对 Dim a As Integer, b As Integer, t As Integer For a = 2 To 2000 b = sy(a) t = _ _ If _ _ And a b Then Print a, b Next aEnd Sub3、以下程序的功能是：在文本框Text1内输入身份证号码，单击命令按钮，检查所输入的号码是否为18位，若正确，从身份证号码中分离出出生日期和性别，计算当前年龄，按图示方式显示结果。Private Sub Command1_Click() Dim sfz, y, ss As String Dim m, d As Integer sfz = Text1.Text If _ _ 18 Then MsgBox 位数不对,请重新输入！ Text1.Text = Text1.SetFocus End If y = Mid( _ _ ) m = Val(Mid(sfz, 11, 2) d = Val(Mid(sfz, 13, 2) Text2.Text = y & 年 & m & 月 & d & 日出生 ss = Mid(sfz, 17, 1) If Val(ss) Mod 2 = 0 Then ss = 女 Else ss = 男 End If Label2.Caption = _ _ & ， 现年 & (Year(Date) - _ _ ) & 岁End Sub四、程序改错题(两小题，共10分，每处2分)启动工程文件C:ksexm2.vbp，程序存在5个错误，请调试改正，并按原文件名和位置保存。正确结果见样例。改错方法：不能修改或重新定义变量，不允许增加或删除语句，不可以改变语句次序，但可以修改语句,所修改的语句必须在句尾加上注释标记 *。1.改错题1 以下程序的功能是：求数列2/1，3/2，5/3，8/5，前12项之和，并在Label内按每行4个显示数列项，最后显示其和。（数列的后一项的分子为前一项的分子与分母之和，后一项的分母为前一项的分子） 程序中有3个错误，请调试改正。Sub Command1_Click() Dim s As Double, i As Integer, n As Single, m As Single lable1.Caption = n = 2 m = 1 s =1 For i = 1 To 12 Label1.Caption = Label1.Caption & n & / & m & + 在Label内显示数列项 If i Mod 4 = 0 Then 每行显示4项，vbCrLf回车换行 Label1.Caption = Label1.Caption & vbCrLf End If s = s + m / n t = m + n m = n n = t Next i Label1.Caption = Label1.Caption & = & Format(s, #.#)End Sub2.改错题2 本程序用字母AI在Picture1控件显示一个三角型（1个A，3个B，5个C，,17个I）。 程序中有2个错误，请调试改正。Sub Command2_Click() Dim n%, m% Picture1.Cls For n = 1 To 10 Picture1.Print Tab(20 - n); For m = 1 To n 产生一行上的字母 Picture1.Print n; Next m Picture1.Print Next nEnd Sub五、编程题编写一个完整的程序，要求如下：1在Form1窗体上放置2个文本框、1个购票命令按钮、2个列表框，其他说明性标签如样例。设置Text2为多行且有滚动条，列表框List1预设置平日普通票、平日优惠票、指定日普通票、指定日优惠票4项数据。按下表建立菜单。菜单标题菜单名称备注预售门票Menu1一级菜单读文件Menu11二级菜单-bar分隔线退出Menu13二级菜单预测Menu2一级菜单建立Form2窗体，窗体上放置时钟控件，预测、累计进场人数和返回3个按钮及3个标签。2单击读文件菜单项，将文件C:kspj.txt中的票价数据读入到列表框List2。说明：若无法读入，可直接赋初值在LIST2，但要扣分；单击List1中的某一票种，列表框List2同步显示相应的票价；在文本框Text1输入数量，单击购票按钮，将票种、数量和金额如样例添加到售票记录文本框Text2中。3单击预测菜单项，显示Form2窗体。选择退出菜单项，结束程序运行。4在Form2窗体中，单击预测按钮，按0.1秒随机产生一个20以内的正整数，模拟