第一部分
一、
1 2 3 4 5 6 7 8 9 10
C D B B C C A B D C
二、
① 18 ② 循环结构
2、
① b*b-4*a*c ②(-b - Sqr(d)) / (2 * a) ③d=0 ④””
⑤无实根
3、
①Caption ②0 ③s=s+i
第二部分
二、
Private Sub Command5_Click()
If Label1.Caption = Command1.Caption Then
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End If
If Label1.Caption = Command2.Caption Then
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End If
If Label1.Caption = Command3.Caption Then
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End If
If Label1.Caption = Command4.Caption Then
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End If
End Sub
[说明] 1、考试分为笔试和上机操作考试，笔试为60分，操作考试40分，共100分。 2、60分为及格分数。
第一部分
本题有10小题，每小题3分，共30分。
本题有3小题，其中第1小题8分，第2小题10分，第3小题12分，共30分。
第1题有2小题，每小题4分，共8分。
第2题有5小题，每小题3分，共10分。
第3题有3小题，每小题4分，共12分。
第二部分
本题共6分
每一个属性值设置各2分。
本题共28分
Private Sub Command5_Click()
If Label1.Caption = Command1.Caption Then //每个if语句格式正确2分
Text3.Text = Val(Text1.Text) + Val(Text2.Text) //每个条件表达式正确2分
End If
If Label1.Caption = Command2.Caption Then
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End If
If Label1.Caption = Command3.Caption Then
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End If
If Label1.Caption = Command4.Caption Then
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End If
End Sub
//每个赋值语句正确3分，写出相应的运算符或者Val()函数得2分
本题共6分
工程文件、窗体文件、可执行文件各2分。
初中信息技术（九年级） 试题卷
说明：试卷共分二部分。第一部分为笔试试题，包括单项选择题与综合题，测试时间为25分钟，满分60分。第二部分为上机操作题，测试时间为15分钟，满分为40分。
第一部分：笔试试题（60分）
一、选择题（本题有10小题，每小题3分，共30分）
1.在条件选择语句If …… Else If …… Else If …… End If中，当If结构内有多个条件都为True时，则( )
A.VB依次执行条件为True的后面的语句块
B.VB执行第一个为True的条件后面的语句块
C.VB执行最后一个为True的条件后面的语句块
D.VB执行任一个为True的条件后面的语句块
2.在vb中，x+y小于10且x-y大于5的逻辑表达式是（ ）
A.x+y<10 or x-y>5 B.(x+y<10) : (x-y)>5
C.x+y<10; x-y>5 D.x+y<10 and x-y>5
3.已知x=4，则vb表达式Sqr(x)的值是（ ）
A.1 B.2 C.3 D.4
4.有一把锁和一串钥匙（共有10把钥匙，其中配套的钥匙有若干把），怎样找出能开这把锁的所有钥匙？设计的算法是：一把一把钥匙尝试开锁，开锁后将能开的钥匙做好标记，最后有标记的钥匙就是能开锁的钥匙，此算法属于
A.解析算法 B.枚举算法 C.递归算法 D.排序算法
5.在Visual Basic中，用变量p存储数值3.1415，变量p的数据类型应定义为
A.Boolean B.Integer C.Single D.String
6.在Visual Basic中，语句Soft.Text="QQ2015"中的Soft是
A.属性名 B.属性值 C.对象名 D.窗体名
7.在Visual Basic中，如果给变量a、b都赋值为3，则下列语句正确的是
A.a=3:b=3 B.a=b=3 C.a=3,b=3 ?D.a=3;b=3
8.小明用计算机解决数值交换问题时经历了若干阶段，其中设计算法属于
“分析问题确定要用计算机做什么”阶段
“寻找解决问题的途径和方法”阶段
“用计算机进行处理”阶段
“运行调试”阶段
9.下列关于算法的描述，正确的是
描述算法的方法只能是流程图
算法过程要一步一步执行，每一步执行的操作必须确切，不能含混不清，而且经过有限步或无限步后能得出结果
同一种算法只能用一种程序语言来实现
算法是描述解决问题的方法和步骤
10.在VB中，对于语句If I=1 Then J=1 else J=2，下列说法正确的是
A.I=1 和 J=1 都是赋值语句
B.J=1 和 J=2 都是关系表达式
C.I=1为关系表达式，J=1为赋值语句
D.J=1为赋值语句，J=2为关系表达式
二、综合题（本题共3小题，其中第1小题8分，第2小题10分，第3小题12分）
1.
??
?
?
?
t←0:i←2
i<=6??
i←i+2
t←t+i
输出t
开始?
结束
Y?
N
?
（1）上面流程图执行后，输出的变量t的结果是 ①
（2）上面的流程图表示的是程序的哪种结构？ ②
2.变量a，b，c分别保存一元二次方程的二次项、一次项系数和常数项（其中a≠0），变量x1和x2分别保存方程的两个根。完善下列程序，使程序运行时能根据方程的a，b，c值计算根并输出相应信息。
d＝ ①
if d>0 then
x1= (-b + Sqr(d)) / (2 * a)
x2= ②
text4.text=str(x1)
text5.text=str(x2)
label6.caption=〝有两个不同的实数根〞
else
if ③ then
x1＝(-b)/(2*a)
x2=x1
text4.text=str(x1)
text5.text=str(x2)
label6.caption=〝有两个相同的实数根〞
else
text4.text= ④
text5.text=""
label6.caption= ⑤
end if
end if
3.计算1到100之和，欲设计的界面如下：
设置部分对象及其属性如下表：
对象名 属性名 属性
Command1 ① 计算
编写代码：
Private Sub Command1_Click()
Dim i, s As Integer
s = ②
For i = 0 To 100 Step 1
③
Next i
Label2.Caption = Str(s)
End Sub
第二部分：上机操作题（40分）
打开“运算器.vbp”，该程序实现基本的运算，使用方法：在Text1和Text2中输入要计算的数字，单击相应的运算符号来选择运算符号，单击“=”，显示相应的运算结果。
打开工程文件“运算器.vbp”，对照下列表格，修改对象属性值（6分）
对象名称 属性名 属性值
Form1 Caption 基本运算器
Text3 Width 1455
Text3 Enabled false
（30分）
编写代码，使得运行程序后，单击按钮“=”，Text3中显示相应的运算结果。在窗体中双击命令按钮Command5，事件处理过程代码片段如下，请补充完整：
Private Sub Command5_Click()
If Label1.Caption = Command1.Caption Then
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End If
……
End Sub
三、代码输完后保存窗体文件和工程文件，并生成可执行文件到“素材”文件夹中，名称为“基本运算器.exe”。（4分）
四、打开“素材”文件夹中中的“基本运算器.exe”，查看结果是否正确。
