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