2018-2019學年浙江省臺州市書生中學高二（上）第一次月考信息技術試卷
發布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分．在每小題給出的四個選項中，只有一個符合題目要求）
-
1．下列有關信息的說法，正確的是（ ）
組卷：13引用：1難度：0.6 -
2．某二進制數11□101□0，其中兩位數模糊不清，下列說法正確的是（ ）
組卷：27引用：2難度：0.3 -
3．使用 UltraEdit 軟件觀察字符“2018，Lucky！”的內碼，部分界面如圖所示。
下列說法不正確的是（ ）組卷：12引用：1難度：0.9 -
4．一幅未經壓縮的 1024×768 像素、256 色真彩色 BMP 圖象，其存儲容量約為（ ）
組卷：7引用：3難度：0.7 -
5．將一個時長為1分鐘、分辨率為800*600的NTSC制式的黑白動畫壓縮為MPEG格式文件，壓縮后的文件大小為10MB，則其壓縮比約為（ ）
組卷：3引用：1難度：0.4
二、非選擇題：（本大題共4小題，其中第13題和第14題每題6分，第15題和第16題每題7分，共26分）
-
15．素數只能被1和它本身整除，不能被其他自然數整除。編寫VB程序實現如下功能：單擊“產生奇數并判斷”按鈕Command1，隨機產生一個三位正奇數顯示在文本框Text1中，并在文本框Text2中顯示其是否為素數的判斷結果。例如，當隨機產生的三位正奇數為953時，程序運行界面如圖a所示。
（1）在設計程序界面時，應使用圖b所示“控件工具箱”中的（填寫相應編號）添加文本框Text1。
（2）實現上述功能的VB程序如下，請在橫線處填寫合適的代碼。
Private Sub Command1_Click （ ）
Dim n As Integer,i As Integer
Dim flag As Boolean‘用于標記是否為素數
Randomize
n=Int（ ①）*2+1‘隨機生成三位正奇數
Text1．Text=Str（n）
flag=True‘標記為素數
i=3
Do While i＜=n-1And flag=True
If n Mod i=0 ②
i=i+2
Loop
If flag=true Then
Text2．Text=Str（n）+“是素數”
Else
Text2．Text=Str（n）+“不是素數”
End If
End Sub
（3）以下選項中，與加框處表達式“n Mod i=0”等價的是（單選，填字母）。
A．n\i=Int（n/i）B．n\i=n/i C．n Mod i=n\i組卷：8引用：2難度：0.4 -
16．我國居民身份證號是由 18 位字符組成，其中前 17 位是數字，第 18 位是校驗位（校驗位字符在“0”～“9”或“X”中選取）。由前 17 位數字經過一定的規則計算得到校驗值，在查驗居民身份證號有效性時，如果校驗位中的字符與計算所得校驗值相等則身份證號有效，否則無效。
校驗值計算規則如下：
第一步：將身份證號前 17位數字分別乘以不同的系數后相加，對應系數如下表所示。
第二步：將第一步的計算結果除以 11，得到余數。第三步：根據第二步的計算結果從下表獲取對應的校驗值。位數 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 系數 7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2
例如：某身份證號為 34052419800101001X．要計算此身份證的校驗值步驟如下：第一步：計算 3*7+4*9+0*10+5*5+……+1*2=189余數 0 1 2 3 4 5 6 7 8 9 10 校驗值 1 0 X 9 8 7 6 5 4 3 2
第二步：189 除以 11 得到余數為 2
第三步：由余數 2 獲取校驗值 X。
根據以上規則小王編寫了一個驗證身份證號是否有效的 VB 程序，功能如下：在文本框 Text1 中輸入身份證號，單擊“驗證”按鈕 Command1 后，在列表框 List1 中顯示驗證結果。程序運行界面如圖 a 所示。
（1）設計程序界面時，應使用圖 b 中的（填寫相應編號）添加列表框對象 List1。
（2）實現上述功能的 VB 程序如下，請在橫線處填入合適代碼。
Private Sub Command1_Click （ ）
Dim i As Integer,a As Integer,b As Integer,sum As Integer,pos As Integer
Dim idCode As String,result As String
Const xs=“0709100508040201060307091005080402“'存儲前 17 位每位系數
Const checkCodeStr=“10X98765432“'存儲余數對應的檢驗值
①
sum=0
For i=1To 17Step 1
a=Val（Mid（idCode,i,1））
b=②
sum=sum+a*b
Next i
sum Mod 11
pos=
checkCode=Mid（checkCodeStr,pos,1）
sum Mod 11
sum Mod 11
sum Mod 11
sum Mod 11
sum Mod 11
sum Mod 11
sum Mod 11
sum Mod 11
sum Mod 11
sum Mod 11
If checkCode=Mid（idCode,18，1）Then result=“有效“
Else
result=“無效“
End if
List1．AddItem （idCode &““& result）
End Sub
（3）程序中加框處代碼有誤，應修改為。組卷：3引用：1難度：0.4