vb.net回文数 vb回文数代码

求助vb.net题

其实我是看到悬赏分进来的，这个，你先试着写，碰到什么问题，再问吧，可以百度Hi我！！

创新互联建站主要从事网站设计制作、成都网站制作、网页设计、企业做网站、公司建网站等业务。立足成都服务耀州,10余年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:028-86922220

VB.NET 编程 关于回文数的题目。

在WinForm项目的窗体上添加一个按钮和文本框，然后把下面的代码粘贴上去就可以了。

Public Function lsH(ByVal n As String) As String

Dim s1 As String = ""

Dim s2 As String = ""

Dim i As Integer = 0

Dim j As Integer

If n.Length = 1 Then

Return ("是回文数")

Else

If Tell_JiOu(n.Length) = 1 Then

j = (n.Length + 1) / 2

s1 = Mid(n, 1, j)

Else

j = n.Length / 2 + 1

s1 = Mid(n, 1, j - 1)

End If

For i = n.Length To j Step -1

s2 = s2 + Mid(n, i, 1)

Next

If s1 = s2 Then

Return "是回文数"

Else

Return "不是回文数"

End If

End If

End Function

'判断一个整数的奇偶

Public Function Tell_JiOu(ByVal k As Integer) As Integer

If k Mod 2 = 0 Then

Return 2

Else

Return 1

End If

End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button1.Click

Button.Text = lsH(TextBox1.Text)

End Sub

VB.NET 编写函数过程IsH(n) 判断是否为回文数

你的i = Len(Str(a))会出问题。

If i 1 Then

Return True

End If

这个返回在if内部，当条件不满足将导致函数无返回。

以下代码仅供参考:

Function IsH(ByVal a As Long) As Boolean

Dim i As Long, j As Long, t As String

t = a.ToString

i = t.Length

Select Case i

Case 1

Return True

Case 2

If Mid(t, 1, 1) = Mid(t, 2, 1) Then Return True Else Return False

Case 3

If Mid(t, 1, 1) = Mid(t, 3, 1) Then Return True Else Return False

Case Else

For j = 1 To i \ 2

If Mid(t, j, 1) Mid(t, i - j + 1, 1) Then Return False

Next j

End Select

Return True

End Function

vb.net 回文数函数

判断一个数是否为回文数吗？

　

Private Function IsH(a As String) As Boolean

Dim l As Integer

l = Len(a)

IsH = True

For i = 1 To l / 2

If Mid(a, i, 1)  Mid(a, l + 1 - i, 1) Then

IsH = False

Exit For

End If

Next i

End Function

用这个函数

网页名称：vb.net回文数 vb回文数代码
路径分享：https://www.cdcxhl.com/article22/doddcjc.html

成都网站建设公司_创新互联，为您提供外贸网站建设、网站设计公司、用户体验、虚拟主机、网站排名、手机网站建设

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联