回文串（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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!