信息技术（九年级上） 试题卷
第一部分：笔试试题（60分）
一、选择题（每题3分，共30分）
1、下列不属于计算机语言的高级语言的是 （ ）
A、BASIC语言 B、C语言 C、PhotoShop D、.Java
2、VB程序在保存工程的时候生成的工程文件后缀名是 （ ）
A、.frm B、.vbp C、.exe D、pdf
3、想要改变对象的文字颜色，我们可以修改以下哪个属性值来实现 （ ）
A、BackColor B、BackStyle C、FontSize D、FonrColor
4、下列对象不具有Caption属性的是 （ ）
A、Label B、Form C、Command D、Text
5、下列VB赋值语句中不正确的的是 （ ）
A、Text1.Text = Str(x) B、x =Val（text1.text）C、a = - b D、Label1.Caption=“你好”
6、由“For i=1 To 10 Step 2”决定的循环结构被执行的次数是 （ ）
A、3 B、4 C、5 D、6
7、下列常用函数中表示求x的算数平方根的是 （ ）
A、val（x） B、str（x） C、sqr（x） D、cint（x）
8、在for-----next 循环结构的语句中的循环变量可以是 （ ）
A、integer B、single C、string D、boolean
9、我们在优化“海伦公式求三角形面积”程序，判断a、b、c三边能否构成三角形条件是：a+b>c，b+c>a,a+c>b三个条件同事满足，在VB程序中表示该条件的逻辑表达式是 （ ）
A、a+b>c，b+c>a, a+c>b B、（a+b）>c and（b+c）>a and（a+c）>b
C、（a+b）>c or（b+c）>a or（a+c）>b D、a+b>c or b+c >a or a+c >b
10、以下VB程序段运行后，x的值是 （ ）
Dim x As Interger
X = 1
Do While x < 50
x = ( x + 1 )*( x + 2 )
Loop
A、50 B、56 C、72 D、6
二、综合题（1每空2分，2每空5分，3每空4分，共30分）
① ② ③
④ ⑤ ⑥
⑦ ⑧ ⑨
1、填空⑴计算机程序一般可以分为三种结构：顺序结构、 ① 结构和 ② 结构。
⑵自从1946年出现第一台电子计算机以来，计算机技术以惊人速度发展着。计算机语言也从 ③ ，发展到 ④ ，再发展到高级语言。
2、完成流程图
3、窗体上有四个文本框Text1控件数组，两个按钮Command1和Command2。程序功能是解一个一元二次方程ax2+bx+c=0（a≠0）。程序运行后如图所示。给定的程序不完整，将程序补充完整。
Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
Private Sub Command2_Click()
Dim a As Single, b As Single, c As Single
Dim x1 As Single, x2 As Single, det As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
det = ⑦ ‘（根的判别式b2-4ac）
Select Case det
Case Is > 0
x1 = (-b + Sqr(det)) / (2 * a)
x2 = (-b - Sqr(det)) / (2 * a)
Text4.Text = "方程有两个实数根" & " x=" & Str(x1) & " x=" & Str(x2)
Case Is = 0
Text4.Text = "方程有两个相等的实数根 x=" & Str(x1)
Case ⑧
Text4.Text = "此方程无实数根"
⑨
End Sub
第二部分：上机操作题（40分）
用vb程序实现：过年的时候小李打算每个月都把一部分零花钱存起来，第一个月他存了10元，他准备以后每个月都比上个月多存2元。请问当小明的存钱达到1000元以上要几个月？
笔试题
一、选择题（每题3分，共30分）
1 C 2 B 3 D 4 D 5 D
6 C 7 C 8 A 9 B 10 B
二、综合题（1每空2分，2每空5分，3每空4分，共30分）
①分支 ②循环 ③机器
④汇编 ⑤i≤n ⑥i ← i+1
⑦b*b-4*a*c ⑧else （或Is<0） ⑨end select
操作题
Private Sub Command1_Click()
Dim x As Integer, n As Integer, i As Integer
n = 10
i = 0
x = 0
Do While x < 1000
x = x + n
n = n + 2
i = i + 1
Loop
Print i & "个月"
End Sub
运行结果： 28个月
命题说明
一、命题意图说明
在本次命题过程中始终遵循“导向性、基础性、规范性、创新性”四个原则，把握好试卷分值、试卷难度系数和考试时间长度的指标要求，本着以学生发展为本的理念，题型丰富，设计合理，做到了试卷内容与所使用的教材、考查大纲所列举的知识细目要求的基本一致。
在命题中，考核的学科能力以知识与技能、过程与方法、情感态度与价值观三维目标为主要内容，包括对观察能力、记忆能力、操作能力、分析和解决问题的能力考核，对考核内容的掌握程度从知识性方面进行了识记、领会、应用三个层次的考核，从技能性方面进行了“模仿制作”、“独立创作”、“综合应用”三个层次的考核。
命题导向
1.试题要以兼顾三维教学目标为导向。
2.试题要以强调学生解决实际问题的能力为导向。
3.试题要以考核学生的信息技术学业质量水平为导向。
4.重视信息技术课程中的专业术语，促进教学的规范性和专业性。
三、命题设想
本份试卷，考查的是浙教版2015年版九年级课本内容，涵盖了课本上的第一第二单元的知识与技能，目的在于考核学生对九年级所学的基础知识、基本操作技能的理解和掌握程度，以及学生运用此阶段所学知识和技能解决学习和生活中实际问题的能力与水平。理论部分考查学生了解算法和流程图基本知识，掌握VB的基本技能情况；操作部分考查学生运用VB软件编程的能力。命题紧扣基础知识和基本操作技能，适当降低难度，整体试卷的难度系数大概0.75，在整个试卷中，没有偏题和怪题。
四、试卷结构特点
整份试卷包含理论卷和操作卷两部分，理论卷面分值60分，答题时间25分钟，题型为判断题10题，30分，综合题3题，30分。操作卷面分值40分，答题时间35分钟，由两部分组成，第一部分：窗体设计，分值14分；第二部分：程序编辑，分值26分。
五、内容模块与难度分布：
题型 题号 单元 难度( A-容易B-中等 C-较难） 具体章节
第一单元 第二单元
单项选择题 1 √ A 第一课：生活与算法
2 √ A 第三课：初识Visual Basic
3 √ A 第三课：初识Visual Basic
4 √ B 第四课：Visual Basic控件
5 √ B 第五课：顺序结构
6 √ A 第八课：循环结构—FOR循环
7 √ A 第五课：顺序结构
8 √ B 第八课：循环结构—FOR循环
9 √ B 第六课：分支结构
10 √ C 第九课：循环结构—DO循环
综合题 1 √ √ A 第一课 第二单元
2 √ √ B 第二课 第八课
3 √ B 第七课：多分支结构
操作题 1 √ B 窗体设计
2 √ C 第九课：循环结构—DO循环
试题说明
一、选择题（每题3分，共30分）
1、下列不属于计算机语言的高级语言的是 （ ）
A、BASIC语言 B、C语言 C、PhotoShop D、.Java
考察学生对高级语言的了解，针对课本第一课内容
2、VB程序在保存工程的时候生成的工程文件后缀名是 （ ）
A、.frm B、.vbp C、.exe D、pdf
考察学生对VB文件的保存，针对课本第三课内容
3、想要改变对象的文字颜色，我们可以修改以下哪个属性值来实现 （ ）
A、BackColor B、BackStyle C、FontSize D、FonrColor
考察学生对对象属性的修改，针对课本第三课内容
4、下列对象不具有Caption属性的是 （ ）
A、Label B、Form C、Command D、Text
考察学生对属性的了解，针对课本第四课内容
5、下列VB赋值语句中不正确的的是 （ ）
A、Text1.Text = Str(x) B、x =Val（text1.text）C、a = - b D、Label1.Caption=“你好”
考察学生对对赋值预言的掌握，针对课本第五课内容
6、由“For i=1 To 10 Step 2”决定的循环结构被执行的次数是 （ ）
A、3 B、4 C、5 D、6
考察学生对for循环的循环变量的特点的掌握，针对课本第八课内容
7、下列常用函数中表示求x的算数平方根的是 （ ）
A、val（x） B、str（x） C、sqr（x） D、cint（x）
考察学生对常用函数的认识，针对课本第五课内容
8、在for-----next 循环结构的语句中的循环变量可以是 （ ）
A、integer B、single C、string D、boolean
考察学生对循环变量的认识，针对课本第八课内容
9、我们在优化“海伦公式求三角形面积”程序，判断a、b、c三边能否构成三角形条件是：a+b>c，b+c>a,a+c>b三个条件同事满足，在VB程序中表示该条件的逻辑表达式是 （ ）
A、a+b>c，b+c>a, a+c>b B、（a+b）>c and（b+c）>a and（a+c）>b
C、（a+b）>c or（b+c）>a or（a+c）>b D、a+b>c or b+c >a or a+c >b
考察学生如何运用逻辑表达式，针对课本第六课内容
10、以下VB程序段运行后，x的值是 （ ）
Dim x As Interger
X = 1
Do While x < 50
x = ( x + 1 )*( x + 2 )
Loop
A、50 B、56 C、72 D、6
考察学生对do循环的掌握，针对课本第九课内容
二、综合题（1每空2分，2每空5分，3每空4分，共30分）
① ② ③
④ ⑤ ⑥
⑦ ⑧ ⑨
1、填空⑴计算机程序一般可以分为三种结构：顺序结构、 ① 结构和 ② 结构。
⑵自从1946年出现第一台电子计算机以来，计算机技术以惊人速度发展着。计算机语言也从 ③ ，发展到 ④ ，再发展到高级语言。
考察学生对计算机语言的发展以及计算机程序的三种结构的掌握
2、完成流程图
考察学生对流程的认识和do循环的掌握，针对课本第二、九课内容
3、窗体上有四个文本框Text1控件数组，两个按钮Command1和Command2。程序功能是解一个一元二次方程ax2+bx+c=0（a≠0）。程序运行后如图所示。给定的程序不完整，将程序补充完整。
Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
Private Sub Command2_Click()
Dim a As Single, b As Single, c As Single
Dim x1 As Single, x2 As Single, det As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
det = ⑦ ‘（根的判别式b2-4ac）
Select Case det
Case Is > 0
x1 = (-b + Sqr(det)) / (2 * a)
x2 = (-b - Sqr(det)) / (2 * a)
Text4.Text = "方程有两个实数根" & " x=" & Str(x1) & " x=" & Str(x2)
Case Is = 0
Text4.Text = "方程有两个相等的实数根 x=" & Str(x1)
Case ⑧
Text4.Text = "此方程无实数根"
⑨
End Sub
考察学生编程能力对多分支结构的掌握，针对课本第七课内容
第二部分：上机操作题（40分）
用vb程序实现：过年的时候小李打算每个月都把一部分零花钱存起来，第一个月他存了10元，他准备以后每个月都比上个月多存2元。请问当小明的存钱达到1000元以上要几个月？
考察学生的窗体的布局和编程能力，以do循环进行考察
选择题
每个3分共30分
综合题共30分
第一题每空2分，
第二题每空5分，
第三题每空4分，
操作题共40分
窗体布置
1、2两处修改文字 4分
3处要求选择文体颜色蓝色、字体大小4号 6分
4处要求更换所给的图片作背景 4分
Private Sub Command1_Click()
Dim x As Integer, n As Integer, i As Integer 定义正确3分
n = 10 1分
i = 0 1分
x = 0 1分
Do While x < 1000 do---loop 格式对7分
x = x + n 2分
n = n + 2 2分
i = i + 1 2分
Loop
Print i & "个月" ' 7分
无& "个月" 5分
或者写成text1.text=str(i) & "个月"等语句的 4分
End Sub
运行结果： 28个月
