2017-2018学年浙江省金华市东阳中学高二（下）期中信息技术试卷
发布：2024/4/20 14:35:0
一、选择题（本大题共12小题，每小题2分，共24分．在每小题给出的四个选项中，只有一个符合题目要求，不选、多选、错选均不得分）
-
1．某算法的部分流程图如图所示，执行这部分流程后，变量s的值是（ ）
组卷：2引用：3难度：0.7 -
2．有如下VB程序：
Dim n As Integer
Function f（k As Integer） As Long
If k＜=2 Then f=1 Else f=f（k-1）+f（k-2）
End Function
Private Sub command1_click（ ）
n=Val（Text1．Text）
Label2．Caption=Str（f（n））
End Sub
该VB程序采用的主要算法是（ ）组卷：18引用：3难度：0.9 -
3．某校有5000份学生档案（已按学籍号排序），若分别用顺序查找和对分查找的方法查找某位学生的数据，两种查找方式中最多的查找的次数差值是（ ）
组卷：15引用：1难度：0.4 -
4．编号为1到13的纸牌顺时针排成一圈，现从编号为1的牌从数字1开始顺时针数下去，1、2、3、…、20、21、…，一圈又一圈，则当数到数字N时，所在纸牌的编号为（ ）
组卷：8引用：2难度：0.5 -
5．通过ADO的Recordset对象实例rs打开的记录集如图所示。当前是第4条记录，要用Fields集合返回第2个字段的值，以下代码正确的是（ ）
序号 书名 书号 作者 售价 1 解忧杂货店 ISBN978744120878 东野奎吾 39.5 2 摆渡人 ISBN978755001237 克莱尔•麦克福尔 36 3 白夜行 ISBN978725806995 东野奎吾 38.5 4 追风筝的人 ISBN978720806144 卡勒德•胡赛尼 29 5 这就是二十四节气 ISBN948740028186 高春香 43 组卷：2引用：1难度：0.7 -
6．利用对分查找，在列表Angola,Australia,Belgium,Canada,China,Denmark,Egypt,France,Greece,Hungary,India,Japan中查找Egypt,则第三次查找时被查找到的国家名是（ ）
组卷：12引用：1难度：0.4
三、程序填空（本大题共3小题，第16题和第17题各6分，第18题5分，共17分．）
-
17．统计单词出现的位置及次数。在文本框Text1中输入文章，在Text2中输入要查找的单词，单击“统计”按钮Command1，在列表框List1显示该单词出现的起始位置及次数。实现上述功能的VB程序如下，请在横线处填入合适的代码。
Private Sub Command1_Click （ ）
Dim pos（1To 1000）As Integer
'存储匹配到的单词位置
Dim word As String'存储每次扫描的单词
Dim c As String,s As String,s2As String
Dim i As Integer,j As Integer,k As Integer,b As Integer,slen As Integer
s=Text1．Text
slen=Len（s）
s2=Text2．Text
j=0'存储每个单词的长度
k=1'存储匹配到的第几个单词的下标
b=1'存储每个单词的起始位置
i=1
Do While i＜=slen
①
If c＞=“a“And c＜=“z“Or c＞=“A“And c＜=“Z“Then
j=j+1
Else
If j＜＞0Then
word=②
If word=s2Then
pos（k）=b
k=k+1
End If
j=0
End If
b=i+1
End If
i=i+1
Loop
List1．AddItem“单词“+s2+“出现的位置为“
For i=1To k-1
List1．AddItem Str（pos（i））
Next i
List1．AddItem“共出现“+③+“次“
End Sub组卷：2引用：1难度：0.4 -
18．小张同学为方便大家进行选考科目的选择，将全班同学七门学科的原始成绩折算成对应的标准分（避免了不同学科试卷难度各不相同的问题，标准分越高说明该学科成绩越优秀），存放于数据库中，如图1所示。同时，还编写了“选考科目推荐”程序，实现如下功能：在文本框Text1中输入学生的学号，单击“分析”按钮Command1，在文本框Text2中显示该学号及所推荐的三门学科（选成绩最好的三门）。程序运行界面如图2所示：
实现上述功能的VB程序如下，请回答下列问题：
（1）通过分析代码可知，该数据库的名称为，数据表的名称为。
（2）请在横线处填入合适代码。
Private Sub Command1_Click （ ）
Dim a（1To 7）As Single,b（1To 7）As Integer
Dim n As Integer,s As String,c As String
Dim conn As New ADODB．Connection
Dim rs As New ADODB．Recordset
conn.Connectionstring=“provider=Microsoft.ace.jye.ai.12.0；data source=“& App.Path &“\7xuan3．accdb“
conn.Open
rs.ActiveConnection=conn
n=Val（Text1．Text）
rs.Open“select*from bzf where学号=“& n
For i=1To 7
a（i）=rs.jye.ai（i）
b（i）=i
Next i
rs.Close
conn.Close
For i=1To 3
k=i
For j=i+1To 7
If ①Then k=j
Next j
If k＜＞i Then
t=a（i）：a（i）=a（k）：a（k）=t
t=b（i）：b（i）=b（k）：b（k）=t
End If
Next i
s=“物理化学生物政治历史地理技术“
c=Text1．Text+““
For i=1To 3
c=c+②+““
Next i
Text2．Text=c
End Sub组卷：3引用：1难度：0.4
