2015-2016学年浙江省杭州二中高二（上）期末信息技术试卷（选考）
发布：2024/4/20 14:35:0
一、选择题（每小题2分，共14题28分）
-
1．“口说无凭”指的是说过的话无据可查，在进行重大交易时，往往需要签订书面协议，这主要体现了信息的（ ）
组卷：25引用：6难度：0.9 -
2．用十六进制查看字符内码，结果如图所示
该字符内码可能是（ ）组卷：2引用：2难度：0.9 -
3．在Word中使用键盘输入文本时，部分字词的下方出现了红色的波浪线，这表明这部分字词处（ ）
组卷：4引用：5难度：0.9 -
4．某Access数据表如图所示：
以下说法中正确的是（ ）组卷：8引用：2难度：0.7 -
5．一张1600*1200像素16位色的bmp图象，把它另存为分辨率为800*600像素16色的bmp图象，其存储空间是原来的（ ）
组卷：4引用：1难度：0.7 -
6．小明妈妈想了解一下浙江省人民政府网最新新闻动态，上网使用浏览器访问浙江省人民政府网站http://www.zhejiang.gov.cn/，浏览网站所采用的协议是（ ）
组卷：7引用：2难度：0.9
二、填空题（11题每空1分，12-14题每空2分，共20分）
-
17．【加试题】下列程序的功能是将text1中输入的自然数分解为3个互不相同的质数（三个质数的和等于输入的自然数），并把分解产生的质数按升序顺序显示在右边的列表框中．例如，输入20，那么在列表框中会显示如下图所示结果．其中，界面中“分解”按钮的名称是“Command1”，程序中函数f（x）的功能是判断x是否为质数，如果是质数，则返回值为true,否则返回false.
请在下列程序代码的基础上按照要求设计该程序，完善程序中的划线部分．
Dim n As Integer,a1As Integer,a3As Integer,a3As Integer
Function f（x）As Boolean
f=True
For i=2To Sqr（x）
If x Mod i=0Then
Next i
End Function
Private Sub Command1_Click（ ）
n=
For a1=2To n
For a2=a1To n
For a3=a2To n
IfAnd f（a1）And f（a2）And f（a3）Then
List1．AddItem Str（a1）+“”+Str（a2）+“”+Str（a3）
End If
Next a3
Next a2
Next a1
End Sub
（1）程序中①横线处应填入．
（2）程序中②横线处应填入．
（3）程序中③横线处应填入．组卷：20引用：2难度：0.1 -
18．小明利用所学的信息技术知识帮助语文老师设计一个语文学考等级查询系统，要求如下：输入某个等级，就能查出该等级的所有学生学号和姓名，并统计出该等级学生的人数，以便语文老师方便了解学生的学考情况．语文学考成绩分A、B、C、D、E五个等级，学生信息存储在数据库文件“stugrade.jye.ai”的数据表“Chinese”中，数据表“Chinese”的结构如图1所示．
VB程序运行界面如图2所示，在文本框Text1中输入查询的等级，单击“查询”按钮Command1，在列表框List1中显示所有该等级的学生学号和姓名，并按照学号从小到大排序，并在标签Label2处显示学生的人数，如果人数为0，则在列表框中显示“没有该等级的学生”．按此要求编写程序如下，在横线处填上合适的代码．
Private Sub Command1_Click （ ）
Dim stuna（1To 100）As String'存放学生姓名的数组定义为stuna
Dim stunum（1To 100）As String'存放学生学号的数组定义为stunum
Dim i As Integer,j As Integer,n As Integer
Dim t As String
Dim cn As New ADODB．Connection'连接数据库
Dim rs As New ADODB．Recordset
Dim strSQL As String
cn.ConnectionString=“Provider=Microsoft.ACE．OLEDB.12.0；Data Source=“+App.Path+“\stugrade.jye.ai“
cn.Open
strSQL=“select*from ①where 语文等级='“+Text1．Text+“'“
Set rs.ActiveConnection=cn
rs.Open strSQL
n=0
Do While Not rs.EOF
②
stuna（n）=rs.Fields（“姓名“）．Value
stunum（n）=rs.Fields（“学号“）．Value
rs.MoveNext
Loop
rs.Close
cn.Close
Set rs=Nothing
Set cn=Nothing
List1．Clear'清除列表框
If n=0Then
List1．AddItem“没有该等级的学生“
Else
For i=1To n-1'按姓名排序
For j=n To ③Step-1
If④Then
t=stunum（j）：stunum（j）=stunum（j-1）：stunum（j-1）=t
t=stuna（j）：stuna（j）=stuna（j-1）：stuna（j-1）=t
End If
Next j
Next i
For i=1To n
List1．AddItem stunum（i）+““+stuna（i）
Next i
Label2．Caption=“该等级的学生共有“+Str（n）+“名“
End If
End Sub
①
②
③
④．组卷：3引用：1难度：0.1
