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