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