高中部信息技术试卷
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页）
相关推荐：
loading