2017年浙江省杭州市蕭山區高考信息技術模擬試卷（15）
發布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分．每小題列出的四個備選項中只有一個是符合題目要求的，不選、多選、錯選均不得分）
-
1．小李在大眾點評上購買2張電影票后，生成驗證碼（如圖所示），在觀影前可通過貓眼取票機獲得電影票．其中生成驗證碼的過程屬于（ ）組卷：11引用：1難度：0.9 -
2．小王收到一封小華給他的郵件，在小王讀取郵件時，所使用的協議是（ ）
組卷：5引用：1難度：0.9 -
3．在word修訂模式下對某文段進行了修改，修改后文段的部分截圖如圖所示．
該文段接受所有修訂后，文字應該是（ ）組卷：8引用：1難度：0.9 -
4．用Access軟件創建的數據表如圖所示：
則下列說法正確的是（ ）組卷：10引用：1難度：0.5 -
5．有如下程序段：
x=Text1．Text
If x＞=-1Then
y=Sqr（x+1）
Else
y=Abs（3*x）
End If
當x=-1時，y的值為（ ）組卷：12引用：1難度：0.5
二、非選擇題（本大題共5小題，其中第13小題6分，第14小題4分，第15小題6分，第16小題6分，第17小題4分，共26分）
-
16．下列VB程序的功能是：在文本框Text1中輸入城市名字，在文本框Text2中輸入空氣指數，單擊“輸入”按鈕，則將內容添加到列表框List1中；單擊“排行”按鈕時，在列表框List2中將顯示空氣質量排名、城市以及空氣質量等級．質量等級標準為：空氣指數0-50為優，51-100為良，101-200為污染，201及以上為重污染．程序運行界面如圖所示．
Dim a（1To 1000）As String,b（1To 1000）As Integer,n As Integer
Private Sub Form_Load （ ）
n=1
End Sub
Private Sub Command1_Click（ ）
If Text1．Text＜＞““And Text2．Text＜＞““Then
a（n）=Text1．Text
b（n）=Val（Text2．Text）
①
List1．AddItem s
②
Text1．Text=““
Text2．Text=““
End If
End Sub
Private Sub Command2_Click（ ）
For i=1To n-1
For j=③Step-1
If b（j）＜b（j-1）Then
k=a（j）：a（j）=a（j-1）：a（j-1）=k
k=b（j）：b（j）=b（j-1）：b（j-1）=k
End If
Next
Next
For i=1To n-1
If b（i）＜=50Then
d=“優“
ElseIf b（i）＜=100Then
d=“良“
ElseIf b（i）＜=200Then
d=“污染“
Else
d=“重污染“
End If
s=“第“& i &“名“&“：“& a（i） &“：“& d
List2．AddItem s
Next
End Sub
（1）大括號處的程序采用的排序算法是
（2）加框處①有錯，應該為
（3）②處應填寫
（4）③處應填寫．組卷：8引用：1難度：0.1 -
17．編寫“倒序輸出”程序，實現如下功能：在文本框Text1中輸入字符串a,單擊“倒序”按鈕Command1，在標簽框Label1中顯示字符串a的倒序結果字符串b.程序運行界面如圖所示．
請根據算法將下列程序補充完整．
Dim a As String,b As String
Private Sub Command1_Click（ ）
b=““
a=Text1．Text
For i=①To 1Step-1
b=②
Next
Label1．Caption=b
End Sub.組卷：5引用：1難度：0.3