2016-2017學(xué)年浙江省稽陽聯(lián)誼學(xué)校高三（上）月考信息技術(shù)試卷
發(fā)布：2024/4/20 14:35:0
一、選擇題（共12小題，每小題2分，滿分24分）
-
1．下列做法符合信息安全的是（ ）
①用智能手機(jī)隨意掃描商家發(fā)來的二維碼以便獲取優(yōu)惠
②網(wǎng)上下載共享軟件后先查殺病毒再安裝使用
③不隨意打開陌生郵件中的exe格式的附件
④為方便記憶用自己的出生年月作為網(wǎng)上銀行登錄密碼
⑤定期安裝操作系統(tǒng)補(bǔ)丁并升級殺毒軟件．組卷：3引用：1難度：0.9 -
2．某人注冊電子郵箱，界面如圖所示，則下列說法不正確的是（ ?。?br />
組卷：4引用：1難度：0.9 -
3．下列應(yīng)用不屬于人工智能的是（ ?。?/h2>
組卷：2引用：1難度：0.9 -
4．下列關(guān)于數(shù)據(jù)庫描述不正確的是（ ?。?/h2>
組卷：6引用：1難度：0.5 -
5．某算法的部分流程圖如圖所示，執(zhí)行該流程圖，下列描述正確的是（ ?。?/h2>組卷：11引用：4難度：0.7
二、解答題（共5小題，滿分26分）
-
16．某人編寫了一個VB程序?qū)σ唤M隨機(jī)數(shù)進(jìn)行排名．程序運(yùn)行時，產(chǎn)生10個隨機(jī)整數(shù)，并在列表框List1中顯示，單擊按鈕Command1，在列表框List2中顯示降序排序后數(shù)據(jù)及名次，若數(shù)值相同則名次相同．實(shí)現(xiàn)上述功能的VB代碼如下，但加框處代碼有錯，請改正．
Const n=10
Dim d（1 To n）As Integer,pm（1 To n）As Integer
Private Sub From-Load（ ?。?br />'代碼略，本過程功能：產(chǎn)生10個隨機(jī)整數(shù)，存儲在數(shù)組變量d中并在列表框'List1中顯示
End Sub
Private Sub Command_Click （ ?。?br /> Dim i As Integer,j As Integer,k As Integer,t As Integer
i=1
Do While i＜=n-1
k=i
For j=i+1 To n
If
Then k=j'（1）
Next j
If i＜＞k Then t=d（i）：d（i）=d（k）：d（k）=t
i=i+1
Loop
pm（1）=l
For i=2 To n
If
Then'（2）
pm（i）=i
Else
pm（i）=pm（i-1）
EndIf
Next i
For i=1 To n
List2．AddItemStr（i）+““+Str（d（i）））+““+“第“+Str（pm（i）））+“名“
Next i
End Sub
（1）處應(yīng)改為；
（2）處應(yīng)改為．組卷：1引用：1難度：0.3 -
17．居民身份證號碼由十七位數(shù)字本體碼和一位數(shù)字校驗(yàn)碼組成．從左至右依次為：六位地址碼，八位出生日期碼，三位順序碼和一位校驗(yàn)碼．校驗(yàn)碼生成步驟如下：
（1）把身份證前17位的每個數(shù)字和加權(quán)因子相乘并累加求和，再與11做取余運(yùn)算得到序號，即序號≡∑（ai×Wi）Mod11（i≡2～18）；i表示號碼字符的位置，身份證號左邊開始第1位的位置為18，最后一位的位置為1，ai表示第i位置上的號碼字符的值；Wi表示第i位置上的加權(quán)因子，通過公式w（i）=2^（i-1）Mod11計(jì)算得到．
（2）根據(jù)步驟（1）得到的序號提取校驗(yàn)碼字符．對應(yīng)關(guān)系如下，如：0對應(yīng)校驗(yàn)碼“1”．
若步驟（2）中提取的校驗(yàn)碼和身份證最后一位相同，則校驗(yàn)通過，否則校驗(yàn)失?。橙烁鶕?jù)上述原理設(shè)計(jì)了一個身份證校驗(yàn)VB程序，功能如下：程序啟動時從數(shù)據(jù)庫student.jye.ai中讀入全校學(xué)生身份證數(shù)據(jù)（全校共15個班級），并在列表框List1中顯示，單擊“校驗(yàn)”按鈕Command1，在列表框List2中輸出各班身份證號出錯學(xué)生的信息和出錯人數(shù)，若某班無出錯學(xué)生，則不顯示．程序界面如圖所示（身份證號、姓名中的部分內(nèi)容不顯示）．余數(shù) 0 1 2 3 4 5 6 7 8 9 10 校驗(yàn)碼 1 0 X 9 8 7 6 5 4 3 2 
實(shí)現(xiàn)上述功能的VB程序如下，請回答下列問題：
（1）某人身份證號的前17位為“33062119910206004”，根據(jù)步驟（1）中的公式∑（ai×Wi）Mod11計(jì)算可得序號為2，則該身份證最后一位字符應(yīng)該是．
（2）分析程序，可知存放學(xué)生身份證信息的數(shù)據(jù)表為．
（3）請?jiān)诋嬀€處填入合適的代碼．
Const max=10 00
Dim n As Integer'存放學(xué)生人數(shù)
Dim sfzh（1 To max） As String,
xm（1 To max） As String
'數(shù)組sfzh、xm分別存放學(xué)生身份證號、姓名
Dim bj（1 To max） As Integer,flash（1 To max） As Boolean
'數(shù)組bj、flash分別存放學(xué)生班級、身份證校驗(yàn)結(jié)果
Dim cw（1 To 15）As Integer'數(shù)組cw存放各班身份證號出錯人數(shù)
Function check（x As String ） As Boolean'本函數(shù)功能：校驗(yàn)身份證號x,若
'校驗(yàn)通過返回True；否則返回False
Dim i As Integer,sum As Integer,xh As Integer,jym As String
Dim a（1 To 18）As Integer,w（1 To 18）As Integer
jym=“10X98765432“：sum=0
For i=18 To 2 Step-1
a（i）=Val（Mid（x,19-i,1））
Next i
For i=18 To 1 Step-1
w（i）=2^（i-1）Mod11
Next i
For i=2 To 18
sum=sum+a（i）*w（i）
Next i
xh=sum Mod 11
IfThen check=True Else check=False
End Function
Private Sub From-Load（ ?。?br />'本過程從數(shù)據(jù)庫中讀入指定數(shù)據(jù)到數(shù)組sfzh、xm、bj,并在List1中顯示
Dim conn As New ADODB．Connection
Dim rs As New ADODB．Recordset
conn.ConnectionString=“provide=microsoft.ace.jye.ai.12.0；data
source=“+App.Path+“\student.jye.ai“
conn.Open
Set rs.ActiveConnection=conn
rs.Open“select*from stu-info“
'本過程其他語句略，學(xué)生人數(shù)存變量n,數(shù)組cw各元素初值置為0
End Sub
Private Sub Command1_Click （ ）
Dim i As Integer,j As Integer
For i=1 To n
IfThen flag（i）=True Else flag（i）=False
Next i
For i=1 To 15
For j=1 To n
If bj（j）=i And flash（j）=Flash Then
Lise2．AddItem sfzh（j）+““+xm（j）
EndIf
Next j
If cw（i）＞0 Then
Lise2．AddItem Str（i）+“班共有以上“+Str（cw（i））+“個身份證號錯誤“
Lise2．AddItem““
EndIf
Next i
End Sub
（1）①處應(yīng)填；
（2）②處應(yīng)填；
（3）③處應(yīng)填．組卷：1引用：1難度：0.3