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