资源简介

2016年上学年高二技术期中测试卷
第一部分信息技术
一、选择题部分（本大题共12小题，每小题2分，共30分。在每小题给出的四个选项中，只有一个符合题目要求）
1.某算法的流程图结构如下图所示,其算法结构属于
(　　)
A.顺序结构
B.选择结构
C.树形结构
D.循环结构
2.某算法流程图如图所示。
当输入值为0时,该算法执行的步骤是(　　)
A.①②③④
B.①②③⑤
C.①②④⑤
D.①②③④⑤
3.某算法的部分流程图如图所示，执行这部分流程后，变量d的值为（
）
A.
0
B.1
C.8
D.9
4.某算法流程图如图所示：
执行该算法，输出变量s和变量i的值分别为
A．16
8
B．28
12
C．10
8
D．18
10
5.计算某次考试的平均分的部分算法流程图如图所示,其中s用来记录已输入考生的人数,sum用来计算分数之和,avg用来存储平均分,输入-1时表示输入结束。
图中①处应填入的是(　　)
A.sum←sum+x
B.s←s+x
C.sum←sum+s
D.avg←avg+x
6.在VB中,语句label1.caption=″white″执行后,标签label1的(　　)
A.文字颜色变为白色
B.文字内容变为″white″
C.背景变为白色
D.名称变为″white″
7.一个VB程序的运行界面如图所示。下列说法不正确的是(　　)
A.文本框Text1的Caption属性值为“H”
B.标签Label1的Caption属性值为“输入字符”
C.命令按钮Command1的Caption属性值为“查询”
D.窗体的Caption属性值为“查询字符ASCII码”
8.有如下程序段：
Dim
i
As
Integer,
ans
As
Integer
Dim
a(1
To
10)
As
Integer
sum
=
0
For
i
=
1
To
10
a(i)
=
i
^2
If
a(i)
Mod
3
=
0
Then
ans
=
ans
+
a(i)
Next
i
Text1.Text
=
Str(ans)
该程序段运行后，文本框Text1中显示的内容是（
）
A.55
B.
126
C.
259
D.
385
9.下列能作为VB变量名的是(　　)
A.MOD
B.a@1
C.3F
D.no_1
10.观察如下程序,变量x的数据类型应定义为(　　)
Dim
x
As
　　　　
x=Mid(″computer″,1,3)
A.Integer
B.Single
C.Long
D.String
11.设一个三位数是n,它的个位数字为a,十位数字为b,百位数字为c,则b的Visual
Basic表达式是
(　　)
A.n-a-c
B.(n-a
100-c)/10
C.Int(n/10)-Int(n/100)
10
D.n-Int(n/100)-Int(n/10)
12.下列VB表达式的值等于34的是(　　)
A.Abs(-35)+1
B.Len(″33″)+1
C.Mid(″1234567″,3,4)
D.Int(33.7)+1
13设a=5,b=10,则执行c=Int((b-a)
Rnd+a)+1后,c值的范围是(　　)
A.5~10
B.6~9
C.6~10
D.5~9
14.某VB代码如下:
a=″Computer″
b=Mid(a,2,1)
c=Asc(b)
d=Chr(c+1)
程序运行后,d的值是(　　)
A.″p″
B.″D″
C.″C″
D.″o″
15.有如下VB事件处理过程:
Private
Sub
Command1_Click(
)
Dim
i
As
Integer
List1.Clear
For
i=1
To
10
If
i
Mod
2=0
Then
　　List1.Additem
i
　　　　　End
If
Next
i
End
Sub
该事件被执行后,在列表框List1中显示的数据是
(　　)
　　　　
　　　　　　
　A.
1
2
3
4
5
6
7
8
9
10
B
.1
3
5
7
9
C.
2
4
6
8
10
D.
10
9
8
7
6
5
4
3
2
1
二、填空题部分
16.计算圆周率的近似公式是:=1-+…+(-1)n-1。
某人编写下面的程序用此公式计算并输出π的近似值,请在划线处填上合适的VB语句。
Private
Sub
Command1_Click(
)
pi=1
sign=1
n=20
000
For
k=　　　①　　　　
sign=　　　
②　　　
pi=pi+sign/k
Next
k
Print
pi
4
End
Sub
17.百元百鸡问题:假如公鸡5元一只,母鸡3元一只,3只小鸡一元,现在100元,可买公鸡、母鸡、小鸡各几只 用VB程序解决百元百鸡问题,程序如下:
For
i=1
To
20
For
j=1
To
33
k=　　②　　
If
i+j+k=100
Then
Print
″公鸡″+Str(i)
+″母鸡″+Str(j)
+″小鸡″+Str(k)
Next
j
Next
i
(1)该程序采用的算法是　　　　①　　　　(选填“枚举算法”或“解析算法”)。
(2)为实现程序功能,在程序画线处应填写的表达式是　　　　②　　　　。
18.
编写VB程序，实现如下功能：在文本框Text1中按“YYYY-MM-DD”（年4位，月2位，日2位）格式输入某一日期，单击“推算”按钮Command1，在文本框Text2中输出该日期对应的星期，运行界面如下第14题图所示。
第14题图
（1）要使标签对象Label1中显示的文本“date”修改为“日期”,可在其属性窗口中将_______①____属性的属性值改“日期”。
（2）为实现上述功能，请在划线处填入合适的代码。
Private
Sub
Command1_Click()
Dim
s
As
String
'变量s存储输入的日期
Dim
s1
As
String,
s2
As
String,
s3
As
String
Dim
y
As
Integer,
y2
As
Integer,
m
As
Integer,
d
As
Integer,
n
As
Integer
s1
=
"622503514624"
s2
=
"512503514624"
s3
=
"日一二三四五六"
s
=
②
y
=
Val(Mid(s,
1,
4))
m
=
Val(Mid(s,
6,
2))
d
=
Val(Mid(s,
9,
2))
y2
=
y
Mod
100
n
=
Int(y2
/
4)
+
y2
+
d
If
y
Mod
4
=
0
And
y
Mod
100
<>
0
Or
y
Mod
400
=
0
Then
'判断是否为闰年
n
=
n
+
Val(Mid(s2,
m,
1))
Else
n
=
n
+
Val(Mid(s1,
m,
1))
End
If
n
=
n
Mod
7
+
1
Text2.Text
=
Mid(s3,
n,
1)
End
Sub
（3）如果输入日期“2017-02-01”，则输出结果是星期
③
。
19.编写VB程序，寻找第1位为2，第5位为5，数字长度为5的完全平方数，并统计个数。要求：单击“寻找”按钮Command1，将符合要求的五位数显示在列表框List1中，统计个数显示在标签Label2中，界面如第14题图所示。
实现上述功能的VB程序代码如下：
Private
Sub
Command1_Click()
Dim
i
As
Integer,
n
As
Integer
Dim
x
As
Integer
n
=
0
For
i
=
0
To
999
x
=
①
If
Int(Sqr(x))
=
Sqr(x)
Then
List1.AddItem
②
③
End
If
Next
i
Label2.Caption
=
"共有："
+
Str(n)
+
"个"
End
Sub
（1）在设计应用程序界面时，能在窗体上添加标签Label2的操作是
（填编号：①单击工具箱中的标签控件
②双击工具箱中的标签控件）
（2）为实现上述功能，划线①处应填入的代码为
①
；
划线②处应填入的代码为
②
；
划线③处应填入的代码为
③
。
第一部分
信息技术
答题卷
班级
姓名
学号
选择题(本大题共12小题,每小题2分,共24分。
在每小题给出的四个选项中,只有一个符合题目要求)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
非选择题(本大题共4小题,其中第16小题4分,第17小题4分,第18小题5分,第19小题7分)
16.
①
（2分）
②
(2分)
17.
①
(2分)
②
(2分)
18.
①
(1分)
②
(2分)
③
(2分)
19.
（1）
(1分)
（2）①
(2分)
②
(2分)
③
(2分)
注：代码填写不区分大小写
N
s<=10
s←s+i
i←i+2
s←0:i←4
Y
输出s、i
第14题图

展开更多......

收起↑