2020-2021學(xué)年浙江省百校聯(lián)考高三(下)信息技術(shù)試卷(3月份)
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分。在每小題給出的四個(gè)選項(xiàng)中,只有一個(gè)符合題目要求)
-
1.下列關(guān)于信息與信息技術(shù)的描述,正確的是( ?。?/h2>
組卷:10引用:3難度:0.7 -
2.下列關(guān)于信息安全的說法,正確的是( ?。?/h2>
組卷:10引用:1難度:0.6 -
3.用 Access 軟件設(shè)計(jì)某來訪人員登記信息系統(tǒng)的數(shù)據(jù)庫,其中“來訪人員表”中需要存儲(chǔ)如表所示的數(shù)據(jù)。
序號(hào) 姓名 身份證號(hào) 進(jìn)校時(shí)間 體溫 是否來自高風(fēng)險(xiǎn)地區(qū) 1 張三 330621198806544412 2020-12-19 8:23:18 36.8 否 2 李四 330891200202243965 2020-12-25 15:25:55 36.9 否 … … … … … … 組卷:4引用:2難度:0.5 -
4.使用UltraEdit軟件觀察字符“旻,讀作mín”的內(nèi)碼,部分界面如圖所示。
下列說法正確的是( ?。?/h2>組卷:12引用:4難度:0.5 -
5.用 Photoshop 制作“2021拼搏”作品,部分界面如圖所示:
下列說法正確的是( )組卷:5引用:2難度:0.6
二、非選擇題(本大題共4小題,其中第13小題4分,第14小題8分,第15小題7分,第16小題7分,共26分)
-
15.某地學(xué)考等級(jí)劃分規(guī)則如下:
將考生原始成績(jī)從高到低劃分為A、B+、B、C+、C、D+、D、E共8個(gè)等級(jí),各等級(jí)人數(shù)所占比例分別為3%、7%、16%、24%、24%、16%、7%、3%,如下表所示。等級(jí) A B+ B C+ C D+ D E 比例 3% 7% 16% 24% 24% 16% 7% 3%
編寫一個(gè)VB程序計(jì)算學(xué)生某科目成績(jī)的等級(jí),功能如下:從數(shù)據(jù)庫中讀入學(xué)生學(xué)號(hào)、姓名、班級(jí)和原始成績(jī),并在列表框List1中顯示,單擊“等級(jí)劃分”按鈕Command1,在列表框List2中按原始成績(jī)從高到低顯示成績(jī)與等級(jí)。等級(jí)劃分時(shí),先按原始成績(jī)從高到低排序(如原始成績(jī)相同,則按“班級(jí)”號(hào)從小到大排序),再根據(jù)人數(shù)比例計(jì)算切分位置確定等級(jí)。若切分位置有相同分?jǐn)?shù)學(xué)生,則歸為同一個(gè)等級(jí)。例如,某等級(jí)切分位置是第100位,但第101位學(xué)生的原始成績(jī)和第100位相同,則這兩名學(xué)生的賦分等級(jí)相同。程序運(yùn)行界面如圖所示。
實(shí)現(xiàn)上述功能的VB程序如下,請(qǐng)回答下列問題:
(1)下列屬于 VB 窗體文件的是
A.dj.vbp
B.dj.frm
C.jd.exe
D.dj.vbw
(2)請(qǐng)?jiān)跈M線處填上合適的代碼。
Const max=1000
Dim n As Integer'存放學(xué)生人數(shù)
Dim xh(1 To max) As String'數(shù)組xh存放學(xué)生的學(xué)籍號(hào)
Dim xm(1 To max) As String'數(shù)組xm存放學(xué)生的姓名
Dim bj(1 To max) As Integer'數(shù)組bj存放學(xué)生的班級(jí)
Dim fs(0 To max) As Single'數(shù)組fs存儲(chǔ)學(xué)生的原始分?jǐn)?shù)
Dim ffdj(0 To max) As String'數(shù)組ffdj存儲(chǔ)學(xué)生的賦分等級(jí)
Private Sub Command1_Click
Dim p(1 To 8)As Single,dj(1 To 8)As String
Dim i As Integer,j As Integer,pos As Integer,last As Integer
Dim st As String,it As Integer,sit As Single
‘從數(shù)據(jù)庫中讀入學(xué)生學(xué)號(hào)、姓名、班級(jí)和原始成績(jī),分別存入數(shù)組 xh、xm、bj 和 fz中,代碼略
p(1)=0.03:p(2)=0.07:p(3)=0.16:p(4)=0.24:p(5)=0.24:p(6)=0.16:p(7)=0.07:p(8)=0.03:dj(1)=“A“:dj(2)=“B+“:dj(3)=“B“:dj(4)=“C+“:dj(5)=“C“:dj(6)=“D+“:dj(7)=“D“:dj(8)=“E“
For i=2 To 8
①
Next i
For i=1 To n-1
For j=1 To n-i
If fs(j)<fs(j+1)and bj(j)<b(j+1)Then
st=xh(j):xh(j)=xh(j+1):xh(j+1)=st
st=xm(j):xm(j)=xm(j+1):xm(j+1)=st
it=bj(j):bj(j)=bj(j+1):bj(j+1)=it
sit=fs(j):fs(j)=fs(j+1):fs(j+1)=sit
End If
Next j
Next i
pos=1
For i=1 To 8
last=②
Do While fs(last+1)=fs(last)
last=last+1'處理切分位置的同分?jǐn)?shù)學(xué)生
Loop
Do While ③
ffdj(pos)=dj(i)
pos=pos+1
Loop
Next i
For i=1 To n
List2.AddItem xh(i)+““+xm(i)+““+Str(bj(i))+““+Str(fs(i))+““+ffdj(i)
Next i
End Sub組卷:0引用:1難度:0.3 -
16.在圖像編碼的算法中,需要將一個(gè)給定的方形矩陣進(jìn)行Z字形掃描(Zigzag Scan),以獲得更好的壓縮比。給定一個(gè)n×n的矩陣,Z字形掃描的過程如圖所示:
經(jīng)過掃描后得到的數(shù)據(jù)結(jié)果為:57 45 0 23 0 0 0 0 0 0 0 0 0 0 0 0 0 -30 1 0 0 0 0 0 -16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
(1)行程編碼壓縮最壞情況下,數(shù)據(jù)壓縮后數(shù)據(jù)元素的數(shù)量將是原來的
(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.5