2016-2017學年浙江省溫州新力量聯(lián)盟高二（下）期末信息技術試卷
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共9小題，每小題2分，共24分．每小題列出的四個備選項中只有一個是符合題目要求的，不選、多選、錯選均不得分．）
-
1．下列有關信息的說法，不正確的是（ ?。?/h2>
組卷：12難度：0.9 -
2．下列關于網站和網頁的說法，正確的是（ ?。?/h2>
組卷：8難度：0.9 -
3．使用 OCR 軟件進行字符識別，部分界面如圖所示
下列說法不正確的是（ ?。?/h2>組卷：9引用：2難度：0.9 -
4．使用 Access 軟件創(chuàng)建的“無人機”數據表，其設計視圖的部分界面如圖所示．下列說法 正確的是（ ?。?img alt src="https://img.jyeoo.net/quiz/images/201708/221/dbde6a89.png" style="vertical-align:middle" />
組卷：4引用：2難度：0.7 -
5．某算法的部分流程圖如圖所示，輸入a 的值 23，執(zhí)行這部分流程后，變量 s 的值是（ ?。?br />
組卷：15引用：4難度：0.9
【加試題】
-
16．素數是只能被 1 和它本身整除的數．小明編寫了一個 VB 程序實現(xiàn)將某個偶數拆成兩個素數之和．拆分方法如下：
①先將偶數拆分成兩個數之和，例如將 50 拆分為：3+47，4+46、…47+3．
②再對每種組合中的兩個數分別進行素數判斷．
在文本框 Text1 輸入一個偶數，單擊“拆分”
按鈕 Command1 后，在列表框 List1 中顯示素數組合．
程序運行界面如圖所示．
實現(xiàn)上述功能的 VB 程序如下，但加框處代碼有錯，請改正． Private Sub Command1_Click （ ?。?br />Dim i As Integer,k As Integer i=Val（Text1．Text）
For k=3To i\2
If prime（k） And
Then List1．AddItem Str（k） &“+“& Str（i-k）
End If
Next k End Sub
Function prime（x As Integer） As Boolean
Dim j As Integer
prime=True
For j=2To Sqr（x）
If
=0Then
prime=False
Exit Function
End If
Next j
End Function.組卷：6難度：0.1 -
17．公民身份號碼是特征組合碼，由十七位數字本體碼和一位校驗碼組成．排列 順序從左至右依次為：六位數字地址碼，八位數字出生日期碼，三位數字順序碼和一位數字 校驗碼．數字校驗碼的計算過程如下三步所示：
①對身份證號碼的前 17 位數字的權求和
s=Sum（sfz（i）*jq（i）），i=1，…，17 其中，sfz（i）：表示第 i 位置上的身份證號碼數字值
jq（i）：表示第 i 位置上的加權因子
jq（1）至 jq（17）依次為：7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2
②求模 y
y=s Mod 11
③通過模得到對應的校驗碼
模（y）：0 1 2 3 4 5 6 7 8 9 10 校驗碼（jym）：1 0X 9 8 7 6 5 4 3 2
小明編寫了一個驗證 18 位身份證校驗碼的 VB 程序，實現(xiàn)功能如下：單擊“校驗”按鈕 Command1，程序從數據庫讀取相關數據進行處理，在列表框 List1 中顯示身份證號碼及判斷 檢驗碼是否正確的結果．VB 程序運行界面如圖所示．
實現(xiàn)上述功能的 VB 程序如下，請回答下列問題：
（1）解決此問題所用的算法是．（選填：解析算法或枚舉算法）
（2）請在橫線處填入合適的代碼．
Dim sfz（1To 100）As String'存放身份證號碼
Dim jq（1To 100）As Integer'存放加權因子
Dim jiegAs String'存放判斷結果
Private Sub Form_Load （ ?。?br />'本過程從數據庫中讀取身份證號碼、加權因子分別存儲到數組 sfz、jq 中，存儲在相應 的數組中
'代碼略
End Sub
Private Sub Command1_Click （ ?。?br />For i=1To n'變量 n 指的是從數據庫讀取的身份證號碼個數
jieg=
List1．AddItem sfz（i）+““+jieg
Next i
End Sub
Function jy（sfz1As String） As String'對身份證的校驗碼進行校驗
Dim s As Integer,y As Integer,r As Integer
Dim djym As String
jym=“10X98765432“
For i=1To 17
r=Val（Mid（sfz1，i,1））*
s=s+r
Next i
y=s Mod 11
djym=
If djym=Mid（sfz1，18，1）Then
jy=“正確！“
Else
jy=“錯誤！“
End If
End Function.組卷：7引用：1難度：0.1