浙江省信息技术期末考试试卷及其答案

高中部信息技术试卷

A、① B、② C、③ D、④

24、运行如下Visual Basic程序，单击命令按钮Command1，出现如图所示的出错信息。发生\类型不匹配\错误时所执行的语句是（ ）。 Private Sub Command1_Click() Dim a As Integer, b As Integer

a = 10 '① b = 20 '② Text1.Text = \③ End Sub '④

A、① B、② C、③ D、④

25、在Visual Basic中，有如下程序： Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer Dim d As Integer, z As Integer

a = Val(Text1.Text): b = Val(Text2.Text): c = Val(Text3.Text) d = max(a, b) z = max(d, c)

Text4.Text = Str(d) Text5.Text = Str(z) End Sub

Function max(x As Integer, y As Integer) As Integer If x > y Then max = x Else max = y End Function

运行该程序，在文本框Text1、文本框Text2、文本框Text3中分别输入2、-5、6后，单击命令按钮Command1，文本框Text5中显示的是（ ）。

A、-5 B、2 C、6 D、24

高一信息试卷 第5页（共13页）

高中部信息技术试卷

26、要计算S=1-2+3-4+5??-100以下不正确的程序段是（ ）。

S=0：S1=0：S2=0 For i=1 to 50 S1=s1+2*i-1 S2=s2+2*i Next i S=s1-s2 ③ ④ A、① B、② C、③ D、④

27、下列语句执行后，s的值为（ ）。

For i=1 to 30

If i mod 5=0 then s=s+i i=i+6 end if next i

A、45 B、55 C、65 D、75

28、有如下Visual Basic程序段： k = 1

For j = 2 To 100

If a(j) > a(k) Then k = j Next j x = a(k)

该程序段执行后，变量x中存储的是（ ）。

A、a(1)至a(100)中的最小值 B、a(1)至a(100)中的最大值 C、a(2)至a(100)中的最小值 D、a(2)至a(100)中的最大值

29、在Visual Basic中程序段是计算（ ）公式的。 s=0

For i=1 To 10 t=1

for j=1 to i

t=t*j

next j s=s+t Next i

A、s=1+2+3+4+5+6+7+8+9+10 B、s=1*2*3*4*5*6*7*8*9*10

C、s=1!+2!+3!+4!+5!+6!+7!+8!+9!+10! D、s=1+2*3+3*4+4*5+5*6+6*7+7*8+8*9+9*10

30、阅读下面程序：

Private Sub command1_click() a=val(text1.text) b=val(text2.text)

高一信息试卷 第6页（共13页）

S=0 ：T=1 For i=1 to 100 S=s+i*T T=-T Next i ① S=0 For i=1 to 100 S=s+i*(-1)^(i+1) Next i ② S=0 For i=1 to 100 S=s+i*(-1)^i Next i 高中部信息技术试卷

if a=b then

text3.text=str(a) exit sub end if

do while b<>0 r=a mod b a=b b=r loop

text3.text=str(a)

End Sub

在text1、text2中输入30、6，则text3中的值为( )。 A、1 B、3 C、6 D、9

二、填空题（共40分） 31、（本题6分）有以下几种流程图符号：

A B C D E F ① 输入输出框 ②连接框 ③流程线 ④判断框 ⑤处理框 ⑥开始结束符 A~F六种流程图符号代表的含义依次是 52?1032、（本题3分）将数学表达式S=?xy写成VB表达式为__________。

1?P2 33、（本题3分）闰年条件：能被4整除且不能被100整除或能直接被400整除。写出闰年的VB表达式（年份用变量y） ______ ____。 34、（本题2分）有如下Visual Basic程序段： a = \

b = Mid(a, 2, 4) + \

该程序段运行后，变量b的值为____________。 35、（本题2分）有如下Visual Basic程序段： a = 5

b = Len(\If a > b Then

Label1.Caption = \请重新输入\Else

Label1.Caption = \欢迎光临\End If

该程序段运行后，在标签Label1上显示的是____________。

高一信息试卷 第7页（共13页）

高中部信息技术试卷

36、（本题4分，每空2分）有如下Visual Basic程序段： s = 0 a = 5

For i = 1 To 10 Step 2 a = a + i s = a * i Next i

问：该程序段运行后，

（1）变量i的值是___________。 （2）变量s的值是___________。 37、（本题4分，每空2分）有如下Visual Basic程序段： Dim a As Integer, b As Integer, c As Integer a = 20 b = 0 c = 2

Do While a > b And a > c b = b + 1 c = c + b Loop

问：该程序段运行后，

（1）语句“b=b+1”执行的次数为__________。 （2）变量c的值为____________。 38、（本题4分，每空2分）有如下流程图结构，该流程图中输出的前2个值依次分别是____________、____________。

高一信息试卷 第8页（共13页）