2017-2018學年浙江省臺州市臨海市大田中學高二（下）月考信息技術試卷（5月份）
發布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題3分，共36分．在每小題給出的四個選項中，只有一個是符合題目要求的）
-
1．下列有關信息和信息技術的說法不正確的是（ ）
組卷：28引用：3難度：0.9 -
2．二維碼是用某種特定的集合圖形按一定規律在平面上分布的黑白相間的圖形記錄數據符號信息．某在線二維碼生成器如圖所示：
下列說法正確的是（ ）組卷：21引用：4難度：0.9 -
3．小丁利用Word軟件編輯了一篇關于中國文字的文檔，部分界面如圖所示，下列說法正確的是（ ）
組卷：9引用：4難度：0.9 -
4．使用Access軟件創建的“圖書征訂”數據表，其設計視圖的部分界面如圖所示。下列說法正確的是（ ）
組卷：10引用：3難度：0.7 -
5．一個算法流程圖如圖所示，算法結束時，變量m的值為（ ）
組卷：0引用：3難度：0.5 -
6．如圖所示為在UltraEdit軟件中觀察字符內碼的部分界面：下列說法正確的是（ ）
組卷：2引用：1難度：0.4
二、非選擇題（本大題共6小題．其中第13小題8分，第14小題12分，第15小題14分，第16小題6分，第17小題12分，第18小題12分，共64分）
-
17．十進制轉二進制
小明利用下面的方法將十進制數x轉換為二進制數y；如果x=0，則y=“0”；如果x=1，則y=“1“；否則y等于將x除2的商轉換為二進制數，再連接上x除2余數的字符串。如此繼續，從而將十進制數x轉換為二進制數y。
從文本框TextD輸入一串不帶符號位的十進制整數，單擊“轉換”按鈕，將十進制轉換為二進制并顯示在文本框TextB中。
程序界面如圖所示：
Private Sub Convert_Click）
DIMx as integer X=val（TextD．Text）
TextB．Text=①
End Sub Function DToB（m As Integer）As String
IF m=0 then
②
ELSEIF ③then
DTOB=″1″
ELSE
④
END IF
End Function
（1）觀察以上程序代碼，可知“轉換”按鈕的對象名為（單選，填字母：A．TextD/B．TextB/C．Commandl/D．Convert/E．轉換）
（2）請在橫線處填入合適的代碼。
第①處代碼為
第③處代碼為
第④處代碼為
（3）若在文本框TextD中輸入“10”，則單擊“轉換”按鈕后的輸出結果為：。組卷：0引用：1難度：0.5 -
18．小林和小王合作編寫了一個查詢英語單詞的VB程序：小林編寫一個過程，單擊“讀取數據庫”按鈕Command1，從一個數據庫中讀取英文單詞和中文含義，分別保存在a數組和b數組中，并顯示在List1中；小王編寫另一個過程，在文本框Text1中輸入要查詢的單詞，單擊“查詢”按鈕Command2，將查詢單詞的中文含義顯示在Text2中，程序界面如圖所示。
Constn=3500′存儲單詞的總數
Dim a（1 To n）As String′依次存儲每個英語單詞
Dim b（1 To n）As String′依次存儲每個英語單詞的中文含義
Private Sub Command1_Click （ ）
Dim conn As New ADODB．Connection
Dim rs As New ADODB．Recordset
Dim strSQL As String
conn.Connectionstring=″Provider-Microsoft.ACE．OLEDB.12.0；Data source=″&App.Path&
″\dictionary l.jye.ai″
strSQL=″select*from list″
conn.Open
Set rs.ActiveConnection=conn
rs.Open strSQL
num=0
Do While Not rs.EOF
num=num+1
a（num）=rs.Fields（″英語單詞″）
b（num）=rs.Fields（″中文含義″）
①
Loop
rs.Close
conn.Close
Set rs=Nothing
Set conn=Nothing
Fori=1Ton
Listl.Addltem a（i）+““+b（i）
Nexti
End Sub
Private Sub Command2_Click （ ）
Dims As String,t as integer
s=Text1．Text
t=search（s）
If t=-1 Then
Text2．text=″找不到該單詞″
Else
Text2．text=②
End If
End Sub
Function search（key As String）As Integer
Dim i,jAs Integer
Dim mid1，mid2As Integer
i=1：j=n
search=-1
Do Whilei＜=j
mid1=Int（i+j-i）/3）
mid2=Int（j（j-i）/3）
If key=a（mid1）Then
search=mid1
Exit Do
Elself key＜a（midl）Then
j=midl-1
Elself key=a（mid2）Then
search=mid2
Exit Do
Elself key＞a（mid2）Then
Else
i=mid1+1
③
End If
Loop
End Function
（1）分析程序，“英語單詞”和“中文含義”被保存在數據表中。
（2）按此要求編寫的程序如下，請在橫線處填入合適的代碼。
第①處代碼為
第②處代碼為
第③處代碼為組卷：0引用：1難度：0.4