2021年浙江省高考信息技術(shù)模擬試卷(6月份)(一)(選考)
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,共24分)
-
1.下列關(guān)于信息與信息技術(shù)的描述,正確的是( ?。?/h2>
組卷:10引用:3難度:0.7 -
2.下列說(shuō)法不正確的是( ?。?/h2>
組卷:14引用:2難度:0.9 -
3.使用Access軟件打開數(shù)據(jù)庫(kù)文件,部分界面如圖所示,下列說(shuō)法正確的是( ?。?img alt="菁優(yōu)網(wǎng)" src="https://img.jyeoo.net/quiz/images/202006/224/f5678ccf.png" style="vertical-align:middle" />
組卷:2引用:2難度:0.8 -
4.使用UltraEdit軟件觀察字符“旻,讀作mín”的內(nèi)碼,部分界面如圖所示。
下列說(shuō)法正確的是( )組卷:12引用:4難度:0.5 -
5.用 Photoshop 制作“2021拼搏”作品,部分界面如圖所示:
下列說(shuō)法正確的是( )組卷:5引用:2難度:0.6
二、非選擇題(本大題共4小題,共26分)
-
15.在 n 個(gè)元素的數(shù)組中,小程通過邊分段、邊合并的方法將 n 個(gè)數(shù)據(jù)處理成一個(gè)非降序數(shù)據(jù)段(a(1)≤a(2)≤a(3)≤……),排序的方法如下:
(a)從第 1 個(gè)元素開始,在數(shù)組中依次搜索若干個(gè)非降序數(shù)據(jù)段;
(b)將第 1、2 個(gè)非降序數(shù)據(jù)段合并成一個(gè)新的非降序數(shù)據(jù)段,再將第 3、4 個(gè)非降序數(shù)據(jù)段合并成一個(gè)新的非降序數(shù)據(jù)段,依次類推。若非降序數(shù)據(jù)段個(gè)數(shù)為奇數(shù),則最后 1 個(gè)數(shù)據(jù)段不處理。
(c)合并后的數(shù)據(jù)段總數(shù)大于 1 個(gè)時(shí),重復(fù)(a)(b)的操作。
編寫 VB 程序,實(shí)現(xiàn)上述合并排序功能。運(yùn)行程序,在標(biāo)簽 Label1 顯示原始數(shù)據(jù),單擊“合并排序”按鈕 Command1,在列表框 List1 中顯示每次排序后結(jié)果。排序過程及程序運(yùn)行界面如圖 a 所示。請(qǐng)回答下列問題:
(1)下列既可作為輸入,也可作為輸出的對(duì)象是
(2)為實(shí)現(xiàn)上述功能的 VB 程序如下,請(qǐng)?jiān)跈M線處填入合適代碼。
(3)程序中加框處代碼有錯(cuò),請(qǐng)改正。
Const n=10
Dim a(1 to n)As Integer
Private Sub Form_Load ( ?。?br />'產(chǎn)生 n 個(gè) 1-100 之間的隨機(jī)數(shù),存放在 a 數(shù)組中,并顯示在標(biāo)簽 Label1 中,代碼略。
End Sub
Private Sub Command1_Click ( ?。?br />Dim num As Integer'num 表示非降序段數(shù)
Dim b(n)As Integer,p1 As Integer,p2 As Integer,t As Integer
Dim t1 As Integer,t2 As Integer,i As Integer,j As Integer,k As Integer
num=0:p1=1
Do While num<>1
t1=pos(p1)
num=num+1
If p2>n Then
p1=1
Else
t2=pos(p2)
num=num+1
i=p1:j=p2:t=1
Do While t<=t1+t2'將兩個(gè)非降序段合并
If j>=p2+t2 Or
b(t)=a(i):i=i+1
Else
b(t)=a(j):j=j+1
End If
t=t+1
Loop
For k=1 To p1+p2'將合并后的結(jié)果存入 a 數(shù)組
a(p1+k-1)=b(k)
Next k
p1=
If p1>n Then p1=1:num=0
'將每次的排序結(jié)果顯示在列表框 List1 中,代碼略。
End If
Loop
End Sub
Function pos(low As Integer)As Integer'查找從 low 開始連續(xù)非降序段長(zhǎng)度
Dim i As Integer
For i=low To n-1
If a(i)>a(i+1)Then Exit For
Next i
End Function組卷:0引用:1難度:0.2 -
16.在圖像編碼的算法中,需要將一個(gè)給定的方形矩陣進(jìn)行Z字形掃描(Zigzag Scan),以獲得更好的壓縮比。給定一個(gè)n×n的矩陣,Z字形掃描的過程如圖所示:
??????經(jīng)過掃描后得到的數(shù)據(jù)結(jié)果為:“57,45,0,0,0,0,23,0,-30,-16,0,0,1,0,0,0,0,…,0,0”,數(shù)據(jù)元素個(gè)數(shù)為64個(gè)。進(jìn)一步經(jīng)過壓縮后,最終得到行程編碼:“57,1,45,1,0,4,23,1,0,1,-30,1,-16,1,0,2,1,1,0,51”,數(shù)據(jù)元素個(gè)數(shù)為20個(gè)。
(1)行程編碼壓縮最壞情況下,數(shù)據(jù)壓縮后數(shù)據(jù)元素的數(shù)量將是原來(lái)的
(2)根據(jù)上述掃描算法,其 VB 代碼實(shí)現(xiàn)如下,請(qǐng)?jiān)跈M線處填入合適的代碼。
Dim a(0 To 1000)As Integer'存儲(chǔ)原矩陣數(shù)據(jù),按行優(yōu)先存儲(chǔ)
Dim b(0 To 1000)As Integer'存儲(chǔ)Z形掃描后數(shù)據(jù)
Dim c(0 To 1000)As Integer'存儲(chǔ)行程編碼壓縮后數(shù)據(jù)
Dim n As Integer
‘矩陣導(dǎo)入代碼略,以行優(yōu)先存儲(chǔ)在a數(shù)組中,如例子中數(shù)據(jù)存儲(chǔ)順序?yàn)椤?7,45,0,23,0,0…”
Private Sub Command2_Click ( )
Dim choice As Integer'1:向右移動(dòng);2:向右上移動(dòng);3向下移動(dòng) 4向左下移動(dòng)
Dim row As Integer,col As Integer,i As Integer,j As Integer
Dim pre As Integer,count As Integer
choice=1:row=0:col=0:i=0
Do While (row<>n-1 Or col<>n-1)
b(i)=a(row*n+col):i=i+1
If choice=1 Then
If row=0 Then choice=4 Else choice=2
ElseIf choice=2 Then
row=row-1:col=col+1
If
choice=1
ElseIf col=n-1 Then
choice=3
End If
ElseIf choice=3 Then
row=row+1
If col=0 Then choice=2 Else choice=4
ElseIf choice=4 Then
row=row+1:col=col-1
If row=n-1 Then
choice=1
ElseIf col=0 Then
choice=3
End If
End If
Loop
b(i)=a(n*n-1):j=0:pre=b(0):count=0
For i=0 To n*n-1'輸出Z形序列,并進(jìn)行行程壓縮
If pre=b(i)Then
count=count+1
Else
c(j)=pre:c(j+1)=count
pre=b(i):j=j+2
End If
Next i
c(j)=pre:c(j+1)=count
Text1.Text=““
For i=0 To j+1
Text1.Text=Text1.Text+Str(c(i))+“,“
Next i
End Sub組卷:0引用:1難度:0.3