VB 输出回文数

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

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

3、然后双击 FORM1 窗体，在弹出的代码窗体中复制该代码到Form_Click() 事件中。代码：Dim l As Integera = 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 IfNext i

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