VB 输出回文数

双击桌面图标启动 visual basic 6.0

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

然后双击  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

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