2019-2020學年浙江省溫州市十五校聯合體高二（上）期中信息技術試卷
發布：2024/11/22 6:0:2
一、選擇題（共12小題，每小題2分，滿分24分）
-
1．有關信息和信息技術，下列說法正確的是（ ?。?/h2>
組卷：11引用：1難度：0.5 -
2．下列有關計算機網絡術語的說法，正確的是（ ?。?/h2>
組卷：7難度：0.5 -
3．網絡用戶對某網絡店鋪投票結果如圖所示：該過程中采用的評價方法有（ ?。?br />
組卷：10難度：0.6 -
4．2017年5月爆發的“勒索病毒”攻擊主機并加密主機上存儲的文件，然后要求支付贖金，下列說法正確的是（ ?。?/h2>
組卷：10難度：0.9 -
5．使用Word軟件編輯某文檔，部分界面如圖所示。下列說法正確的是（ ?。?br />
組卷：8引用：3難度：0.5
二、解答題（共4小題，滿分26分）
-
15．查找最大的ASCII碼字符。隨機生成n（n＞=40）個可見ASCII碼的字符串（可見字符ASCII碼的范圍是33～126），并顯示在文本框Text1中。單擊“查找”按鈕運行程序，在標簽Label1中輸出該字符串中最大的ASCII碼值及對應的字符。程序界面如圖所示，VB代碼如下。
請回答下列問題：
（1）要使程序運行時，窗體Form1標題顯示“查找ASCII最大的字符”，則需在Form_Load事件過程中添加語句（單選，填字母：A．Form1．Text=“查找ASCII最大的字符“/B．Form1．Caption=“查找ASCII最大的字符“/C．Form1．AddItem“查找ASCII最大的字符“）
（2）實現上述功能的VB程序如下，請在橫線處填入合適代碼。
Const n=40
Private Sub Command1_Click （ ?。?br />Dim s As String,ch As String
Dim i As Integer,max As Integer
s=Text1．Text
max=0
For i=1 To Len（s）
ch=
If Asc（ch）＞max Then max=Asc（ch）
Next i
Label1．Caption=“最大ASCII碼：″++″該字符為：″+Chr（max）
End Sub
Private Sub Form_Load （ ）’隨機生成可見字符并顯示在文本框Text1中
Randomize
For i=1 To n
Text1．Text=Text1．Text+
Next i
End Sub組卷：2引用：1難度：0.8 -
16．襪子顏色配對問題。現有不同顏色的襪子若干（襪子的顏色用數字編號1～15表示），顏色相同的襪子才能組成一雙，其中有幾只襪子是落單的，現要求找出落單襪子的顏色以及能夠配對的襪子數量。編寫程序解決該問題，程序運行時，在文本框Text1中依次輸入襪子的顏色編號（數據都用逗號分隔并以逗號結尾），單擊“查找”按鈕，在列表框List1中輸出落單襪子的顏色編號，在標簽label1中現實能配對的襪子數量。運行界面如圖所示，實現上述功能的VB程序如下。
請回答下列問題：
（1）寫出VB代碼中的方法名（只需填一個方法名）；
（2）根據題意，請在橫線處填入合適代碼；
（3）加框處程序代碼有錯，請改正。
Const n=15
Private Sub Command1_Click （ ?。?br />Dim a（1 To n） As Integer'數組a存放不同顏色襪子的數量，默認值為0
Dim s As String,ch As String
Dim c As Integer,i As Integer,t As Integer
List1．Clear
s=Text1．Text
t=0：c=0：i=1
Do While i＜=Len（s）
ch=Mid（s,i,1）
If ch＞=“0“And ch＜=″9″Then
t=t*10+Val（ch）
Else
a（t）=
t=0
End If
i=i+1
Loop
For i=1 To n
IfThen List1．AddItem″落單襪子的顏色為″+Str（i）
c=
Next i
Label1．Caption=″能配對的襪子有″+Str（c）+″雙″
End Sub組卷：2引用：2難度：0.5