VB.NET 編程 關于回文數(shù)的題目。

在WinForm項目的窗體上添加一個按鈕和文本框，然后把下面的代碼粘貼上去就可以了。

成都創(chuàng)新互聯(lián)公司不只是一家網(wǎng)站建設的網(wǎng)絡公司；我們對營銷、技術、服務都有自己獨特見解，公司采取“創(chuàng)意+綜合+營銷”一體化的方式為您提供更專業(yè)的服務！我們經(jīng)歷的每一步也許不一定是最完美的，但每一步都有值得深思的意義。我們珍視每一份信任，關注我們的成都網(wǎng)站建設、網(wǎng)站設計質(zhì)量和服務品質(zhì)，在得到用戶滿意的同時，也能得到同行業(yè)的專業(yè)認可，能夠為行業(yè)創(chuàng)新發(fā)展助力。未來將繼續(xù)專注于技術創(chuàng)新，服務升級，滿足企業(yè)一站式網(wǎng)絡營銷推廣需求，讓再小的高端網(wǎng)站設計也能產(chǎn)生價值！

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 ("是回文數(shù)")

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 "是回文數(shù)"

Else

Return "不是回文數(shù)"

End If

End If

End Function

'判斷一個整數(shù)的奇偶

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程序代碼怎么寫啊

函數(shù)百度：

StrReverse函數(shù) 描述返回一個字符串，其中一個指定子字符串的字符順序是反向的。語法StrReverse(string1)參數(shù)string1是一個字符串，它的字符順序要被反向。如果string1是一個長度為零的字符串("")，則返回一個長度為零的字符串。如果string1為Null，則產(chǎn)生一個錯誤。

典型的例子是用strReverse函數(shù)生成回文數(shù)。

例如 StrReverse(i)=i 這就是判斷i是否為回文數(shù)的一個VB語句

text1.text=StrReverse("abcd")

返回：“dcba

VB.NET 編寫函數(shù)過程IsH(n) 判斷是否為回文數(shù)

你的i = Len(Str(a))會出問題。

If i 1 Then

Return True

End If

這個返回在if內(nèi)部，當條件不滿足將導致函數(shù)無返回。

以下代碼僅供參考:

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