vb编程判断字符串是否回文

在文本框中输入一个字符串，单击“判断”按钮，若文本框中的字符中为回文（左右对称的字符串为回文，例如“123454321”，“上海自来水来自海上”等），则在下面的文本框中显示“YES”，否则显示“NO”。

---

Private Sub Command1_Click()
Dim i%
For i = 1 To Len(Text1.Text) \ 2
If Mid(Text1.Text, i, 1) <轿闷大> Mid(StrReverse(Text1.Text), i, 1) Then
Text2.Text = "NO"罩伏
Exit Sub
End If
Next i
Text2.Text = "YES"闭竖
End Sub

---