2017-2018學(xué)年浙江省臺州市臨海市大田中學(xué)高二（下）月考信息技術(shù)試卷（5月份）
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題3分，共36分．在每小題給出的四個選項中，只有一個是符合題目要求的）
-
1．下列有關(guān)信息和信息技術(shù)的說法不正確的是（ ?。?/h2>
組卷：28引用：3難度：0.9 -
2．二維碼是用某種特定的集合圖形按一定規(guī)律在平面上分布的黑白相間的圖形記錄數(shù)據(jù)符號信息．某在線二維碼生成器如圖所示：
下列說法正確的是（ ?。?/h2>組卷：21引用：4難度：0.9 -
3．小丁利用Word軟件編輯了一篇關(guān)于中國文字的文檔，部分界面如圖所示，下列說法正確的是（ ?。?br/>
組卷：9引用：4難度：0.9 -
4．使用Access軟件創(chuàng)建的“圖書征訂”數(shù)據(jù)表，其設(shè)計視圖的部分界面如圖所示。下列說法正確的是（ ?。?br/>
組卷：10引用：3難度：0.7 -
5．一個算法流程圖如圖所示，算法結(jié)束時，變量m的值為（ ）
組卷：0引用：3難度：0.5 -
6．如圖所示為在UltraEdit軟件中觀察字符內(nèi)碼的部分界面：下列說法正確的是（ ?。?br />
組卷：2引用：1難度：0.4
二、非選擇題（本大題共6小題．其中第13小題8分，第14小題12分，第15小題14分，第16小題6分，第17小題12分，第18小題12分，共64分）
-
17．十進(jìn)制轉(zhuǎn)二進(jìn)制
小明利用下面的方法將十進(jìn)制數(shù)x轉(zhuǎn)換為二進(jìn)制數(shù)y；如果x=0，則y=“0”；如果x=1，則y=“1“；否則y等于將x除2的商轉(zhuǎn)換為二進(jìn)制數(shù)，再連接上x除2余數(shù)的字符串。如此繼續(xù)，從而將十進(jìn)制數(shù)x轉(zhuǎn)換為二進(jìn)制數(shù)y。
從文本框TextD輸入一串不帶符號位的十進(jìn)制整數(shù)，單擊“轉(zhuǎn)換”按鈕，將十進(jìn)制轉(zhuǎn)換為二進(jìn)制并顯示在文本框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）觀察以上程序代碼，可知“轉(zhuǎn)換”按鈕的對象名為（單選，填字母：A．TextD/B．TextB/C．Commandl/D．Convert/E．轉(zhuǎn)換）
（2）請在橫線處填入合適的代碼。
第①處代碼為
第③處代碼為
第④處代碼為
（3）若在文本框TextD中輸入“10”，則單擊“轉(zhuǎn)換”按鈕后的輸出結(jié)果為：。組卷：0引用：1難度：0.5 -
18．小林和小王合作編寫了一個查詢英語單詞的VB程序：小林編寫一個過程，單擊“讀取數(shù)據(jù)庫”按鈕Command1，從一個數(shù)據(jù)庫中讀取英文單詞和中文含義，分別保存在a數(shù)組和b數(shù)組中，并顯示在List1中；小王編寫另一個過程，在文本框Text1中輸入要查詢的單詞，單擊“查詢”按鈕Command2，將查詢單詞的中文含義顯示在Text2中，程序界面如圖所示。
Constn=3500′存儲單詞的總數(shù)
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 （ ?。?br />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）分析程序，“英語單詞”和“中文含義”被保存在數(shù)據(jù)表中。
（2）按此要求編寫的程序如下，請在橫線處填入合適的代碼。
第①處代碼為
第②處代碼為
第③處代碼為組卷：0引用：1難度：0.4