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