2016-2017學年浙江教育綠色評價聯盟聯考高三（上）月考信息技術試卷（選考）
發布：2024/4/20 14:35:0
一、選擇題（共12小題，每小題2分，滿分24分）
-
1．下列有關信息的說法不正確的是（ ）
組卷：4引用：1難度：0.9 -
2．在下列事例中，其中用到了OCR技術的是（ ）
組卷：4引用：1難度：0.9 -
3．如圖所示為Word中的部分文檔內容，若在修訂處分別執行“接受刪除”與“拒絕插入”操作后，這一行文字將變為（ ）組卷：2引用：1難度：0.9 -
4．某張Access的數據表“字段名稱”與“數據類型”如圖所示，在該表中輸入數據時，下列操作能實現的是
（ ）組卷：2引用：1難度：0.5 -
5．某算法的流程圖如圖所示，若輸入k的值為4，則該算法的輸出結果為（ ）
組卷：3引用：1難度：0.7
二、解答題（共5小題，滿分26分）
-
16．小李編寫了一個分紅包的VB程度，對于m元分成n（n＜=20）個紅包的算法如下：
（1）先根據當前金額與待分配紅包數計算每份紅包的平均金額aver
（2）產生一個[0.01，aver*2]之間的隨機數作為第i個紅包金額a（i）
（3）將總金額減去a（i）后重復（1）
上述算法直到分配到n-1份，最后一份直接給a（n），運行界面如圖所示：
如總金額為200，紅包個數為10個，則第1個紅包在0.01到20之間產生，若產生的第1個紅包為17.45，則第2次的紅包在0.01到（200-17.45）/9*2之間產生．請在下列程序的橫線處填上正確的代碼，以實現上述功能．
Dim a（1 To 20）As Single
Private Sub Command1_Click（ ）
Dim n As Integer,m As Single
Dim aver As Single'平均值
n=Val（Text1．Text）'紅包總數
m=Val（Text2．Text）'總金額
Randomize
For i=1 To n-1
a（i）=Rnd*（aver*2）+0.01
a（i）=Int（a（i）*100+0.5）/100
m=m-a（i）
Next i
List1．Clear
For i=1 To n
List1．AddItem Str（a（i））
Next i
End Sub.組卷：1引用：1難度：0.3 -
17．每個ASCII字符在計算機中都以8位二進制碼存儲．比如，英文“Hello”中5個字母的ASCII碼值十進制表示分別為：72、101、108、108、111，它們在計算機內部存儲如下表所示：
現有加密算法如下：將上述表格中的二進制數以每2bit（位）取為一組編碼，則每組編碼對應的十進制數為0、1、2、3這四個數字中的一個，設定為B、D、F、Z來依次表示0、1、2、3，則任何字符信息都可以由B、D、F、Z四個字符組成的密文表示．
如上面的明文“Hello”，加密后可得到密文“DBFBDFDDDFZBDFZBDFZZ”，加密過程如圖所示：
（1）根據上述加密規則，若字母A的ASCII碼為65，則其密文為
（2）小張編寫了如下VB程序以實現上述功能，請完善橫線處代碼．
Function D2B（x As Integer） As String'將x轉換成二進制字符
Dim s As String,i As Integer
s=““
Do While x＞0
i=x Mod 2
s=CStr（i） & s'CStr（ ）函數的作用是將數值轉換為不帶空格的數字字符串
x=x\2
Loop
s=“00000000“+s
D2B='返回8位二進制數
End Function
Private Sub Command1_Click（ ）
Dim y As String,a As String'y為原文，m為對應的密文
Dim b As String,k As String
Dim a（3）As String,i As Integer,j As Integer
Dim r As String
Dim q As Integer'每2位二進制數對應的十進制值
m=““
a（0）=“B“=a（1）=“D“：a（2）=“F“：a（3）=“2“
y=Text1．Text
For i=1 To Len（y）
k=Mid（y,i,1）
b=D2B（Asc（k））
For j=1 To 8 Step 2
r=Mid（b,j,2）
m=m+a（q）
Next j
Label3．Caption=m
End Sub.組卷：0引用：1難度：0.3