初中信息技术（算法与程序设计部分）?试题
参考答案与评分标准
?
第一部分：笔试试题（60分）
一、单选题（本题有10小题，每小题3分，共30分）
1.D 2.B 3.C 4.B 5.D
6.B 7.B 8.A 9.C 10.C
【评分标准】：每小题3分，共30分
二、综合题（本题共3小题，其中第1小题8分，第2小题10分，第3小题12分）
1．填空题。（本题共8小题，每空1分，共8分）
(1)汇编语言
(2) 属性
(3) 枚举算法
(4) 背景色
(5) Val( )
(6) 循环变量
(7) For…Next
(8) MsgBox
【评分标准】：每空1分，共8分
2.（1）程序设计流程图如下（5分）
【评分标准】：本题共5分，基本结构正确可得2分，细节内容处填错一个扣1分。
（2）请把下面对应的代码填写完整。（每空1分，共5分）
①Val ②Case x≧90 ③Text2.Text=“良好”
④Case x≧60 ⑤Text2.Text=“及格”
【评分标准】：每空1分，共5分
3．阅读下列程序，完成相应的问题。（每空2分，共12分）
(1)900
(2) 110
(3) 6 , 15
(4) 72 , 2
【评分标准】：每空2分，共12分
第二部分：上机操作题（40分）
参考答案见相应文件中。
【评分标准】：本题共40分，设计出第一问得30分，其中窗体界面设计占10分，代码编写占20分，程序编写有误的酌情扣分，设计出第二问得10分。
开 始
输入分数x
N
x≧90？
N
x≧60？
x≧75？
输出“不及格”
输出“及格”
输出“良好”
输出“优秀”
N
Y
Y
Y
结 束
命题意图
本套试卷意图在于考查学生对浙教版九年级《信息技术》中“算法与流程图”和“Visual Basic程序设计初步”这两部分内容的掌握程度，通过笔试与上机操作两个部分来对学生进行测试，一方面用于检测学习效果，具有导向功能、激励功能、反馈功能和调控功能，另一方面进一步引导学生学会将计算机语言与生活中的常见案例结合在一起，从中感受算法与程序的实用性。
命题主要意图考查以下知识的理解、掌握和运用：
1.算法、变量的理解；
2.流程图的绘制；
3.计算机语言的发展历程；
4.Visual Basic可视化编程环境；
5.程序的编辑、调试和运行；
6.对象、属性、事件等基本概念；
7.程序的三种基本结构；
8.程序设计的基本思想与方法。
第一部分 笔试题
一、单选题
命题意图：
共设10个选择题，每题3分，共占30分。单选题主要考察学生对基础知识的理解和掌握情况，每一题分别针对一个知识点进行考察。在设计中主要有以下设想：
1.能结合日常生活中常见的现象进行考察。
例：第4题，将日常用到的登录QQ的情况运用到算法与程序中来设计题目。
2.能结合相关图片阅读题目进行作答。
例：第5题，利用图片展示界面的设计，图文并茂，通过观察图片来判断是什么控件。
3.能与数学中的某些函数相结合，体现课程整合的作用。
例：第7题，流程图与数学中的分段函数相结合，运用算法知识补全流程图。
4.考察学生读程序的能力，对关键函数的掌握和对程序的理解。
例：第8、9、10题在考察程序阅读，分别是对If语句、For循环和Do…Loop语句的考察，理解其含义并学会运用。
5.其余各题均在考察基础的知识，如赋值语句、基本函数等等。
二、综合题
命题意图：
1.填空题。共设置了8个填空题，每空1分，共8分。主要在于考查一些概念性的内容，如第（2）、（3）题中算法、属性的概念等。
2.设计流程图和编写相应代码。共设置了2个小题，第1小题主要是设计流程图，共5分；第2小题主要是写出相应的代码，共5分。本题密切联系生活实际，从学生考试分数的事例入手，让学生解决生活中常见的问题，灵活运用知识，感受算法和程序的实际作用，锻炼学生解决问题的实际能力。
3.阅读程序题。本题重在考查学生的程序阅读能力，共设4个小题，8个空，每空2分，共12分。本题均涉及到了程序中的基本结构，顺序结构，分支结构，循环结构，考查学生对这一部分重点内容的掌握情况。
第二部分 上机操作题
命题意图
本题共1个题，占40分。主要考查学生是否能将实际问题转化为算法与程序中的问题并加以解决。本题有一定的难度，共设置了2个小问，第一问针对大部分学生，第二问相对有一些难度，虽是课本上提到过的知识，但需要学生细心发现，并且在有了一定基础后才可以做出，因此本题针对了不同能力水平的学生，将学生的水平进行了分层评判。
初中信息技术（算法与程序设计部分）?试题卷
?
第一部分：笔试试题（60分）
一、单选题（本题有10小题，每小题3分，共30分）
1.?下列选项中哪一项不属于VB 系统的文件类型？（ ）
A .frm B . vbp C .vbg D . bar
2.下列给出的VB赋值语句中正确的个数是（ ）。
（1）m=m-10;
（2）–m=n;
（3）m=m+n;
（4）8=n;
A．1个 B．2个 C. 3个 D. 4个
3.若x=666:?y=Str(x)，则下列描述正确的是（ ）。??
A．x和y均是字符型变量;?
B．x是字符型变量，y是数值型变量?;?
C．x是数值型变量，y是字符型变量;?
D．x和b均是数值型变量;
4.在日常生活中，我们上网登录QQ时，密码和QQ号对应就可以登入，若不对应，会提示你账号有误，重新输入。这一事件若用vb中的结构图来描述，应当属于下列哪个结构（ ）？
A. 顺序结构 B.分支结构 C. 循坏结构 D.数据结构
5.下列应用程序中对应的数字用到了哪些控件？（ ）
A.①Label ②Msgbox ③TextBox
B.①TextBox ②Label ③Image
C.①TextBox ②Msgbox ③PictureBox
D.①TextBox ②Label ③PictureBox
6.在Visual Basic中，表达式Sqr(4)的值是（ ）
A.1
B.2
C.3
D.4
7.下图所示的流程图为求分段函数。根据算法，流程图中①处应当填写的内容是( )
A.b≥a B.b≥0 C.b≤0 D.b≤a
8.如下一段VB程序运行后，变量a的值为（ ）。
Dim i As Integer, a As Integer
i=6??
a=6?
If?i?<6?Then??
a?=?a?+4
Else?
????a?=?a?-4?
End?If?
A. 2 B. 10 C.6 D.4
9.下列程序运行后，单击Command1命令按钮，变量a=（ ）。?
Private?Sub?Command1_Click()??
a?=?0??
For?i?=?8?To?100?Step?8?
? a?=?a?+?1
Next?i??
End?Sub??
A．0?B．8?C．12?D．13
10.以下VB程序段运行后，循环体执行的次数是（? ?）?
Dim x As Integer
x=2?
Do?while?x<=63???
x=(x+1)*(x-1)
Loop?
A.2????B.3????C.4????D.5?
二、综合题（本题共3小题，其中第1小题8分，第2小题10分，第3小题12分）
1．填空题。（本题共8小题，每空1分，共8分）
(1)计算机语言的发展经历了机器语言、_________和高级语言。
(2) 在面向对象程序设计中，________用来描述对象的特征信息。
(3) 采用搜索的方法解决问题，如密码破解的问题，常采用的方法叫做______。
(4) 在VB环境中，修改对象的BackColor的属性值，则对象的_______会发生改变。
(5)将字符型变量转化为数值型变量应该用函数_______。
(6) 循环结构是指程序重复执行循环语句中的一行或多行代码，其三个要素为________、循环体和循环终止条件。
(7) 用循环结构解决问题时，如果循环的次数已知，通常采用___________语句。
(8) _________函数的作用是在窗体中直接弹出一个提示框，用于程序中的提醒、警告等信息输出。
2． 有如下一个生活中常见的情况：
输入一个成绩，判断该成绩属于“优秀”、“良好”、“及格”还是“不及格”。
（1）请为上面的程序设计流程图。（5分）
（2）请把下面对应的代码填写完整。（每空1分，共5分）
Private Sub Command1_Click( )
Dim x As Integer
x=___①___ (Text1.Text)
Select Case x
_____②_______
Text2.Text=“优秀”
Case x≧75
_________③_________
______④________
__________________
Case Else
Text2.Text=“不及格”
End Select
End Sub
3．阅读下列程序，完成相应的问题。（每空2分，共12分）
（1）下列程序运行后，变量s=_________。
Private Sub Form_Click( )
Dim a,b,c,s As Integer
a=9
b=41
c=2*(a+b)
s=a*c
（2）若a=50,b=60,则下列程序的执行结果为__________。
Private Sub Form_Click( )
Dim a As Integer, b As Integer
If a>b Then
a=a-b
Else
a=b+a
End if
Print a
（3）执行下面的程序后，输出的结果是_______ , ______。
Private Sub Form_Click( )
Dim x As Integer, a As Integer
x=0
a=0
For j=1 to 5
a=a+j
Next j
x=j
Print x, a
End Sub
（4） 执行下面的程序后，输出的结果是_______ , ______。
Private Sub Form_Click( )
Dim x As Integer
x=0
Do While x<50
x=(x+2)*(x+3)
n=n+1
Loop
Print x，n
End Sub
第二部分：上机操作题（40分）
1．设计程序
某合唱队有100人，分别编号为1,2,3……100，现从中抽出编号为6的倍数的队员单独作为一个声部的合唱，那么这样的人数共有多少？分别是哪些编号？
请用VB程序实现上面的内容，算出人数并在窗体上列出所有编号。
界面设计参考如下：
参考答案
Private Sub Command1_Click( )
Dim x As Integer
x=Val(Text1.Text)
Select Case x
Case x≧90
Text2.Text=“优秀”
Case x≧75
Text2.Text=“良好”
Case x≧60
Text2.Text=“及格”
Case Else
Text2.Text=“不及格”
End Select
End Sub
③
②
①
100 (b.≥0)
a=
- 100 (b.≤0)
开 始
输入分数x
开 始
输入分数x
x≧90？
x≧75？
x≧60？
输出“良好”
输出“及格”
输出“不及格”
输出“优秀”
结 束
