(完整版)浙江省2008年秋二级VB考试试卷及答案

1、1 2008 年秋浙江省高等学校计算机等级考试试卷 (二级 visual basic ) 说明： 考生应将所有试题的答案填写在答卷上。其中试题1试题 6，请在答卷上各小题正确选项的对应位置处填“”； 请将你的准考证号的后五位填写在答卷右下角的指定位置内； 考试时间为90 分钟 ; 试题 1（每小题3 分，共 12 分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】运行时每间隔10 秒钟，以窗体标题的形式显示此时正在上第几节课或是晚餐或是午休时间，等等。【程序】private sub form_load() timer1.interval = (1) end

2、 sub private sub (2) _timer() dim x as single x = (3) + minute(time) / 60 select case x case is 21 form1.caption = over case (4) form1.caption = 第 911 节课 case is 18 form1.caption = 晚餐时间 case is = 14 form1.caption = 第 58 节课 case is 12 form1.caption = 午休时间 case is = 8 form1.caption = 第 14 节课 end selec

3、t end sub 【供选择的答案】(1) a 、10 b、100 c、1000 d、10000 (2) a 、interval b、command1 c、timer1 d、timer (3) a 、hour(now) b、house(time) c、hour(date) d、hour() 2 (4) a 、19;20;21 b、19 to 21 c、19.21 d、is=19 and is= a and ucase(s(i) = z then if (7) then 如果 si-1不是英文字母而si是英 sum = sum + 1 文字母则判定si是一个单词的首字母。 isalpha = t

4、rue end if else (8) end if next i end sub private sub command2_click() label1.caption = 文本中有 & sum & 个单词 end sub 【供选择的答案】(5) a 、option base 1 b、dim sum as integer c、option base 0 d、sum=0 3 (6) a 、redim s(n) as string*1 b、redim s(n) as byte c、dim s(n) as string*1 d、dim s(n) as byte (7) a 、sia

5、lpha b、si=isalpha c、isalpha d、not isalpha (8) a 、isalpha=true b、exit for c、isalpha=false d、 sum=sum-1 试题 3（每小题3 分，共 12 分）阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】如下图所示，在图片框上拖动鼠标后绘制出一个轮廓线为黄色的矩形：鼠标按下、抬起位置分别为其斜对角线顶点，再绘制一个与矩形内接、轮廓线为红色的椭圆。【程序】dim x1 as single, y1 as single private sub picture1_mousedown

6、(button as integer, _ shift as integer, x as single, y as single) (9) end sub private sub picture1_mouseup(button as integer, shift as integer, x as single, y as single) dim x0 as single, y0 as single, b as single picture1.line (x1, y1)-(x, y), (10) x0 = x1 + (x - x1) / 2 计算椭圆中心点坐标 y0 = y1 + (y - y1

7、) / 2 b = abs(y1 - y) / abs(x1 - x) 计算椭圆纵、横轴之比 if (11) then picture1.circle (x0, y0), abs(y1-y)/2,255, , ,b else picture1.circle (x0, y0), abs(x1-x)/2,255, , ,b end if end sub private sub form_load() (12) end sub 4 【供选择的答案】( 9) a、currentx = x: currenty = y b、x = x1: y = y1 c、picture1.pset(x,y),vbyel

8、low d、x1 = x: y1 = y (10) a 、vbyellow,b b、vbyellow,bf c、vbyellow,fill d、vbyellow,fb (11) a 、b 1 b、b 1 c、b = 1 d、b 1 (12) a 、fillstyle = 0 b、fillstyle = true c、fillstyle = 1 d、fillstyle = false 试题 4（每小题3 分，共 12 分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】private sub command1_click() dim a as integer, b

9、 as integer, x as long, i as integer on error goto qq a = inputbox(a=) b = inputbox(b=) x = a while not (a mod x = 0 and b mod x = 0) x = x - 1 wend print x exit sub qq: msgbox 请重新输入 exit sub end sub 【供选择的答案】 (13) 单击 command1 后，依次输入 8 、6 后，显示： a、2 b、24 c、14 d、1 (14) 单击 command1 后，依次输入 28 、16 后，显示： a

10、、44 b、 1 c、 112 d、4 (15) 单击 command1 后，依次输入 3 、5 后，显示： a、15 b、 1 c、 8 d、125 (16) 单击 command1 后，依次输入 4 、32987 后，显示： a、空白 b、1 c、0 d、请重新输入试题 5（每小题3 分，共 12 分）阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】private function f(x() as integer, m as integer) as boolean 5 dim i as integer, j as integer for i = 1 to m if x(i)