为了账号安全,请及时绑定邮箱和手机立即绑定

关于vb编程题,求解释,具体内容请看:

关于vb编程题,求解释,具体内容请看:

慕无忌1623718 2021-12-02 11:07:44
设计一个判断某正数是否为回文数的算法。所谓回文数是指左右数字完全对称的自然数。例如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

查看完整回答
反对 回复 2021-12-06
?
红颜莎娜

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



查看完整回答
反对 回复 2021-12-06
  • 2 回答
  • 0 关注
  • 336 浏览

添加回答

举报

0/150
提交
取消
意见反馈 帮助中心 APP下载
官方微信