VB 输出回文数

1、双击桌面图标启动 visual basic 6.0

2、选择标准EXE，然后点击打开。

3、然后双击  FORM1  窗体，在弹出的代码窗体中复制该代码到 Form_Click()  事件中。

代码：

Dim l As Integer

a = Int(InputBox("请输入一个正整数"))

l = Len(a)

For i = 1 To l / 2

   If Mid(a, i, 1) = Mid(a, l + 1 - i, 1) Then

    Cls

    Print

    Print Tab(12); a & "是回文数"

   Else

    Cls

    Print

    Print Tab(12); a & "不是回文数"

   End If

Next i

4、之后，按下F5 测试，程序编译成功后会自动运行，并点击窗体，输入数值。