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
