2016-2017學(xué)年浙江省衢州市高三（上）質(zhì)檢信息技術(shù)試卷
發(fā)布：2024/4/20 14:35:0
一、選擇題（共12小題，每小題2分，滿分24分）
-
1．在微信朋友圈給好友發(fā)布的信息點(diǎn)贊，屬于信息評(píng)價(jià)中的（ ?。?/h2>
組卷：5引用：2難度：0.9 -
2．2016年9月，搜狗CEO王小川在世界第三屆互聯(lián)網(wǎng)大會(huì)上發(fā)布了機(jī)器同傳新產(chǎn)品，該產(chǎn)品能將演講嘉賓的中文實(shí)時(shí)同步翻譯為英文，并顯示在屏幕上．這一產(chǎn)品主要應(yīng)用的技術(shù)是（ ?。?/h2>
組卷：3引用：1難度：0.9 -
3．在某網(wǎng)站上注冊(cè)會(huì)員時(shí)，手機(jī)收到一個(gè)驗(yàn)證碼短信，內(nèi)容為：“尊敬的顧客，您在××網(wǎng)站注冊(cè)，驗(yàn)證碼為：******”．注冊(cè)人填寫該驗(yàn)證碼，表明手機(jī)為注冊(cè)人所有，才能通過(guò)注冊(cè)，這一過(guò)程是確保信息的（ ?。?/h2>
組卷：3引用：1難度：0.9 -
4．小王想買一臺(tái)筆記本電腦，在某網(wǎng)站瀏覽時(shí)的部分頁(yè)面如圖所示．由圖可知，小王對(duì)筆記本電腦的篩選條件是
（ ?。?/h2>組卷：4引用：1難度：0.5 -
5．小明使用Access創(chuàng)建“檔案”數(shù)據(jù)表，其設(shè)計(jì)視圖的部分界面如圖所示．下列說(shuō)法正確的是（ ?。?br />
組卷：2引用：1難度：0.7
二、解答題（共5小題，滿分26分）
-
16．一個(gè)整數(shù)n（n≥11）從左向右和從右向左讀其結(jié)果相同，且是素?cái)?shù)，則稱n為回文素?cái)?shù)，例如133 020 331是回文素?cái)?shù)．小張?jiān)O(shè)計(jì)一個(gè)VB程序用于找出1000以內(nèi)的所有回文素?cái)?shù)，程序運(yùn)行界面如圖所示．實(shí)現(xiàn)上述功能的VB程序如下，但加框處代碼有誤，請(qǐng)改正．
Private Sub Command1_Click（ ）
Dim n As Interger,j As Integer,m As Integer
'（1）
Do While n＜1000'判斷是否為素?cái)?shù)
m=Int（Sqr（n））
For j=2 To m
If n Mod j=0 Then Exit For
Next j
If j＞m Then
If hws（n）=Ture Then
List 1．AddItemStr（n）
EndIf
EndIf
n=n+2
Loop
End Sub
Function hws（n As Integer）As Boolean'判斷所給n是不是回文數(shù)
Dim j,k As Integer
Dim m As String
Dim a As Integer,b As Integer
hws=True
m=Str（n）
k=Len（m）
For j=1 To k\2
a=Val（Mid（m,j,l）
b=
'（2）
If a＜＞b Then
hws=False
Exit For
EndIf
Next j
End Function.組卷：2引用：1難度：0.3 -
17．小李設(shè)計(jì)了一個(gè)插入排序的VB程序，功能如下：在列表框List1中按成績(jī)從低到高顯示每個(gè)學(xué)生的姓名和成績(jī)，在文本框Text1中輸入一個(gè)學(xué)生的姓名，在文本框Text2中輸入這位學(xué)生的成績(jī)，單擊“插入排序”按鈕Command1，檢查數(shù)組列表中的學(xué)生成績(jī)，將其插入到適當(dāng)位置，保持成績(jī)有序，并在列表框List2中顯示插入后的學(xué)生姓名和成績(jī)序列．程序運(yùn)行界面如圖所示．
實(shí)現(xiàn)以上功能的VB程序如下，請(qǐng)回答下列問(wèn)題：
（1）小李使用的查找算法是（填：順序查找/對(duì)分查找）．
（2）分析程序，可知關(guān)閉記錄集對(duì)象的語(yǔ)句為．
（3）請(qǐng)?jiān)诋嬀€處填入合適的代碼．
Dim m（1 To 20）As String
Dim s（1 To 20）As Integer
Dim n As Integer
Private Sub Form_Load（ ）
Dim conn As New ADODB．Connection'定義新的數(shù)據(jù)庫(kù)連接
Dim rs As New ADODB．Recordset'定義數(shù)據(jù)庫(kù)的一個(gè)對(duì)象
conn.ConnectionString=“provider=Microsoft.ACE．OLEDB.12.0；data source=“& App.Path &“\fwdh.jye.ai“'設(shè)置conn的數(shù)據(jù)庫(kù)鏈接字符串
conn.Open'找開(kāi)數(shù)據(jù)庫(kù)鏈接
Set rs.ActiveConnection=conn'設(shè)置rs的ActiveConnection屬性，關(guān)聯(lián)conn
rs.Open“select * from fwdh“'打開(kāi)數(shù)據(jù)庫(kù)中的表 fwdh
n=0
Do While Not rs.EOF
n=n+1
m（n）=rs.Fields（0）
s（n）=rs.Fields（1）
List1．AddItem rs.Fields（“姓名“）&““& rs.Fields（“成績(jī)“）
rs.MoveNext
Loop
rs.Close
conn.Close
End Sub
Private Sub command1_click （ ?。?br /> Dim x As String,y As Integer
x=Text1．Text
y=Val（Text2．Text）
i=n
Do While'①
s（i+1）=s（i）
m（i+1）=m（i）
i=i-1
Loop'②'③
For i=1 To n+1
List2．AddItem m（i）&““&Str（s（i））
Next i
End Sub.組卷：3引用：1難度：0.1