首页 > 代码库 > 回文串(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)
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。