2017年浙江省普通高校高考信息技術(shù)模擬試卷(14)
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共11小題,每小題2分,共24分.每小題列出的四個(gè)備選項(xiàng)中只有一個(gè)符合題目要求,不選、多選、錯(cuò)選均不得分)
-
1.小軍在瀏覽器地址欄中輸入網(wǎng)址時(shí),發(fā)現(xiàn)曾經(jīng)輸入過的網(wǎng)址會(huì)隨著鍵入的字符自動(dòng)顯示,要想不顯示以前訪問過的網(wǎng)址,可進(jìn)行的操作是( ?。?/h2>
組卷:5引用:9難度:0.7 -
2.淘寶用戶對(duì)某一產(chǎn)品的寶貝評(píng)論如圖所示,該過程中采用的評(píng)價(jià)方法有( ?。?br />
組卷:20引用:9難度:0.7 -
3.小明用Word軟件編輯文檔時(shí)界面如圖所示:文檔中圖片的文字環(huán)繞方式是( ?。?br />
組卷:11引用:1難度:0.9 -
4.小紅從網(wǎng)上下載了一個(gè)Wave格式的高保真音頻文件,并用GoldWave軟件轉(zhuǎn)換成了MP3格式,下列說法正確的是( )
組卷:4引用:2難度:0.5 -
5.小明在“我的多媒體作品設(shè)計(jì)”中寫到“片頭部分需要用到一臺(tái)攝像機(jī),后期剪輯需要一臺(tái)計(jì)算機(jī)…”,這個(gè)過程屬于( ?。?/h2>
組卷:11引用:1難度:0.7
二、非選擇題(本大題共5小題,其中第13小題4分,第14小題4分,第15小題5分,第16小題8分,第17小題5分,共26分)
-
15.【加試題】有一英文單詞處理的Visual Basic程序,程序運(yùn)行效果如圖所示.在界面上方的文本框Text1中輸入英文語句,單擊“統(tǒng)計(jì)”按鈕(Command1),在右下方的列表框List1中顯示英文單詞及其在語句中出現(xiàn)的位置,并在按鈕上方的標(biāo)簽Label2中顯示單詞個(gè)數(shù)(假定每個(gè)單詞中不包含英文字母以外的其他字符).
實(shí)現(xiàn)上述功能的VB代碼如下,但加框處代碼有錯(cuò),請(qǐng)改正.
Private Sub Command1_Click( ?。?br />Dim a(1To 200)As String'數(shù)組a(i)用于存儲(chǔ)單詞
Dim d(1To 200)As Integer'數(shù)組d(i)用于存儲(chǔ)符位置信息
List1.Clear
s=Text1.text
slen=Len(s)
j=0'用于記錄單詞字符個(gè)數(shù)
k=1'用于統(tǒng)計(jì)單詞個(gè)數(shù)
b=1'用于統(tǒng)計(jì)字符位置
For i=1To slen
c=Mid(s,i,1)
IfThen'(1)
If j<>0Then
a(k)=Mid(s,b,j)
d(k)=b
k=k+1
j=0
End If
b=i+1
Else
j=j+1
End If
Next i
For i=1To k-1
List1.AddItem +“”+a(i)'(2)
Next
Label2.Caption=Str(k-1)+“個(gè)”
End Sub.組卷:16引用:1難度:0.1 -
16.【加試題】下列VB程序的功能是:程序運(yùn)行時(shí),單擊命令按鈕Command1后,產(chǎn)生10個(gè)[1,999]范圍內(nèi)互不相同的隨機(jī)整數(shù),依次顯示在列表框List1中,然后將它們按從小到大的順序排序,排序結(jié)果顯示在列表框List2中.
數(shù)組a用于存儲(chǔ)產(chǎn)生的10個(gè)隨機(jī)整數(shù),函數(shù)f(x)用于判斷隨機(jī)整數(shù)x與已生成的整數(shù)是否有重復(fù),若有重復(fù)則返回True,否則返回False.
(1)虛線框內(nèi)程序段所采用的排序算法名稱是
(2)在程序①和②橫線處填入適當(dāng)?shù)恼Z句或表達(dá)式,把程序補(bǔ)充完整.
Dim a(1To 10)As Integer
Function f(x As Integer)As Boolean
'代碼略
End Function
Private Sub Command1_Click( ?。?br />Dim n As Integer'n用于統(tǒng)計(jì)已經(jīng)產(chǎn)生的隨機(jī)整數(shù)個(gè)數(shù)
Dim i As integer,j As Integer
Dim x As Integer,k As Integer
Randomize'初始化Rnd函數(shù)
n=0
List1.Clear'清除列表框中內(nèi)容
List2.Clear
Do While n<10
x=lnt(Rnd*999)+1'產(chǎn)生[1,999]范圍內(nèi)的隨機(jī)整數(shù)
If Not f(x) Then
n=n+1
a(n)=x
List1.AddItem Str(
End If
Loop
For i=1To 9'進(jìn)行排序
For j=10To i+1
If a(j)<a(j-1)Then
k=a(j):a(j)=a(j-1):a(j-1)=k
End If
Next j
Next i
For i=1To 10
List2.AddItem Str(a(i))
Next i
End Sub.組卷:17引用:2難度:0.3