回文串（VB.NET）

概述编写函数过程Ish（n），对于已知的正整数n，判断是否是回文串。函数的返回值类型是布尔型，如果是回文串则显示一个☆。 提示：        1：所谓回文串就是指顺读和倒读数字相同，即最高位和最低位相同，次高位和第二位相同，依次类推。当有一位数时，也认为是回文串        2：利用Mid函数从两边往中间比较，若有不同，就不是回文串。       Public Class Form1 Fu

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

总结

以上是内存溢出为你收集整理的回文串（VB.NET）全部内容，希望文章能够帮你解决回文串（VB.NET）所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。