浙江省台州市黄岩第二高级中学2017-2018学年高二下学期信息技术期中考试试卷
年级： 学科：信息技术（信息科技） 类型：期中考试 来源：91题库
一、选择题（本大题共12小题，每小题2分，共24分） （共12小题）
①使用百度的“识图”功能对上传的图片进行相似图片查找
②使用扫描笔内置的朗读功能对扫描到的中英文进行实时朗读
③使用指纹解锁功能打开手机
④Word软件将输入的“以身做则”自动更正为“以身作则”
⑤使用在线二维码生成器制作二维码
a（1）=1：a（2）=1
b（1）=1：b（2）=2
for i=3 to 5
a(i)=a(i-1)+a(i-2)
b(i)=b(i-1)+a(i)
next i
执行该段程序后，数组元素b（5）的值为（ ）
引起该错误的原因是（ ）
n=0
i=1
j=6
key=val(Text1 
text)
f=False
Do While i<=j And Not f
m=(i+j+1)\2
n=n+1
If key=d(m) Then
f=True
ElseIf key>d(m) Then
j=m-1
Else
i=m+1
End if
Loop
数组元素d（1）到d（6）的值依次为“87，72,53,41,29,18”，若该程段运行结束后，n的值为2，则key的值是 （ ）
二、非选择题（本大题共5小题，4+3+7+4+8，共26分） （共5小题）
图a
图b
图c
图a
图b
Private Sub Command1_Click()
Dim s As String, c1 As String, c2 As Integer
Dim n As Integer, i As Integer
Dim f As Boolean
s = Text1.Text
n = Len(s)
f = True
For i = 1 To n \ 2
c1 = ①
c2 = Mid(s, n - i + 1, 1)
If c1 <> c2 Then
f = False
Exit For
End If
Next i
If ② Then
Label2.Caption = "对称"
Else
Label2.Caption = "不对称"
End If
End Sub
图a
图b
图c
图d
实现上述功能的VB程序如下，代码加框处有错，请改正。
Dim a(1 to 10) As Integer ‘存储原始数据
Dim b(1 to 10)As Integer ‘存放名次
Private Sub Command1_Click()
Dim i As Integer, j As Integer, n As Integer
For i=1 To 10
n=0
For j=1 To 10
If 
Then n=n+1 ‘①
‘②
Next j
Next i
For i= 1 to 10
List2.Additem a(i)&” ”&b(i)
Next i
End Sub
Private Sub Form_Load()
‘随机产生10个[60,100]之间的随机数，并显示在List1中，代码略。
End Sub
①处代码应改为：
②处代码应改为：
冒泡升序排序需要经过n-1遍的加工，每一遍加工自下而上比较相邻两个数据，把较小者交换到上面，在第i遍加工过程中需要进行n-i对数据的比较，在某些情况下，第i遍加工过程中，在上面部分较小数据已经有序情况下，不需要再进行n-i对数据的比较。如对“17,18,19,24,23,20”这6个数据排序中，第1遍排序结束后数据为“17,18,19,20,24,23”，第2遍排序时不再需要对20及其前面4个数据进行比较。程序界面如下图所示 
以下程序实现了冒泡排序的优化，请在划线处填写合适的代码。
Dim n As Integer
Dim a (1 to 100) As Integer
Private Sub Form_Load()
‘n=10，排序前生成的数据存储在数组a中，并在列表框List1中显示
‘代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, start As Integer, t As Integer
Do While i < n
start = n
For j = n To i Step
If a(j) < a(j - 1) Then
t = a(j): : a(j - 1) = t
start = j
End If
Next j
Loop
For i = 1 To n
List2.AddItem Str(a(i))
Next i
End Sub