2019-2020學年浙江省麗水市普通高中高二（下）期末信息技術試卷
發布：2024/12/5 14:30:2
一、選擇題（本大題共11小題，每小題2分，共24分。每小題列出的四個備選項中只有一個是符合題目要求的，不選、多選、錯選均不得分。）
-
1．下列關于信息獲取的描述，正確的是（ ）
組卷：4引用：2難度：0.7 -
2．下列應用中，體現了人工智能技術的是（ ）
組卷：1引用：2難度：0.7 -
3．使用Access軟件打開數據庫，部分界面如圖所示，下列說法正確的是（ ）
組卷：1引用：2難度：0.6 -
4．網絡中每臺設備都有一個唯一的網絡標識，叫MAC地址，用十六進制數表示。某設備的MAC地址為“74-27-EA-F0-A7-6F”。下列說法正確的是（ ）
組卷：3引用：2難度：0.6 -
5．使用GoldWave軟件編輯某音頻文件，部分界面如圖所示，下列說法正確的是（ ）
組卷：1引用：2難度：0.4
二、非選擇題（本大題共4小題，其中第13小題4分，第14小題8分，第15小題7分，第16小題7分，共26分。）
-
14．某加密算法對大寫字母加密，其加密規則如下：密文的ASCII碼值=明文的ASCII碼值+密鑰，加密后生成的密文仍為大寫字母。其密鑰是在3*3矩陣中獲得，獲得密鑰的方式為：如字母“A”的ASCII碼值為65，將65反復除3，其轉換過程如圖1所示，得到商為2，密鑰在矩陣中所在行；得到余數2，密鑰在矩陣中所在列；商或余數為0，密鑰在矩陣中最后一行或最后一列。其程序運行界面如圖2所示。
（1）下列對象中沒有Caption屬性的是（單選，填字母：A.Command1/B.Forml/C.Textl
和Text2）。
（2）實現上述功能的VB程序如下，請在橫線處填入合適的代碼。
（3）程序中加框處代碼有錯，請改正。
（4）根據程序的功能并結合圖2，字母C加密后的密文為。
Dim a（1 To 9）As Integer
Private Sub Command1_Click （ ）
Dim column As Integer,row As Integer,t As Integer,tmp As Integer
Dim s As String,ch As String,result As String
s=Text1.Text：result=““
For i=1 To Len（s）
ch=Mid（s,i,1）：t=①
column=（t-1）Mod 3+1
Do While t＞=3
t=t\3
Loop
row=
tmp=（Asc（ch）+②-65）Mod 26+65
result=result+Chr（tmp）
Next i
Text2.Text=result
End Sub
Private Sub Form_Load （ ）'用來生成3*3矩陣
For i=1 To 9
a（i）=Int（Rnd*9）+1
s=s+Str（a（i））
If i Mod 3=0 Then
List1.AddItem s
s=““
End If
Next i
End Sub組卷：0引用：1難度：0.3 -
15．某校跳高比賽計分規則如下：每個高度每位選手最多試跳三次，成功記為1，失敗或輪空記為0。如選手第一次試跳成功記為100，第二次試跳成功記為010，第三試跳成功記為001，三次失敗則終止比賽。編寫VB程序統計選手積分，在文本框Text1中輸入姓名和成績，在列表框List1中輸出結果，其算法如下：1.將每個選手的跳高記錄三位一組轉換成十進制數存儲到數組a （該數組元素的值都不相同）。2.先比較數組a中各數組元素的長度，長度長的排名在前；若長度相同的情況下從后往前依次比較字符大小，當前數值大的排名在前。程序運行界面如圖所示：
請在橫線處填入合適的代碼。
Dim a（1 To 9）As String'存儲跳高成績
Dim b（1 To 9）As String'存儲學生姓名
Dim c（1 To 9）As Integer
Private Sub Command1_Click （ ）
Dim ch As String,tmp As Integer,t As Integer
Dim p As Integer,k As Integer,i As Integer,j As Integer
Dim s As String
s=Text1.Text：t=0
For i=1 To ①
If Mid（s,i,1）＜＞“/“Then
ch=ch+Mid（s,i,1）
Else
t=t+1
If t Mod 2=0 Then
a（t\2）=zh（ch）
Else
②
End If
ch=““
End If
Next i
For i=1 To t\2
c（i）=i
Next i
For i=1 To t\2-1
p=i
For j=i+1 To t\2
If Len（a（c（p）））＜Len（a（c（j）））Then
p=j
ElseIf Len（a（c（j）））=Len（a（c（p）））Then
k=Len（a（j））：flag=True
Do While k＞=1 And flag
If Val（Mid（a（c（j）），k,1））＞Val（Mid（a（c（p）），k,1））Then
p=j
flag=false
ElseIf val（Mid（a（c（j）），k,1））=val（Mid（a（c（p）），k,1））Then
k=k-1
Else
flag=False
End If
Loop
End If
Next j
If p＜＞i Then
tmp=c（i）：c（i）=c（p）：c（p）=tmp
End If
Next i
For i=1 To t\2
③
Next i
End Sub
Function zh（cm As String）As String
Dim temp As String
Dim i As Integer,j As Integer
For i=1 To④
For j=1 To 3
temp=temp*2+Val（Mid（cm,（i-1）*3+j,1））
Next j
zh=zh+CStr（temp）'CStr函數可把表達式轉換為字符串類型
temp=0
Next i
End Function組卷：0引用：1難度：0.3