①使用百度的“识图”功能对上传的图片进行相似图片查找
②使用扫描笔内置的朗读功能对扫描到的中英文进行实时朗读
③使用指纹解锁功能打开手机
④Word软件将输入的“以身做则”自动更正为“以身作则”
⑤使用在线二维码生成器制作二维码
Dim i As Integer， a As Integer， b As Integer， c As Integer
Dim s As String
a = 0: b = 1: c = 0: i = 2
s = Str(a) + Str(b)
Do While c <= 10000 And i < 100
a = b: b = c
c = a + b
s = s + Str(c)
i = i + 1
Loop
Text1.Text = s
运行上面的程序，发现输出的数列不正确，应进行修改。以下修改正确的是（ ）
①选中识别区域后，单击“识别”按钮进行文字识别；
②在OCR软件中打开“攻略.jpg”图像文件；
③将识别结果保存成txt文件；
④利用相似字功能对识别结果进行校对。
图a
（RANK函数的含义：求某一个数值在某一区域内的排名。示例：语法格式=RANK(number，ref，[order])，number为参与排名的数值，ref为排名的数值区域，order为0是降序，1是升序，[order]省略，默认为降序。示例：=RANK(A1，A1：A3，1)，显示A1单元格中数据在单元格A1到A3数据区域中的升序名次）。
Private Sub Command1_Click()
Dim n As Integer '裁判人数
Dim max As Integer， min As Integer， sum As Integer
Dim AveScore As Single '存储最终得分
n = Val(Text1.Text): sum = 0
If n <= 2 Then MsgBox ("输入数据要大于2，请重新输入！")
If n > 2 Then
List1.Clear
Randomize
score = Int(Rnd() * 31) + 70
List1.AddItem Str(score)
max = score
min = score
For i = 2 To n
score = Int(Rnd() * 31) + 70
List1.AddItem Str(score)
If score > max Then max = score
If score < min Then min = score
sum = sum + score
Next i
AveScore =
Text2.Text = Str(AveScore)
End If
End Sub
实现上述功能的程序如下，请回答下列问题：
Private Sub Com1_Click( )
Dim s As String
Dim flag As Boolean
Dim n As Integer， i As Integer
s = Text1.Text
_________ ‘①
flag = True
i = 1
Do While i <= n \ 2
If Mid(s， i， 1) < >________________ Then ‘②
flag = False
Exit Do '退出Do循环
End If
i = i + 1
Loop
If flag Then
Label2.Caption = s + "是回文字符串"
Else
Label2.Caption = s + "不是回文字符串"
End If
End Sub
下划线①处应填入代码。
下划线②处应填入代码。
