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)天到店可通過(guò)手機(jī)掃碼進(jìn)入商家店鋪領(lǐng)取更多的優(yōu)惠券,此掃碼過(guò)程屬于( )
組卷: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ā)送給老師( )
組卷:6引用:1難度:0.9 -
4.某Access數(shù)據(jù)表打開(kāi)后如圖所示,下列描述中正確的是( ?。?br />
組卷:3引用:2難度:0.7 -
5.語(yǔ)句“i=3:s=1/(i-3)”無(wú)法執(zhí)行,原因是它違反了算法特征中的( )
組卷:18引用:3難度: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(yǔ)句或表達(dá)式,把程序補(bǔ)充完整.
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ì)已經(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)余額;否則顯示“查無(wú)此人”.程序如下,請(qǐng)按要求將程序補(bǔ)充完整.
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+“的卡內(nèi)余額為“+b+“元”
Exit if
else
rs.movenext
end if
loop
if n=500then Label1.caption=“查無(wú)此人”
rs.close
conn.close
set rs=nothing
set conn=nothing
End Sub
(1)程序中①橫線處應(yīng)填入
(2)程序中②橫線處應(yīng)填入組卷:3引用:1難度:0.1