2017-2018學年浙江省麗水市高二（下）期末信息技術試卷
發布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分，每小題列出的四個備選項中只有一個是符合題目要求的，不選、錯選、多選均不得分．）
-
1．下列有關信息的說法，正確的是（ ）
組卷：8引用：1難度：0.7 -
2．IMAP（Internet Mail Access Protocol）即交互式郵件存取協議，其功能之一是提供了方便的郵件下載服務，讓用戶能進行離線閱讀．以下與該功能相似的協議是（ ）
組卷：8引用：3難度：0.9 -
3．一款用于多人視頻會議智能系統，可識別參會人員身份，對不同人的發言進行標記和語音轉碼，并編譯成不同語言文字。該設備的下列功能中，沒有用到人工智能技術的是（ ）
組卷：4引用：3難度：0.4 -
4．在Flash中，當RGB設置為（255，0，0）時，下方自動顯示為#FF0000，如圖所示，則當RGB設置為（255，64，200），下方將顯示為（ ）組卷：1引用：1難度：0.5 -
5．某算法部分流程圖如圖所示，執行該流程后，變量s,i的值分別是（ ）
組卷：4引用：2難度：0.4
二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題4分，第17小題5分，共26分）
-
16．小明學習了選擇排序后，對選擇排序算法進行了如下改進：在數組的所有元素中找出最小和最大數據的元素，然后將這兩個元素分別與第一個和最后一個元素交換數 據，在余下的元素中找出最小和最大數據的元素，分別與第二個和倒數第二個元素交換數據，以此類推，直到所有元素的數據按升序排列。程序運行界面如圖所示。
實現上述功能的VB程序如下，但加框處代碼有錯，請改正。
Const n=10
Dim a（1To n） As Integer
Private Sub Command1_Click （ ）
Dim left1As Integer,right1As Integer,Pmax As Integer,Pmin As Integer,t As Integer
'隨機生成一組正整數，存儲在數組a中，代碼略
left1=1：right1=n
Do While left1＜right1
Pmin=left1：Pmax=left1
For i=left1+1To
‘①
If a（i）＜a（Pmin） Then Pmin=i
If a（i）＞a（Pmax） Then Pmax=i
Next i
t=a（Pmin）：a（Pmin）=a（left1）：a（left1）=t
If Pmax=left1Then
‘②
t=a（Pmax）：a（Pmax）=a（right1）：a（right1）=t
left1=left1+1
right1=right1-1
Loop
'依次輸出排序后的數據。代碼略
End Sub組卷：2引用：1難度：0.4 -
17．編寫VB程序，實現如下功能：在數組a中生成不重復的隨機整數，按升序排列并顯示在標簽Label1中。在文本框Text1中輸入一個整數，單擊“查找刪除”按鈕Command1，采用對分查找法在數組a中查找該數。若找到，則從數組a中刪除該數（該數后面的數組元素都前移），并在標簽Label2中顯示刪除后的結果；否則，在標簽Label2中顯示“該數沒有找到”。程序運行界面如下圖所示。
請在橫線處填入合適的代碼。
Const n=10
Dim a（1To n） As Integer
'Form_Load事件過程產生不重復的隨機整數，按升序排序并在標簽Label1中顯示
Private Sub Form_Load（ ）
Dim i As Integer,j As Integer,temp As Integer
Randomize
For i=1To n
a（i）=Int（Rnd*100）+1
For j=1To i-1
If a（i）=a（j） Then
①
Exit For‘退出For循環
End If
Next j
Next i
For i=2To n
If a（i）＜a（i-1）Then
temp=a（i）
For j=i-1To 1Step-1
If temp＞a（j） Then Exit For
a（j+1）=a（j）
Next j
②
End If
Next i
For i=1To n
Label1．Caption=Label1．Caption+Str（a（i））+““
Next i
End Sub
Private Sub Command1_Click（ ）
Dim i As Integer,j As Integer,m As Integer,k As Integer
Dim key As Integer,flag As Boolean
key=Val（Text1．Text）
i=1：j=n
flag=False
Do While （i＜=j） And （not flag）
m=Int（（i+j）/2）
If a（m）=key Then flag=True
If a（m）＜key Then i=m+1Else j=m-1
Loop
If flag=True Then
For k=③
a（k）=a（k+1）
Next k
Label2．Caption=““
For k=1To n-1
Label2．Caption=Label2．Caption+Str（a（k））+““
Next k
Else
Label2．Caption=“該數沒有找到“
End If
End Sub組卷：2引用：1難度：0.4