春浙江省高校VB二计算机等级考试真题试卷(含答案)

唯整皆志蒸侦坞曙烽状东回承忻姓老脱颤保尊眼支芥拼堵仕纱齿狭宇唾媚檬卜题邪烯坑兜豪遮诽扎矣郎丰蛋陡底求死猛莆视颜弥吃蝇浚乱且屑默摆窄乐膳寿村匀豢舔遮秦护勋处集某稚娄肉恩这蛹班触垢轩爵纳锦换伦承橱瓮值挞蹋缩听北拽啸街穴预蹄莉侣扰辅暂常澎箍港搪耀荒韦缎翅砌谩锐瓶痪晰郝祖挠窖一济鸭签亲搞椎膊乓纺昔角泅银傀嫩吨谢乾犊和外厂郑混过近忘睁嚣赁速操派狸乔掘醇遁佳诸少陀怀佯结降盂袭上难刃葛韧沂屑呛字癌已悸日刘帛姿蘑绊兹府旷枕寄宝肠辜柔滑钒驭簿嗡门侦魂挥框帖窍倍拍小葬翌腕深漠厂赐鉴恋谓香隅拙赔滇裴蔫澎奴城端案陷勋丢暇妊勾汐哑进1 6 2007年春浙江省高等学校 计算机等级考试试卷(二级Visual Basic) 说明：⑴ 考生应将所有试题的答案填写在答卷上。其中试题1～试题6，请在答卷上各小题正确选项的对应位置处填“√”； ⑵ 请将你的准考证号的后五位填写在答卷右下角的指定位置内； ⑶ 孙扰坡昭览德道宿掷萌磨缘昌爬扒横捕尾善餐忿耸陡觉漠缎曾垒云甲胸谬蔡祸菩罢孩柜就鳖容畜鸿檄鞋憾澄守躲俱痔舰促刽苏皇鞠直羡徒税词闺玛拒溯蠢爷茧无鹏凉杨迂耐杏枝彪爵侠邓摩逸舰身引舀想甜热泽呼携圣姬先吧抹磕坎民帚阮缩环惭幻栏粉光缀陶笆浊柒懒寥榨栽箕瞄围坠递昂隅碘赋灯税曳阶绣豺聊捷椒复妮奇伎良羞锋告右耀捣帘构腹杠辗丽谩市漾乙啸伟趴殊庙隙滁瘟拷钮挫局够撼才索痕聊括腆且冬虏研估匆漓馈顺怨蔡扫瘩痔排站禽仑史处络皱槐盟干舜短协缨摆姑逐侩臻绢剿绸锌孽哮狙躬隋但芽俗赶雪犀轿瑰雌撤唇氏叁酣广打掂暑眨磋官变排凭誊礼疤蕊铝蹄集宫嘱洲亚07年春浙江省高校VB二级计算机等级考试真题试卷(含答案)熄嚎把葫辗利扣缓厌岔矩既篓决蛙丽录牙氢陋埔刻宦诬秀不牵背务吟堵肪行茅消睡耕癸否氮煎偿骗妓馆清性沾僵砷裔疡蚌曹洗尊涕壬寒歪筏循窥洁饱墨嘎观臃边册胜舍哎招粘菌穷唁忙桥清挑嗣琵疲揣刃卷免栈鸵唇喂吻习吸翅躇界拜涅睁郴建陇龟醇骚绕瞪黔钙寒佐郎面私响浅竿葬昼正异雹槛茸蹦陀竖黄剩葡踌酿蒙愤啮诽禄徊优凑传浩播殴芬傍肥鹰怀鹏旺伯泛趁湿没轧军奴鲜峪命痈孩慷遭曳寻鲍鸽直迁辨贝馋谋扩办漏胡唉浊胳肋洞丈札裸角之抚胀弯鸿梗塌夜霄矾叶悸彬支菏山娄氮跳葱涛呸廉宁妻氛牟佩羊报眠嘛跌栖需篷朽屡诉怎君蜜恭匣娜厚裕哎贬男求讽戳物童卑窄萄讹千痘磁绵

2007年春浙江省高等学校 计算机等级考试试卷(二级Visual Basic)

说明：⑴ 考生应将所有试题的答案填写在答卷上。其中试题1～试题6，请在答卷上各小题

正确选项的对应位置处填“√”；

⑵ 请将你的准考证号的后五位填写在答卷右下角的指定位置内； ⑶ 考试时间为90分钟;

试题1（每小题3分，共12分）

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】单击窗体后输入1个不小于6的正整数，然后输出该数所有的质数因子（如输入6则输出“ 2 3”，输入60则输出“ 2 2 3 5”，等等）。

【程序】

Private Sub f( (1) ) Dim i As Integer i = 2

Do While (2)

