2019-2020學(xué)年浙江省麗水市普通高中高二（下）期末信息技術(shù)試卷
發(fā)布：2024/12/5 14:30:2
一、選擇題（本大題共11小題，每小題2分，共24分。每小題列出的四個備選項中只有一個是符合題目要求的，不選、多選、錯選均不得分。）
-
1．下列關(guān)于信息獲取的描述，正確的是（ ?。?/h2>
組卷：4引用：2難度：0.7 -
2．下列應(yīng)用中，體現(xiàn)了人工智能技術(shù)的是（ ）
組卷：1引用：2難度：0.7 -
3．使用Access軟件打開數(shù)據(jù)庫，部分界面如圖所示，下列說法正確的是（ ）
組卷：1引用：2難度：0.6 -
4．網(wǎng)絡(luò)中每臺設(shè)備都有一個唯一的網(wǎng)絡(luò)標(biāo)識，叫MAC地址，用十六進制數(shù)表示。某設(shè)備的MAC地址為“74-27-EA-F0-A7-6F”。下列說法正確的是（ ?。?/h2>
組卷：3引用：2難度：0.6 -
5．使用GoldWave軟件編輯某音頻文件，部分界面如圖所示，下列說法正確的是（ ）
組卷：1引用：2難度：0.4
二、非選擇題（本大題共4小題，其中第13小題4分，第14小題8分，第15小題7分，第16小題7分，共26分。）
-
14．某加密算法對大寫字母加密，其加密規(guī)則如下：密文的ASCII碼值=明文的ASCII碼值+密鑰，加密后生成的密文仍為大寫字母。其密鑰是在3*3矩陣中獲得，獲得密鑰的方式為：如字母“A”的ASCII碼值為65，將65反復(fù)除3，其轉(zhuǎn)換過程如圖1所示，得到商為2，密鑰在矩陣中所在行；得到余數(shù)2，密鑰在矩陣中所在列；商或余數(shù)為0，密鑰在矩陣中最后一行或最后一列。其程序運行界面如圖2所示。
（1）下列對象中沒有Caption屬性的是（單選，填字母：A.Command1/B.Forml/C.Textl
和Text2）。
（2）實現(xiàn)上述功能的VB程序如下，請在橫線處填入合適的代碼。
（3）程序中加框處代碼有錯，請改正。
（4）根據(jù)程序的功能并結(jié)合圖2，字母C加密后的密文為。
Dim a（1 To 9）As Integer
Private Sub Command1_Click （ ?。?br />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．某校跳高比賽計分規(guī)則如下：每個高度每位選手最多試跳三次，成功記為1，失敗或輪空記為0。如選手第一次試跳成功記為100，第二次試跳成功記為010，第三試跳成功記為001，三次失敗則終止比賽。編寫VB程序統(tǒng)計選手積分，在文本框Text1中輸入姓名和成績，在列表框List1中輸出結(jié)果，其算法如下：1.將每個選手的跳高記錄三位一組轉(zhuǎn)換成十進制數(shù)存儲到數(shù)組a （該數(shù)組元素的值都不相同）。2.先比較數(shù)組a中各數(shù)組元素的長度，長度長的排名在前；若長度相同的情況下從后往前依次比較字符大小，當(dāng)前數(shù)值大的排名在前。程序運行界面如圖所示：
請在橫線處填入合適的代碼。
Dim a（1 To 9）As String'存儲跳高成績
Dim b（1 To 9）As String'存儲學(xué)生姓名
Dim c（1 To 9）As Integer
Private Sub Command1_Click （ ?。?br />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函數(shù)可把表達式轉(zhuǎn)換為字符串類型
temp=0
Next i
End Function組卷：0引用：1難度：0.3