回文串（VB.NET）

标签：

编写函数过程Ish（n），对于已知的正整数n，判断是否是回文串。函数的返回值类型是布尔型，如果是回文串则显示一个☆。

提示：

       1：所谓回文串就是指顺读和倒读数字相同，即最高位和最低位相同，次高位和第二位相同，依次类推。当有一位数时，也认为是回文串

       2：利用Mid函数从两边往中间比较，若有不同，就不是回文串。

Public Class Form1
    Function Ish(ByVal s$) As Boolean
        Dim i, m, n As Integer
        m = Len(s) : n = (m + 1) \ 2
        For i = 1 To n
            If Mid(s, i, 1) <> Mid(s, m - i + 1, 1) Then
                Exit For
            End If
        Next
        If i = n + 1 Then
            TextBox2.Text &= s & "☆" & vbCrLf
            TextBox1.Text = ""
        Else
            TextBox2.Text &= s & vbCrLf
            TextBox1.Text = ""
        End If
    End Function
   
    Private Sub TextBox2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.Click
        Dim s$
        s = TextBox1.Text
        Ish(s)
    End Sub
End Class

回文串（VB.NET）

标签：

原文地址：http://blog.csdn.net/hdd871532887/article/details/42773771