2018-2019學(xué)年浙江省臺(tái)州市書生中學(xué)高二(上)第三次月考信息技術(shù)試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分.在每小題給出的四個(gè)選項(xiàng)中,只有一個(gè)符合題目要求)
-
1.下列有關(guān)信息的說法,不正確的是( )
組卷:9引用:1難度:0.6 -
2.下列應(yīng)用中,體現(xiàn)了人工智能技術(shù)的有( ?。?br />①停車場車牌識(shí)別技術(shù)的應(yīng)用
②Word軟件的查找、替換功能
③手機(jī)延時(shí)30秒暗屏
④手機(jī)微信搖一搖識(shí)別歌曲名稱
⑤二維碼識(shí)別
⑥刷臉考勤組卷:15引用:8難度:0.9 -
3.關(guān)于二進(jìn)制、十進(jìn)制與十六進(jìn)制的整數(shù),下列說法正確的是( ?。?/h2>
組卷:13引用:2難度:0.4 -
4.使用UltraEdit軟件查看字符內(nèi)碼,部分界面如圖所示。
圖中內(nèi)碼所對應(yīng)的字符是( ?。?/h2>組卷:14引用:1難度:0.3 -
5.用OCR軟件進(jìn)行文字識(shí)別時(shí),部分界面如圖所示,分析圖中信息,下列說法正確的是( ?。?br />
組卷:4引用:3難度:0.7
二、非選擇題:(本大題共5小題,其中第13題4分,第14題6分,第15題5分,第16題5分,第17題6分,共26分)
-
16.小劉編寫了一個(gè)求序列所有子序列和的程序。程序能夠輸 出所有的子序列的和,同時(shí)輸出最大的子序列和。如序列中有三個(gè)元素 a(1),a(2),a(3),其子序列包括“a(1),a(2)”,“a(1),a(2),a(3)”,“a(2),a(3)”。 程序運(yùn)行界面如圖所示。
實(shí)現(xiàn)上述功能的VB程序如下(數(shù)組每一項(xiàng)的值都為[-100,100]內(nèi)的隨機(jī)整數(shù)),請將程序代碼補(bǔ)充完整。
Private Sub Command1_Click ( ?。?br />Dim a(1To10)AsInteger
Dim b(10)AsInteger
Dim i As Integer,j As Integer
Dim k As Integer,max As Integer
Randomize
max=-32768
List1.Clear
List2.Clear
b(0)=0
Fori=1To10
a(i)=
b(i)=b(i-1)+a(i)
List1.AddItemStr(a(i))
Nexti
Fori=1To10
Forj=i+1To10
s=“a(“+Str(i)+“)“+“至“+“a(“+Str(j)+“)“+“的和為“
k=
If k>maxThen max=k
List2.AddItem s+Str(k)
Nextj
Nexti
Label3.Caption=“子序列最大和為:“+
EndSub組卷:2引用:1難度:0.4 -
17.在一個(gè)文檔中,每行包含一個(gè)字符串?,F(xiàn)使用如下規(guī)則對其壓縮:壓縮時(shí),對于每個(gè)字符串求其與前一字符串的公共前綴,然后使用公共前綴的長度和字符串的剩余部分(以空格隔開)表示該字符串,每個(gè)空格和字符都會(huì)占用一個(gè)字節(jié)空間。圖a所示為該壓縮規(guī)則示意圖。小明為此編寫了VB程序,功能如下:運(yùn)行程序時(shí),在列表框List1中顯示原字符串內(nèi)容,單擊“壓縮”按鈕Command1,在列表框List2中顯示壓縮后字符串,并在標(biāo)簽Label2中顯示壓縮后容量。程序運(yùn)行界面如圖b所示。
實(shí)現(xiàn)上述功能的 VB 代碼如下,但橫線處代碼有錯(cuò),請改正。
Dim word(3000)As String,pre(3000)As String
Const n=2000
Private Sub Form_Load ( ?。?br />'該過程的作用是從數(shù)據(jù)庫讀取 n 個(gè)單詞,按字典順序存儲(chǔ)在數(shù)組 word 中,并在 Label1輸出單詞數(shù)量和容量
'代碼略
End Sub
Private Sub Command1_Click ( ?。?br />Dim conp As Integer'存儲(chǔ)壓縮后的容量
Dim f As Boolean,m As Integer,k As Integer'k 存儲(chǔ)公共前綴的長度
conp=0
For i=1To n
k=0
If i=1Then f=False Else f=True
'(1)
Do While k<m And f=True
If Mid(word(i),1,k+1)=Mid(word(i-1),1,k+1)Then
′(2)
Else
f=False
End If
Loop
pre(i)=CStr(k)+““+Mid(word(i),k+1,Len(word(i)))
'Cstr ( )函數(shù)能夠?qū)?shù)字類型的值轉(zhuǎn)換為字符類型的值,并卻掉前導(dǎo)空格。
List2.AddItem pre(i)
'(3)
Next i
Label2.Caption=“壓縮后容量為“+Str(conp)+“字節(jié)“
End Sub組卷:1引用:1難度:0.9