2020-2021學年浙江省百校聯考高三（下）信息技術試卷（3月份）
發布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分。在每小題給出的四個選項中，只有一個符合題目要求）
-
1．下列關于信息與信息技術的描述，正確的是（ ?。?/h2>
組卷：10引用：4難度：0.7 -
2．下列關于信息安全的說法，正確的是（ ?。?/h2>
組卷：10引用：1難度：0.6 -
3．用 Access 軟件設計某來訪人員登記信息系統的數據庫，其中“來訪人員表”中需要存儲如表所示的數據。
下列關于該來訪人員登記信息系統的描述，錯誤的是（ ）序號 姓名 身份證號 進校時間 體溫 是否來自高風險地區 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”的內碼，部分界面如圖所示。
下列說法正確的是（ ）組卷：12難度：0.5 -
5．用 Photoshop 制作“2021拼搏”作品，部分界面如圖所示：
下列說法正確的是（ ?。?/h2>組卷：5引用：2難度：0.6
二、非選擇題（本大題共4小題，其中第13小題4分，第14小題8分，第15小題7分，第16小題7分，共26分）
-
15．某地學考等級劃分規則如下：
將考生原始成績從高到低劃分為A、B+、B、C+、C、D+、D、E共8個等級，各等級人數所占比例分別為3%、7%、16%、24%、24%、16%、7%、3%，如下表所示。
比如參加技術學考有20000人，小明卷面分90分，排名為1800名，則他在技術學科中的所處比例是9%。A占3%，B+占7%，因此B+所處的累積比例為4%-%10，可知他所處等級為B+。等級 A B+ B C+ C D+ D E 比例 3% 7% 16% 24% 24% 16% 7% 3%
編寫一個VB程序計算學生某科目成績的等級，功能如下：從數據庫中讀入學生學號、姓名、班級和原始成績，并在列表框List1中顯示，單擊“等級劃分”按鈕Command1，在列表框List2中按原始成績從高到低顯示成績與等級。等級劃分時，先按原始成績從高到低排序（如原始成績相同，則按“班級”號從小到大排序），再根據人數比例計算切分位置確定等級。若切分位置有相同分數學生，則歸為同一個等級。例如，某等級切分位置是第100位，但第101位學生的原始成績和第100位相同，則這兩名學生的賦分等級相同。程序運行界面如圖所示。
實現上述功能的VB程序如下，請回答下列問題：
（1）下列屬于 VB 窗體文件的是（單選，填字母）。
A.dj.vbp
B.dj.frm
C.jd.exe
D.dj.vbw
（2）請在橫線處填上合適的代碼。
Const max=1000
Dim n As Integer'存放學生人數
Dim xh（1 To max） As String'數組xh存放學生的學籍號
Dim xm（1 To max） As String'數組xm存放學生的姓名
Dim bj（1 To max） As Integer'數組bj存放學生的班級
Dim fs（0 To max） As Single'數組fs存儲學生的原始分數
Dim ffdj（0 To max） As String'數組ffdj存儲學生的賦分等級
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
‘從數據庫中讀入學生學號、姓名、班級和原始成績，分別存入數組 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'處理切分位置的同分數學生
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難度：0.3 -
16．在圖像編碼的算法中，需要將一個給定的方形矩陣進行Z字形掃描（Zigzag Scan），以獲得更好的壓縮比。給定一個n×n的矩陣，Z字形掃描的過程如圖所示：
經過掃描后得到的數據結果為：
“57，45，0，0，0，0，23，0，-30，-16，0，0，1，0，0，0，0，…，0，0”，數據元素個數為64個。進一步經過壓縮后，最終得到行程編碼：“57，1，45，1，0，4，23，1，0，1，-30，1，-16，1，0，2，1，1，0，51”，數據元素個數為20個。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）行程編碼壓縮最壞情況下，數據壓縮后數據元素的數量將是原來的倍。
（2）根據上述掃描算法，其 VB 代碼實現如下，請在橫線處填入合適的代碼。
Dim a（0 To 1000）As Integer'存儲原矩陣數據，按行優先存儲
Dim b（0 To 1000）As Integer'存儲Z形掃描后數據
Dim c（0 To 1000）As Integer'存儲行程編碼壓縮后數據
Dim n As Integer
‘矩陣導入代碼略，以行優先存儲在a數組中，如例子中數據存儲順序為“57，45，0，23，0，0…”
Private Sub Command2_Click
Dim choice As Integer'1：向右移動；2：向右上移動；3向下移動 4向左下移動
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 ②Then
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形序列，并進行行程壓縮
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