题型：综合题 题类：模拟题 难易度：困难
浙江省名校信息技术仿真训练卷（四）
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＼z
c1= ①
c2=Mid(s，n-i+1，1)
If c1<>c2 Then
f=False
Exit For
EndIf
Next i
If ② Then
Label2．Caption=“对称”
Else
Label2．Caption=“不对称”
EndIf
End Sub
① ②
试题篮
