2019-2020學年浙江省溫州市十五校聯(lián)合體高二(上)期中信息技術(shù)試卷
發(fā)布:2024/11/22 6:0:2
一、選擇題(共12小題,每小題2分,滿分24分)
-
1.有關(guān)信息和信息技術(shù),下列說法正確的是( )
組卷:11引用:1難度:0.5 -
2.下列有關(guān)計算機網(wǎng)絡(luò)術(shù)語的說法,正確的是( ?。?/h2>
組卷:7引用:1難度:0.5 -
3.網(wǎng)絡(luò)用戶對某網(wǎng)絡(luò)店鋪投票結(jié)果如圖所示:該過程中采用的評價方法有( ?。?br />
組卷:10引用:1難度:0.6 -
4.2017年5月爆發(fā)的“勒索病毒”攻擊主機并加密主機上存儲的文件,然后要求支付贖金,下列說法正確的是( ?。?/h2>
組卷:10引用:2難度: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事件過程中添加語句
(2)實現(xiàn)上述功能的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碼:″+
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.襪子顏色配對問題?,F(xiàn)有不同顏色的襪子若干(襪子的顏色用數(shù)字編號1~15表示),顏色相同的襪子才能組成一雙,其中有幾只襪子是落單的,現(xiàn)要求找出落單襪子的顏色以及能夠配對的襪子數(shù)量。編寫程序解決該問題,程序運行時,在文本框Text1中依次輸入襪子的顏色編號(數(shù)據(jù)都用逗號分隔并以逗號結(jié)尾),單擊“查找”按鈕,在列表框List1中輸出落單襪子的顏色編號,在標簽label1中現(xiàn)實能配對的襪子數(shù)量。運行界面如圖所示,實現(xiàn)上述功能的VB程序如下。
請回答下列問題:
(1)寫出VB代碼中的方法名
(2)根據(jù)題意,請在橫線處填入合適代碼;
(3)加框處程序代碼有錯,請改正。
Const n=15
Private Sub Command1_Click ( ?。?br />Dim a(1 To n) As Integer'數(shù)組a存放不同顏色襪子的數(shù)量,默認值為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
If
c=
Next i
Label1.Caption=″能配對的襪子有″+Str(c)+″雙″
End Sub組卷:2引用:2難度:0.5