实现上述功能的程序如下,请回答下列问题:
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
下划线①处应填入代码。
下划线②处应填入代码。