首页 > 代码库 > 回文串(VB.NET)

回文串(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)