2015-2016学年浙江省温州市十校联合体高二（下）期中信息技术试卷
发布：2024/4/20 14:35:0
一、单项选择题（共12题，每小题2分，共24分，每小题列出的四个备选项中只有一个是符合题目要求的，不选、多选、错选均不得分．）
-
1．6月1日儿童节，一鸣奶吧准备搞促销优惠活动，当天到店可通过手机扫码进入商家店铺领取更多的优惠券，此扫码过程属于（ ）
组卷：4引用：2难度：0.9 -
2．小明要把信息作业上传到教师机上．教师机的服务器地址为“FTP：//10.133.22.110/”，地址中的“FTP”表示（ ）
组卷：7引用：4难度：0.9 -
3．小丽用OCR软件识别文件，发现OCR识别的准确率很低，准备向老师求助，应该把下列哪组文件发送给老师（ ）
组卷：6引用：1难度：0.9 -
4．某Access数据表打开后如图所示，下列描述中正确的是（ ）
组卷：3引用：2难度：0.7 -
5．语句“i=3：s=1/（i-3）”无法执行，原因是它违反了算法特征中的（ ）
组卷：18引用：4难度：0.9
二、综合题（本大题共5小题，其中第13小题7分，第14小题5分，第15小题5分，第15小题5分，第17小题4分，共24分）
-
16．下列VB程序的功能是：程序运行时，单击命令按钮Commandl后，产生10个[1，999]范围内互不相同的随机整数，依次显示在列表框List1中，然后将它们按从小到大的顺序排序，排序结果显示在列表框List2中．
数组a用于存储产生的10个随机整数，函数f（x）用于判断随机整数x与已生成的整数是否有重复，若有重复则返回True,否则返回False.
（1）虚线框内程序段所采用的排序算法名称是．（填：冒泡排序/选择排序）
（2）在程序①和②横线处，填入适当的语句或表达式，把程序补充完整．
Dim a（1To 10）As Integer
Function f（x As Integer） As Boolean’代码略
End Function
Private Sub Commandl_Click （ ）
Dim n As Integer’n用于统计已经产生的随机整数个数
Dim i As Integer.j As Integer
Dim x As Integer.k As Integer
Randomize’初始化Rnd函数
n=0
List1．Clear’清除列表框中内容
List2．Clear
Do While n＜10
x= ①’产生[1，999]范围内的随机整数
If Not f（x） Then
n=n+1
a（n）=x
List1．AddItem Str（a（n））
End If
Loop
For i=1To 10
List2．AddItem Str（a（i））
Next i
End Sub.组卷：6引用：1难度：0.3 -
17．市民卡是由人民政府授权发放给市民用于办理个人相关事务和享受公共服务的集成电路卡（IC卡），具有信息储存、身份识别、电子支付等功能．每位市民都可以拥有一张唯一卡号的市民卡，卡内会记录每位市民的姓名、电话、金额等信息．
假设共有500个市民，市民的相关信息都存储在“information.jye.ai”的data表中，”xm,ye,kh”字段放市民的姓名，余额，卡号．查询程序界面如图所示．工作人员在文本框Text1中输入卡号，单击“查询”按钮，如果找到，就在Label1中显示卡内市民姓名和卡内余额；否则显示“查无此人”．程序如下，请按要求将程序补充完整．
Private Sub command1_click （ ）
Dim conn As New ADODB．Connection,rs As New ADODB．Recordset
Dim strSQL As String
Dim a,b,c as string
Dim n as integer
conn.ConnectionString=“Provider=Microsoft.ACE．OLEDB.12.0；Data Source=“+App.Path+“\ ①”
conn.Open
strSQL=“select*from data”
Set rs.ActiveConnection=conn
rs.Open strSQL
Label1．Caption=“”
c=val（text1．text）
n=0
rs.movefirst
Do while not rs.EOF
n=n+1
a=rs.Fields（“xm”）
②
If c=rs.Fields（“kh”） then
Label1．caption=a+“的卡内余额为“+b+“元”
Exit if
else
rs.movenext
end if
loop
if n=500then Label1．caption=“查无此人”
rs.close
conn.close
set rs=nothing
set conn=nothing
End Sub
（1）程序中①横线处应填入．
（2）程序中②横线处应填入．组卷：3引用：1难度：0.1
