2016-2017學年浙江省衢州市高三（上）質檢信息技術試卷
發布：2024/4/20 14:35:0
一、選擇題（共12小題，每小題2分，滿分24分）
-
1．在微信朋友圈給好友發布的信息點贊，屬于信息評價中的（ ）
組卷：5引用：2難度：0.9 -
2．2016年9月，搜狗CEO王小川在世界第三屆互聯網大會上發布了機器同傳新產品，該產品能將演講嘉賓的中文實時同步翻譯為英文，并顯示在屏幕上．這一產品主要應用的技術是（ ）
組卷：3引用：1難度：0.9 -
3．在某網站上注冊會員時，手機收到一個驗證碼短信，內容為：“尊敬的顧客，您在××網站注冊，驗證碼為：******”．注冊人填寫該驗證碼，表明手機為注冊人所有，才能通過注冊，這一過程是確保信息的（ ）
組卷：3引用：1難度：0.9 -
4．小王想買一臺筆記本電腦，在某網站瀏覽時的部分頁面如圖所示．由圖可知，小王對筆記本電腦的篩選條件是
（ ）組卷：4引用：1難度：0.5 -
5．小明使用Access創建“檔案”數據表，其設計視圖的部分界面如圖所示．下列說法正確的是（ ）
組卷：2引用：1難度：0.7
二、解答題（共5小題，滿分26分）
-
16．一個整數n（n≥11）從左向右和從右向左讀其結果相同，且是素數，則稱n為回文素數，例如133 020 331是回文素數．小張設計一個VB程序用于找出1000以內的所有回文素數，程序運行界面如圖所示．實現上述功能的VB程序如下，但加框處代碼有誤，請改正．
Private Sub Command1_Click（ ）
Dim n As Interger,j As Integer,m As Integer
'（1）
Do While n＜1000'判斷是否為素數
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是不是回文數
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．小李設計了一個插入排序的VB程序，功能如下：在列表框List1中按成績從低到高顯示每個學生的姓名和成績，在文本框Text1中輸入一個學生的姓名，在文本框Text2中輸入這位學生的成績，單擊“插入排序”按鈕Command1，檢查數組列表中的學生成績，將其插入到適當位置，保持成績有序，并在列表框List2中顯示插入后的學生姓名和成績序列．程序運行界面如圖所示．
實現以上功能的VB程序如下，請回答下列問題：
（1）小李使用的查找算法是（填：順序查找/對分查找）．
（2）分析程序，可知關閉記錄集對象的語句為．
（3）請在畫線處填入合適的代碼．
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'定義新的數據庫連接
Dim rs As New ADODB．Recordset'定義數據庫的一個對象
conn.ConnectionString=“provider=Microsoft.ACE．OLEDB.12.0；data source=“& App.Path &“\fwdh.jye.ai“'設置conn的數據庫鏈接字符串
conn.Open'找開數據庫鏈接
Set rs.ActiveConnection=conn'設置rs的ActiveConnection屬性，關聯conn
rs.Open“select * from fwdh“'打開數據庫中的表 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（“成績“）
rs.MoveNext
Loop
rs.Close
conn.Close
End Sub
Private Sub command1_click （ ）
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