2015-2016學年浙江省溫州市十校聯(lián)合體高二（下）期中信息技術試卷
發(fā)布：2024/4/20 14:35:0
一、單項選擇題（共12題，每小題2分，共24分，每小題列出的四個備選項中只有一個是符合題目要求的，不選、多選、錯選均不得分．）
-
1．6月1日兒童節(jié)，一鳴奶吧準備搞促銷優(yōu)惠活動，當天到店可通過手機掃碼進入商家店鋪領取更多的優(yōu)惠券，此掃碼過程屬于（ ）
組卷：4引用：2難度：0.9 -
2．小明要把信息作業(yè)上傳到教師機上．教師機的服務器地址為“FTP：//10.133.22.110/”，地址中的“FTP”表示（ ?。?/h2>
組卷：7引用：4難度：0.9 -
3．小麗用OCR軟件識別文件，發(fā)現(xiàn)OCR識別的準確率很低，準備向老師求助，應該把下列哪組文件發(fā)送給老師（ ?。?/h2>
組卷：6引用：1難度：0.9 -
4．某Access數(shù)據(jù)表打開后如圖所示，下列描述中正確的是（ ）
組卷：3引用：2難度：0.7 -
5．語句“i=3：s=1/（i-3）”無法執(zhí)行，原因是它違反了算法特征中的（ ?。?/h2>
組卷：18引用：3難度：0.9
二、綜合題（本大題共5小題，其中第13小題7分，第14小題5分，第15小題5分，第15小題5分，第17小題4分，共24分）
-
16．下列VB程序的功能是：程序運行時，單擊命令按鈕Commandl后，產(chǎn)生10個[1，999]范圍內互不相同的隨機整數(shù)，依次顯示在列表框List1中，然后將它們按從小到大的順序排序，排序結果顯示在列表框List2中．
數(shù)組a用于存儲產(chǎn)生的10個隨機整數(shù)，函數(shù)f（x）用于判斷隨機整數(shù)x與已生成的整數(shù)是否有重復，若有重復則返回True,否則返回False.
（1）虛線框內程序段所采用的排序算法名稱是．（填：冒泡排序/選擇排序）
（2）在程序①和②橫線處，填入適當?shù)恼Z句或表達式，把程序補充完整．
Dim a（1To 10）As Integer
Function f（x As Integer） As Boolean’代碼略
End Function
Private Sub Commandl_Click （ ?。?br />Dim n As Integer’n用于統(tǒng)計已經(jīng)產(chǎn)生的隨機整數(shù)個數(shù)
Dim i As Integer.j As Integer
Dim x As Integer.k As Integer
Randomize’初始化Rnd函數(shù)
n=0
List1．Clear’清除列表框中內容
List2．Clear
Do While n＜10
x= ①’產(chǎn)生[1，999]范圍內的隨機整數(shù)
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．市民卡是由人民政府授權發(fā)放給市民用于辦理個人相關事務和享受公共服務的集成電路卡（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