2016-2017學(xué)年浙江省溫州新力量聯(lián)盟高二（下）期末信息技術(shù)試卷
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共9小題，每小題2分，共24分．每小題列出的四個(gè)備選項(xiàng)中只有一個(gè)是符合題目要求的，不選、多選、錯(cuò)選均不得分．）
-
1．下列有關(guān)信息的說(shuō)法，不正確的是（ ）
組卷：12引用：2難度：0.9 -
2．下列關(guān)于網(wǎng)站和網(wǎng)頁(yè)的說(shuō)法，正確的是（ ）
組卷：8引用：2難度：0.9 -
3．使用 OCR 軟件進(jìn)行字符識(shí)別，部分界面如圖所示
下列說(shuō)法不正確的是（ ）組卷：9引用：2難度：0.9 -
4．使用 Access 軟件創(chuàng)建的“無(wú)人機(jī)”數(shù)據(jù)表，其設(shè)計(jì)視圖的部分界面如圖所示．下列說(shuō)法 正確的是（ ）
組卷：4引用：2難度：0.7 -
5．某算法的部分流程圖如圖所示，輸入a 的值 23，執(zhí)行這部分流程后，變量 s 的值是（ ）
組卷：15引用：4難度：0.9
【加試題】
-
16．素?cái)?shù)是只能被 1 和它本身整除的數(shù)．小明編寫了一個(gè) VB 程序?qū)崿F(xiàn)將某個(gè)偶數(shù)拆成兩個(gè)素?cái)?shù)之和．拆分方法如下：
①先將偶數(shù)拆分成兩個(gè)數(shù)之和，例如將 50 拆分為：3+47，4+46、…47+3．
②再對(duì)每種組合中的兩個(gè)數(shù)分別進(jìn)行素?cái)?shù)判斷．
在文本框 Text1 輸入一個(gè)偶數(shù)，單擊“拆分”
按鈕 Command1 后，在列表框 List1 中顯示素?cái)?shù)組合．
程序運(yùn)行界面如圖所示．
實(shí)現(xiàn)上述功能的 VB 程序如下，但加框處代碼有錯(cuò)，請(qǐng)改正． Private Sub Command1_Click （ ）
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引用：1難度：0.1 -
17．公民身份號(hào)碼是特征組合碼，由十七位數(shù)字本體碼和一位校驗(yàn)碼組成．排列 順序從左至右依次為：六位數(shù)字地址碼，八位數(shù)字出生日期碼，三位數(shù)字順序碼和一位數(shù)字 校驗(yàn)碼．?dāng)?shù)字校驗(yàn)碼的計(jì)算過(guò)程如下三步所示：
①對(duì)身份證號(hào)碼的前 17 位數(shù)字的權(quán)求和
s=Sum（sfz（i）*jq（i）），i=1，…，17 其中，sfz（i）：表示第 i 位置上的身份證號(hào)碼數(shù)字值
jq（i）：表示第 i 位置上的加權(quán)因子
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
③通過(guò)模得到對(duì)應(yīng)的校驗(yàn)碼
模（y）：0 1 2 3 4 5 6 7 8 9 10 校驗(yàn)碼（jym）：1 0X 9 8 7 6 5 4 3 2
小明編寫了一個(gè)驗(yàn)證 18 位身份證校驗(yàn)碼的 VB 程序，實(shí)現(xiàn)功能如下：?jiǎn)螕簟靶ｒ?yàn)”按鈕 Command1，程序從數(shù)據(jù)庫(kù)讀取相關(guān)數(shù)據(jù)進(jìn)行處理，在列表框 List1 中顯示身份證號(hào)碼及判斷 檢驗(yàn)碼是否正確的結(jié)果．VB 程序運(yùn)行界面如圖所示．
實(shí)現(xiàn)上述功能的 VB 程序如下，請(qǐng)回答下列問(wèn)題：
（1）解決此問(wèn)題所用的算法是．（選填：解析算法或枚舉算法）
（2）請(qǐng)?jiān)跈M線處填入合適的代碼．
Dim sfz（1To 100）As String'存放身份證號(hào)碼
Dim jq（1To 100）As Integer'存放加權(quán)因子
Dim jiegAs String'存放判斷結(jié)果
Private Sub Form_Load （ ）
'本過(guò)程從數(shù)據(jù)庫(kù)中讀取身份證號(hào)碼、加權(quán)因子分別存儲(chǔ)到數(shù)組 sfz、jq 中，存儲(chǔ)在相應(yīng) 的數(shù)組中
'代碼略
End Sub
Private Sub Command1_Click （ ）
For i=1To n'變量 n 指的是從數(shù)據(jù)庫(kù)讀取的身份證號(hào)碼個(gè)數(shù)
jieg=
List1．AddItem sfz（i）+““+jieg
Next i
End Sub
Function jy（sfz1As String） As String'對(duì)身份證的校驗(yàn)碼進(jìn)行校驗(yàn)
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=“錯(cuò)誤！“
End If
End Function.組卷：7引用：1難度：0.1