设计一个判断某正数是否为回文数的算法。所谓回文数是指左右数字完全对称的自然数。例如121,12321,888,55.
2 回答
FFIVE
TA贡献1797条经验 获得超6个赞
Private Sub Command1_Click()
Dim n As String
n = InputBox("请输入一个整数:")
If n = StrReverse(n) Then
Print "是回文数。"
Else
Print "不是回文数"
End If
End Sub
红颜莎娜
TA贡献1842条经验 获得超12个赞
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 "回数"
Else
MsgBox "不是回数"
End If
End Sub
- 2 回答
- 0 关注
- 393 浏览
添加回答
举报
0/150
提交
取消