vb判断一字符串是否是回文

vb判断一字符串是否是回文

Private Sub Command1_Click() '回文数
For i = 100 To 200
 ge = i Mod 10
 shi = i \ 10 Mod 10
 bai = i \ 100
 If ge = bai Then
  Print i,
  geshu = geshu + 1
  If geshu Mod 9 = 0 Then Print
 End If

Next i
Print
  Print
  Print "geshu="; geshu
End Sub

do         strleft = mid(strl, k, 1)         strright = mid(strl, length - k + 1, 1)         if strleft <> strright then             exit do         end if         k = k + 1     loop while k <= length / 2     if k > length / 2 then         msgbox text1 & " 是回文"     else         msgbox text1 & " 不是回文"     end if