初中信息技术（九年级） 试题卷
说明：试卷共分二部分。第一部分为笔试试题，包括单项选择题与综合题，测试时间为25分钟，满分60分。第二部分为上机操作题，测试时间为15分钟，满分为40分。
第一部分：笔试试题（60分）
单选题（本题有10小题，每小题3分，共30分）
1.利用计算机编写程序解决实际问题时，首先应该做的是（ ）
A. 编写程序 B. 设计算法 C. 调试程序 D. 分析问题
2.下列图形中表示对数据进行处理的是（ ）。
B． C. D.
3.一个工程必须包含的文件类型是（ ）。
*.vbp*.frm*.frx B. *.vbp*.cls*.bas
C. *.bas*.ocx*.res D. *.frm*.cls*.bas
4.张硕使用VB编写了一个显示时间的程序，图1显示的是图2中（ ）对象的属性。
“显示”按钮 B．“清除”按钮
C.“当前时间”标签框 D.“Text1”文本框
5.对于语句 If x=1 Then y=1, 下列说法正确的是（ ）。
A. x=1和y=1 均为赋值语句
B.x=1和y=1 均为关系表达式
C. x=1为赋值语句，y=1为关系表达式
D.x=1为关系表达式，y=1 为赋值语句
6.“已知长方形的长和宽，求长方形的周长”，用算法描述这一问题，合适的算法结构是（ ）。
A. 选择结构 B. 循环结构 C. 顺序结构 D. 树型结构
7.以下变量名中，（ ）是不符合Visual Basic的命名规范的。
? A：_mnu_Open_234 B：Abc901 C：price_ D：K
8.下列循环语句能正常结束循环的是（ ）。
A. i=5 B. i=1
Do Do
i=i+1 i=i+2
Loop Until i<0 Loop Until i=10
C. i=10 D. i=6
Do Do
i=i-1 i=i-2
Loop Until i<0 Loop Until i=1
9.某算法流程图如下，该算法的输出结果为（ ）。
A．6 B．5 C．10 D．11
10.有如下的Visual Basic程序段：
For i = 1 To 10 Step 4
s = s + i
Next i
该程序段运行后，语句s = s + i执行的次数是（ ）。
A . 1 B. 3 C. 4 D. 10
二、综合题（本题共3小题，其中第1小题8分，第2小题10分，第3小题12分）
填空题
将代数式式转换成程序设计中的表达式为 。
表示x 是5的倍数或是9的倍数的逻辑表达式为?????? ????? 。
读程序写结果
（1）林娜编制了一个验证乘法运算结果的小程序（如下图所示），当在“输入结果”右边的文本框中输入60时，输出内容为?????? ? ?????。
（2）Private Sub Form_Click()
??? Dim i As Integer, sum As Integer
??? sum = 0
??? For i = 2 To 10
????????? ??If i Mod 2 <> 0 And i Mod 3 = 0 Then
??????????????? sum = sum + i
End If
??? Next i
??? Print sum
End Sub
程序运行后，单击窗体，输出结果为______。
程序填空
下列程序的功能是：当x<50时，y=0.8×x；当50≤x≤100时，y=0.7×x；当x>100时，输入的数据超出范围。请填空。
Private Sub Command1_Click()
Dim x As Single
x=InputBox("请输入x的值！")
（1）
Case x < 50
y=0.8 * x
Case 50 To 100
（2）
（3）
Print "输入的数据超出范围！"
End Select
Print x, y
End Sub
（1）、 （2）、 （3）、
第二部分：上机操作题（40分）
汉字输入测试（20分）
Vb操作题（20分）
设计出租车收费计算器VB程序，使其具有下列功能：在文本框Text1中输入行驶的路程，单击“计算”按钮Command1，在文本框text2中显示所需的费用（注意：当行驶的公里数a 《3公里时，费用s为6.5元；当行驶的路程超过3公里时，3公里按6.5元计算，超出部分按每公里1.6元收费）。界面设计如图所示。
打开VB软件，完成下列操作：
参照上图，完成界面设计：添加所需对象，在属性窗口中设置各对象的有关属性。（8分）
选择“计算”按钮的事件过程，该事件过程的代码从VB文件夹下“代码”文件中得到。(3分)
3.编写程序中空缺的地方，并调试运行该程序，使程序实现上述功能。（5分）
4.保存窗体文件和工程文件。（4分）
初中信息技术（九年级） 参考答案
一、选择题
1.A 2.B 3.A 4.A 5.D
6.C 7.A 8.C 9.A 10.B
二、综合题
1（1）Sqr((x*x+y*y)/(a+b))
（2）X mod 5=0 or X mod 9=0
（1）ok!
（2）12
（1）Select Case x
（2） y=0.7 * x
（3）Case Else
上机操作题
Private Sub Command1_Click()
a = Val(Text1.Text)
If a <= 3 Then
s = 6.5
Else
s = 6.5 + (a - 3) * 1.6
End If
Text2.Text = s
End Sub
初中信息技术（九年级上） 试题卷评分标准
第一部分：笔试试题（60分）
单选题（每小题3分，共30分）
每小题３分，答错不得分，共３０分
二、综合题（本题共3小题，其中第1小题8分，第2小题10分，第3小题12分）
1、填空题（每空4分 共8分）
（1）、每空4分，答错不得分。
（2）、每空4分，答错不得分。
2、读程序写结果（每题5分 共10分）
（1）、每空 5分，答错不得分
（2）、每空 5分，答错不得分
3、程序填空（每空4分 共12分）
（1）、每空3分，答错不得分
（2）、每空3分，答错不得分
（3）、每空3分，答错不得分
第二部分：上机操作题（40分）
汉字输入测试
略
二、vb操作题（20分）
（1）共8分，正确添加text控件、便签控件、command1按钮并按要求修改属性各得1分，正确修改form1属性值得1分。
（2）共3分， 能把代码复制到程序里得1分，复制到对的位置得2分。
（3）共5分，
写出if a <= 3 Then 得1分
写出s = 6.5 得1分
写出Else 得1分
写出s = 6.5 + (a - 3) * 1.6 得2分
（4）共4分，保存正确文件窗体文件和工程文件到指定位置各得2分
