首頁猿問關(guān)于vb編程題，求解釋，具體內(nèi)容請看：

關(guān)于vb編程題，求解釋，具體內(nèi)容請看：

正則表達式 .NET

慕無忌1623718 2021-12-02 11:07:44

設(shè)計一個判斷某正數(shù)是否為回文數(shù)的算法。所謂回文數(shù)是指左右數(shù)字完全對稱的自然數(shù)。例如121，12321，888，55.

查看完整描述

2 回答

FFIVE

TA貢獻1797條經(jīng)驗獲得超6個贊

Private Sub Command1_Click()
Dim n As String
n = InputBox("請輸入一個整數(shù)：")
If n = StrReverse(n) Then
Print "是回文數(shù)。"
Else
Print "不是回文數(shù)"
End If
End Sub

反對回復(fù) 2021-12-06

紅顏莎娜

TA貢獻1842條經(jīng)驗獲得超13個贊

Private Sub Command1_Click()
Dim i As Integer
Dim h As Boolean
h = True
For i = 1 To Int(Len(Text1.Text) / 2)
If Mid(Text1.Text, i, 1) <> Mid(Text1.Text, Len(Text1.Text) - i + 1, 1) Then
h = False
Exit For
End If
Next
If h = True Then
MsgBox "回數(shù)"
Else
MsgBox "不是回數(shù)"
End If
End Sub