Private Sub Command1_Click()Dim i As IntegerDim h As Booleanh = TrueFor i = 1 To Int(Len(Text1.Text) / 2)If Mid(Text1.Text, i, 1) <> Mid(Text1.Text, Len(Text1.Text) - i + 1, 1) Thenh = FalseExit ForEnd IfNextIf h = True ThenMsgBox "回数"ElseMsgBox "不是回数"End IfEnd Sub