2017-2018学年浙江省温州新力量联盟高二（下）期末信息技术试卷
发布：2024/4/20 14:35:0
一、选择题（本大题共12小题，每小题2分，共24分，每小题列出的四个备选项中只有一个是符合题目要求的，不选、错选、多选均不得分．）
-
1．下列关于信息的说法，正确的是（ ）
组卷：8引用：1难度：0.6 -
2．关于浏览器和网页的说法，正确的是（ ）
组卷：8引用：1难度：0.4 -
3．用 Word 软件编辑某文档，部分界面如图所示。
下列有关图中批注与修订的说法，正确的是（ ）组卷：7引用：1难度：0.2 -
4．某水果商创建的 Access 文件，其数据表视图如图所示，下列说法中正确的是 （ ）
组卷：5引用：1难度：0.4 -
5．某算法的部分流程图如图所示，执行这部分流程图，依次输入 3，2，1，变量 i,s 的值 分别是（ ）
组卷：0引用：1难度：0.4
二、非选择题（本大题共5小题，其中第13小题4分，第14小题5分，第15小题8分，第16小题3分，第17小题6分，共26分）
-
16．某次考试的流程为先笔试再面试，笔试成绩达到面试资格线的可以入围参加面试。入围面试 的资格线根据计划录取人数的 200%划定，即如果考试最终录取 x 人，则第 2*x 名选手的笔试分 数为面试资格的分数线（该分若有同分者可一同参与面试）。现在编写 VB 程序功能如下：自动 读取数据库中考生考号和笔试成绩，依次存储在数组 kh（i）、cj（i）中，并显示在 List1 列表框中。单 击“入围划线”按钮 Command1，面试分数线显示在文本框 Text2 中，入围面试最终人数显示在 Text3 中，进入面试的考生的考号和笔试成绩显示在 List2 列表框中，如果成绩相同，则按考号由小到 大的顺序显示。程序界面如图所示。
Dim kh（1to 500）As string,cj（1to 500）As Integer Dim n As Integer‘参加考试总人数
Private Sub Form_Load（ ）
Dim conn as new ADODB．connection：Dim rs As New ADODB．Recordset conn.ConnectionString=“Provider=Microsoft.ACE．OLEDB.12.0；Data Source=”
+App.Path+”\BSCJ．accdb”conn.Open
set rs.activeconnection=conn rs.Open“select*FROM scoreinfo”
‘本过程其他代码略 End Sub
Private Sub Command1_Click （ ）
Dim m As Integer,i As Integer,j As Integer Dim t1As Integer,t2As String,flag As Boolean For i=1To n-1‘排序
For j=If
cj（i）＜cj（j） Then
t1=cj（i）：cj（i）=cj（j）：cj（j）=t1t2=kh（i）：kh（i）=kh（j）：kh（j）=t2
Elseif cj（i）=cj（j） And kh（i）＞kh（j） Then t2=kh（i）：kh（i）=kh（j）：kh（j）=t2
End If Next j
Next i
m=
If m＜=n Then‘统计进入面试人数 i=m
flag=False
Do While
If cj（i）=cj（i+1）Then
i=i+1Else
flag=True End If
Loop
Text2．text=Str（cj（m）） Text3．text=Str（i）
For j=1To i
List2．AddItem kh（j）+“”+Str（cj（i）） Next j
Else
Text2．Text=”面试人数超过总人数了”End If
End Sub
（1）读取的数据表名为。
（2）（单选）可以填在①处的代码是
A．i+1To n B．n To i+1C.1To n-i
（3）请在②、③横线处填入适当的代码。组卷：3引用：1难度：0.4
