当前位置:首页 » VB程序题 » 正文

设计一个判断某正整数是一个回文数的算法。所谓回文数是指左右数字完全对称的自然数。 ---- 第二章 答案 新编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://www.wb98.com/post/148.html

本站文章搜索:

<< 上一篇下一篇 >>

文章搜索

Tags列表

赞助商链接

湘公网安备 43011102000514号 - ICP备08100508号