设计一个判断某正整数是一个回文数的算法。所谓回文数是指左右数字完全对称的自然数。 ---- 第二章 答案 新编Visual Basic程序设计教程 陈斌 著

设计一个判断某正整数是一个回文数的算法。所谓回文数是指左右数字完全对称的自然数。 ---- 第二章 答案 新编Visual Basic程序设计教程 陈斌 著

解j题，算法思路如下：
  S1：输入一个数字字符串S
  S2：I=1
  S3：如果第I个数字与倒数第I个数字不同，则转S7
  S4：I=I+1
  S5：如果I小于等于字符串长度的一半，则返回S3
  S6：输出S是回文数，程序结束
  S7：输出S不是回文数，程序结束。

在窗体建1个文本框，于输入数据，再建一个标签控件，用于输出是不是回文数，再建一个按钮，VB程序代码如下：

Private Sub Command1_Click()
    Dim strX As String, i As Integer
    x = Text1.Text
    For i = 1 To Len(x) / 2
        If Mid(x, i, 1) <> Mid(x, Len(x) - i + 1, 1) Then Exit For
    Next i

    If i > Len(x) / 2 Then
        Label1.Caption = Text1 & "是回文数"
    Else
        Label1.Caption = Text1 & "不是回文数"
    End If
End Sub

此程序运行后，效果图如下：

---- 新编Visual Basic程序设计教程   答案 陈斌  著

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://wb86.com/post/148.html