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