回文串（VB.NET）

浏览数：142 / 时间：2015年06月09日

编写函数过程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）