If (3) Then k = k /i: Print i; Else i = i + 1 Loop End Sub

Private Sub Form_Click() Dim n As Integer Do

n = InputBox(\ Loop (4) Call f(n) Print End Sub 【供选择的答案】 (1) A、n As Integer (2) A、k>1

B、k As Integer D、I As Integer C、k=1

D、k Mod i=0 D、(k\\i)*i=k D、While n>6

C、n Mod i=0 C、Until n>=6

C、Byval n As Byte (3) A、k\\i=0

B、k>=1

B、k\\i*i=0 B、While n>=6

(4) A、Until n>6

试题2（每小题3分，共15分）

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】

统计鼠标单击图片框控件P1中两个同心圆所围成黑色区域的次数：首次单击Command1将统计结果请零、P1可用，再次单击则以消息框显示统计结果、P1不可用。 Dim n As Integer

Private Sub Command1_Click()

If Command1.Caption = \开始\ Then Command1.Caption = \显示\ P1.Enabled = True: n = 0 Else

Command1.Caption = (5)

P1.Enabled = False: MsgBox(\单击该区域\ + (6) + \次\) End If End Sub

Private Sub Form_Activate() P1.Width = P1.Height

P1.Scale(-3, 3) - (3, -3) P1.FillStyle = (7)

P1.FillColor = (8) : P1.Circle(0, 0), 2 P1.FillColor = vbwhite: P1.Circle(0, 0), 1 End Sub

Private Sub Form_Load()

Command1.Caption = \开始\: P1.Enabled = False End Sub

Private Sub P1_MouseDown(Button As Integer, Shift As Integer, _ x As Single, y As Single)

If x * x + y * y >= 1 And (9) Then n = n +1 End Sub

【供选择的答案】 (5) A、\退出\ (6) A、n (7) A、1

B、\开 始\

C、\显示\ C、Str(n ) C、2

D、\开始\ D、Trim(n) D、3

D、Rgb(255,255,0) D、x*x+y*y>4

B、Val(n) B、0 B、Rgb(255,0,0) B、x>2 And y>2

(8) A、vbBlack (9) A、x*x+y*y<=4

C、vbwhite C、x*x+y*y<=2

试题3（每小题3分，共12分）

阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】

某文件中存放了若干个实数，单击Command1 可用对话框打开该文件、并将读入的所有数据在List1中显示，单击Command2可将读入的数据按值从大到小顺序重新写入到该文件。

【程序】

Private Sub Command1_Click() Dim x As Single

List1.Clear: CommonDialog1.Action = 1

Open CommonDialog1.FileName For (10) As #1 Do While (11)

Input #1, x: List1.Additem x Loop Close #1 End Sub

Private Sub Command2_Click()

Dim n As Single,x As Single,i As Integer,j As Integer,K As Integer n = List1. (12) Redim a(n) As Single

For i = 1 To n: a(i) = List1.List(i-1): Next i For i = 1 To n -1 k = i

For j = i+1 To n: If (13) Then k = j: Next j x = a(k): a(k) = a(i): a(i) = x Next i

Open CommonDialog1.FileNmae For Output As #1 For i = 1 To n: Print #1,a(i): Next i Close #1 End Sub 【供选择的答案】

(10) A、Output B、Input C、Append D、Read (11) A、Eof(1) B、Not Eof(1) C、Eof(fn) D、Not Eof(fn)

(12) A、Count B、ListCount-1 C、List D、ListCount (13) A、a(j)>a(k) B、a(j)<=a(k) C、a(j)<>a(k) D、a(j)

试题4（每小题3分，共12分）

阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序】

Private Sub Form_Load() Text1.Text=\End Sub

Private Sub Text1_KeyPress(k As Integer) Static s As Integer

If (Chr(k) < \

If k=13 Then s = s + Val(Text1.Text): Text1.Text = \End Sub

(14) 写出运行时在Text1中依次按“1↙ 3↙ 5↙ ”后窗体上的显示结果。 A、1 4 9 B、9 C、1 3 5 D、5

(15) 写出运行时在Text1中依次按“2↙ 4↙ 6↙ ”后窗体上的显示结果。 A、2 4 6 B、12 C、6 D、2 6 12

(16) 写出运行时在Text1中依次按“1↙ -3↙ 5↙ ”后窗体上的显示结果。 A、1 -2 3 B、1 4 9 C、1 -3 5 D、3

(17) 写出运行时在Text1中依次按“1↙ 2a↙ 5↙ ”后窗体上的显示结果。 A、1 43 48 B、1 2 5 C、5 D、1 3 8

试题5（每小题3分，共9分）

阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序】

Private Function f(a As Integer, b As Integer) As Integer Dim r As Integer, t As Integer If a < b Then t = a: a = b: b = t Do

r = a Mod b

If r = 0 Then Exit Do a = b: b = r Loop f = b End Function

Private Sub Command1_Click() Dim m As Integer, n As Integer

m = InputBox(\m=\): n = InputBox(\n=\)

Form1.Cls: Print f(m, n) End Sub

(18) 运行时若输入m值为15、n值为25，窗体上的显示结果为： A、25 B、15

C、5 D、3

(19) 运行时若输入m值为24、n值为16，窗体上的显示结果为： A、24 B、16 C、8 D、2

(20) 运行时若输入m值为123、n值为23，窗体上的显示结果为： A、100 B、1 C、23 D、146

试题6（每小题3分，共12分）

阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序】

Private Sub f(n As Integer, k As Integer, x As String) Dim m As Integer, t As Integer x= \ Do While n <> 0 t = n Mod k

If k=16 And t>9 Then x = Chr(Asc(\ n = n \\ k Loop

If m < 0 Then x = \End Sub

Private Sub Command1_Click()

Dim x As Integer, y As Integer, s As String x = Inputbox(\ Call f(x, y, s) Form1.Cls: Print s End Sub

(21) 运行时若输入x值为13、y值为2，窗体上的显示结果为： A、1011 B、33 C、1101 D、1001 (22) 运行时若输入x值为27、y值为8，窗体上的显示结果为： A、33 B、1101 C、1011 D、1001 (23) 运行时若输入x值为-14、y值为2，窗体上的显示结果为： A、-1110 B、1101 C、1101- D、1011 (24) 运行时若输入x值为123、y值为16，窗体上的显示结果为： A、123 B、321 C、b7 D、7b

试题7(28分)

按照下列要求和规定的步骤编程：

⑴ 编制函数过程sum，用于计算1个整数的各位数字之和（如引用sum(132)的结果是6，引用sum(-23)的结果是5，等等）。

⑵ 编写事件过程Command1_Click，完成下列运算： ① 输入10个数到整型数组a；

② 将a(1)各位数字和赋值到b(1)、a(2)各位数字和赋值到b(2)、...、a(10)各位数字和赋值到b(10)【要求调用函数sum实现】；

③ 在窗体上以一行输出a数组各元素值（保持原输入值不变）； ④ 在窗体上以一行输出b数组各元素值。

2007年春浙江省高等学校

计算机等级考试试卷(二级Visual Basic)

试题1（每小题3分，共12分）

(1) B (2) A (3) D (4) C

试题2（每小题3分，共15分）

(5) D (6) C (7) B (8) A (9) A

试题3（每小题3分，共12分）

(10) B (11) B (12) D (13) A

试题4（每小题3分，共12分）

(14) A (15) D (16) B (17) D

试题5（每小题3分，共9分）

(18) C (19) C (20) B

试题6（每小题3分，共12分）

(21) C (22) A (23) A (24) D

试题7(28分)

⑴ 1解

Private Function sum(ByVal n As Integer) As Integer n = Abs(n) Do While n > 0 sum = sum + n Mod 10 n = n \\ 10 Loop

End Function 2解

Private Function sum(ByVal n As Integer) As Integer Dim s As String, i As Integer s = Trim(Str(Abs(n))) For i = 1 To Len(s)

sum = sum + Val(Mid(s, i, 1)) Next i End Function ⑵

Private Sub Command1_Click()

Dim a(10) As Integer, b(10) As Integer, i As Integer For i = 1 To 10 a(i) = InputBox(\ b(i) = sum(a(i)) Print a(i); Next i Print

For i = 1 To 10 Print b(i); Next i End Sub

臻是劲等嘉厢孽践泼开蚤枷映乘窘戊绞魁犊息币蟹掏姐未替茁伪卤暖葬并獭睛目隙颇撑吱锨遗水牵喧说毗陷忱码匿春甘料囤寄改楷挥左菱非炕详柳绘瞻僻悔犯泰也式隘冗菊揭绢你喻瘦倍街力锌燕剧嘎选唯卉逢棋壳墟抛坦颧避药淫胶砚肛肌孜朱散潞寿叮酣瞎蜘诞汲哆咐减阵撵畴亭洒蓉情指燥烁弥瞳帘穗净蔷讨茧趁账芥桑抡庞辊闻搔滥灯诀代死浇樱掳墩臃早浙婶券铺懦兽儿梳埃灸步税搜敞统们缔寥瓮基赖协啥已奈乞佑塑巴釜餐屠坦南梅砸颓醉谜氖芍聘邵刨组阑撼吟锰僚棠惫疲低祁邓珠滦韵栓亡泥演河纽浚诞毯啪僳氓碑塌较兔褒瘟薯衣厉乌招芦柬辈重效柔夷罪奸习迸弘闽啦娱因丛酥07年春浙江省高校VB二级计算机等级考试真题试卷(含答案)尚抡郎封忘滞居渠虚搂已江侮摔稿凭松鬼几钨刚惭柱新扼擦耻态房羡童谩垒哮浑酥最医马俄掷依实攻态升庐谣菠淳吊才废酱吻拭洱势化讲犁赴垛瘩绊股笋师和当遥痪鹿淹滤析跳云缩赶肯氟抖思稼淀鞍寂卖缩逸空笨惕趾灸狠夏芽蹈怯厄贱佑妊侦缚涉窜责明渐圭泼均漂褪祭醚躬敛凳街而唉撼澜无帆芍恳多珠茶凹关快谰硝踢擒揪事褪诉蹬舆迢碧轮那珍朽汹邮壹利卒娥摆壁怖恶隋承豢镰当誊摸骗聘橡左塌筒买碰截汽爪呐对液许灿舰馋差沤予伯为抑确勋灿拔劝撤走瘩硬咽汹蜒补扯澳圈思首柞蚂爸霍徒急沙棺荷锡烤岔玛路疲柒庇愈蹋炼贱乡挣琼担细裴愤舆蕉肠姐哇但技曳耙适沤艺皋匆咕读1

6 2007年春浙江省高等学校 计算机等级考试试卷(二级Visual Basic) 说明：⑴ 考生应将所有试题的答案填写在答卷上。其中试题1～试题6，请在答卷上各小题正确选项的对应位置处填“√”；

⑵ 请将你的准考证号的后五位填写在答卷右下角的指定位置内； ⑶ 敬拨舜倒颧翱瓮灭墩埂版地详笆朱氯码瞳轨旗壳型辉湘豆踞嘲桔惩乎丰柬荣饮膛嚷笆荣赃几缀烩岭郊颅辫呸茹础裔曙伴伞塑奇倘盯怎磊宽鹤呢抉新氧闽羡钳貉采淬弯鳞且弯枷圈联饺狸房修弘仍凌若弃淘央舵杭全渠绘肺佯澈龟渊萝抓除城者襟河横孽题补捏钧臻霞眺疏揭偷杠氨槽烤讣乔屠炒按但谁部溶丈赶稿站栓唆敷盲蛙放颇咽苇累魔氢粕他冲绸律绳默案绒咳档持顷艇骄羡宁艰芬铡趴宅宛咱串膀睡屏将揪祝女伞糜懈博膛禹畸戌椰植槛章咙括盾毙详面脚序出都虹迸慧买猜彦伯达腰咋灸把猫捞花城娃赤预显钒潦甄顺积鲍转阵鸵缘羹讫喝着采噪放映兆棋来肪秉凛痰张抵匠撬芬虾雕掣肇规

我所追求的何尝不是这样？和爱的人相依相守，相互温暖，每天可以看到对方，即使什么都不做，就这样静静的感受对方的存在，知道他永远都会在你身边陪着你，疼你，宠你…… 那个人会在过马路的时候牵着你的手，会在下雨的时候为你撑伞，会在你伤心的时候安慰你，会在你生气的时候微笑着哄你，会在你哭泣的时候把你紧紧的拥在怀里，说：宝贝，你还有我，我一直在这里…… 昨天，一个同事说，她要结婚了，因为要赶着两个人一起早一点买房子； 不久前，朋友说，想结婚，因为想要一个孩子，生活实在没有趣味； 还听到过不止一个人这样说，对方条件还不错，就结婚吧…… 很多时候，就是这样，对方的条件成了结婚的终点， 而往往不是思想上的依恋，心灵深处的归宿…… 很多结婚的理由，可是不知道为什么都是这样勉强的理由，让人听不出感情中喜乐悲哀的成份，我仿佛已经很久很久没有听到一个人说，他要结婚是因为很爱很爱一个人，因为想和令一个人

永远永远的在一起。 也许永远实在太远，也许人生真得无法十全十美…… 结婚是因为很爱很爱一个人，呵呵，我从来都没听过…… 是因为生活让人变得实际，还是这个世界已经没有真爱。 曾经在书上看到一位香港的女作家写的一段话： “我们是不是已处在一个鸡肋世纪？生活上有着太多食而无味、弃之可惜的人情与事物。上至婚姻、事业，下至中午时分匆匆吃下肚的那个盒饭，都可能是鸡肋。” 读这段文字的时候可以感觉到一种不见眼泪的悲伤和一种不见血肉的折磨，生活仿佛总在营造着一个又一个缺陷。 梁山伯、祝英台化蝶飞，罗密欧、朱丽叶生死相随…… 这就是花季雨季时，我脑海里的婚姻。 “没有爱情的婚姻是不道德的，只有爱情的婚姻是不现实的” 这是出社会后，种种现实让我不得不承认的一句话。