2018-2019學年浙江省麗水市高二（下）質檢信息技術試卷
發布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分，每小題列出的四個備選項中只有個是符合題目要求的，不選、錯選、多選均不得分．）
-
1．下列有關信息及信息技術的說法，正確的是（ ）
組卷：16引用：1難度：0.5 -
2．下列有關網頁及電子郵件的描述，不正確的是（ ）
組卷：2引用：1難度：0.5 -
3．使用word軟件編輯某文檔，部分界面如圖所示。下列說法正確的是（ ）
組卷：6引用：1難度：0.5 -
4．使用 Ultra Edit軟件查看字符內碼，部分界面如圖所示。（ ）
組卷：10引用：1難度：0.5 -
5．使用 Gold Wave軟件編輯某音頻文件，部分界面如圖所示。下列說法不正確的是（ ）
組卷：1引用：1難度：0.7
二、非選擇題（本大題共4小題，第13小題4分，第14小題10分，第15小題6分，第16小題6分，共26分）
-
15．一段字符中的每個詞（由大、小寫字母組成）是倒序顯示的，比如“Good night,Tom!”就倒序顯示成“dooG thin,moT!”。小王編寫了一個VB程序，實現還原功能，即單擊“還原”按鈕后，將文本框Text1中倒序顯示的內容還原，并在文本框Text2中輸出結果。程序運行界面如圖所示。
實現上述功能的VB程序如下，請回答下列問題：
（1）觀察程序代碼，“還原”按鈕的對象名為。
（2）請在①、②的橫線處填入合適的代碼
（3）加框處代碼有錯，請改正。
Function zf（s As String）As boolean
zf=False
If s＞=″A″And s＜=″Z″Or s＞=″a″And s＜=″z″Then
End If
End Function
Private Sub rev _Click（ ）
Dim s As String,ch As String,rv As String,rvl As String
Dim i As Integer,j As Integer,k As Integer
s=Text1．Te
rv=''''：i=1
Do While True
ch=Mid（s,i,I）
Do While Not zf（ch）And i＜Len（s）
rv=rv+ch
i=i+1
ch=Mid（s,j,1）
Loop
ch=Mid（，j,1）
Do While zf（ch）And j=Len（s）
If j＞Len（s）Then Exit Do
ch=Mid（s,j,1）
Loop
rvl=''''
For
'改錯
rvI=Mid（s,k,1）+rvI
Next k
rv=rv+rvI
If j＜=Len（s）Then rv=rv+Mid（s,1）
i=j+1
If i＞Len（s）Then Exit Do
Loop
Text2．Text=rv
End Sub
組卷：0引用：1難度：0.2 -
16．小王編寫了一個“學生體能情況分析”程序，其功能是分項計算名次和優秀率（分數90分及以上為優秀）。運行程序時，在列表框List1中顯示所有學生的3項體能測試分數，在文本框 Text1中輸入測試項目代碼（1表示游泳，2表示跑步，3表示跳遠），單擊“計算”按鈕 Command1后，計算結果分別顯示在列表框List2和標簽 Label2中。程序運行界面如圖1所示。
程序設計過程中數據的存儲和計算方法如下：
（1）學生體能分數的存儲：如圖2所示，第1位學生的游泳、跑步、跳遠分數依次存入數組 score的第1、2、3個元素里，第2位學生的游泳、跑步、跳遠分數依次存入數組 score的第4、5、6個元素里，以此類推。
（2）計算名次的算法：先統計每個分數的個數，存入數組a,如圖3中a（96）值為9，表示共有9個96分；然后按照分數從高到低依次計算每個有效分數（該分數的個數不為0）對應的名次存入數組b,分數相同時名次并列，如圖3中b（96）值為10，表示96分的名次是（并列）第10名，以此類推。
請回答下列問題：分數 100 99 98 97 96 … 0 數組a 3 0 0 6 9 … 0 數組b 1 4 10 …
（1）根據圖1中列表框 List1中的信息和圖2所示的數據存儲方法可知，數組元素 score（23）的值為（填數字）。
（2）實現上述功能的VB程序如下，請在①、②、③的橫線處填入合適的代碼。
Dim m As Integer'學生人數
Dim score（1To 3000 ）As Integer'存放學生分數
Dim xm（1To1000）As String'存放學生姓名
Private Sub Commandl_Click（ ）
Dim i As Integer,t As Integer,code As Integer,mc As Integer
Dima（0 To 100）As Integer'存放每個分數的個數
Dimb（0To100）As Integer'存放每個分數的名次
Dim code_n（I To 3）As String
code_n（1）=″游泳″：code_n（2）=″跑步″：code_n（3）=″跳遠″
code=val（Text1．Text）
For i=0 To 100
a（i）=0
Next i
sum=0
For i=1 Tom′計算每個分數的個數及體能測試優秀的人數
t=
a（score（t））=a（score（t））+1
If score（t）＞=90 Then sum=sum+1
Next
mc=1
For i=100 To 0 Step-1'計算每個分數的名次
Ifa（i）＜＞0 Then
b（i）=mc
mc=
End if
Next i
List2．clear
List2．AddItem″姓名″++″名次''
For i=1 To m
'在List2中輸出m個學生的姓名、指定項目的分數及名次，代碼略
Next i
sum=lnt（sum/m*10000+0.5）/100
Label2．Caption=“優秀率是：“+Str（sum）+″%″
End sub
Private Sub form_Load（ ）
'從數據庫讀取姓名存入數組xm,體能測試數據存入數組 score,總人數存入變量m。
'代碼略
End Sub
組卷：1引用：1難度：0.5