要求编写程序来判断一字符串是否为”回文（指字符串顺读与倒读都是一样的，如”潮起潮落，落潮起潮”）”
应该是strleft = Mid(strl, k, 1)
strright = Mid(strl, length - k, 1)处出问题了，但是不知道该怎么改那～～求助啊～～
Public Function wrap()
Dim length As Integer
Dim strleft As String
Dim strright As String
Dim k As Integer
str1 = Trim(Form1.Text1)
length = Len(strl)
k = 1
Do
strleft = Mid(strl, k, 1)
strright = Mid(strl, length - k, 1)
If strleftstrright Then
Exit Do
End If
k = k + 1
Loop While klength / 2 Then
Form1.Text2 = "是回文"
Else
Form1.Text2 = "不是回文"
End If
End Function
|
