vb.net程序編寫？

dim s1 as string

成都創新互聯是專業的隆回網站建設公司，隆回接單;提供網站設計、網站制作,網頁設計,網站設計,建網站,PHP網站建設等專業做網站服務;采用PHP框架,可快速的進行隆回網站開發網頁制作和功能擴展;專業做搜索引擎喜愛的網站,專業的做網站團隊,希望更多企業前來合作!

dim s2 as string

s1=textbox1.text

s2=StrReverse(s1)'翻轉

if s1=s2 then

label1.text=

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回文 vb回文數代碼
標題路徑：http://vcdvsql.cn/article28/dopeejp.html

成都網站建設公司_創新互聯，為您提供網站改版、網站內鏈、網站建設、網站策劃、網站營銷、軟件開發

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