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

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

正則表達(dá)式 .NET

慕無(wú)忌1623718 2021-12-02 11:07:44

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

查看完整描述

2 回答

FFIVE

TA貢獻(xiàn)1797條經(jīng)驗(yàn) 獲得超6個(gè)贊

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

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

紅顏莎娜

TA貢獻(xiàn)1842條經(jīng)驗(yàn) 獲得超13個(gè)贊

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 "回?cái)?shù)"
Else
MsgBox "不是回?cái)?shù)"
End If
End Sub