VB 输出回文数
“回文”是指正读反读都能读通的句子,它是古今中外都有的一种修辞方式和文字游戏,如“我为人人,人人为我”等。在数学中也有这样一类数字有这样的特征,成为回文数(palindrome number)。[1]
设n是一任意自然数。若将n的各位数字反向排列所得自然数n1与n相等,则称n为一回文数。例如,若n=1234321,则称n为一回文数;但若n=1234567,则n不是回文数。
注意:
1.偶数个的数字也有回文数124421
2.小数没有回文数
操作方法
- 01
双击桌面图标启动 visual basic 6.0
- 02
选择标准EXE,然后点击打开。
- 03
然后双击 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
- 04
之后,按下F5 测试,程序编译成功后会自动运行,并点击窗体,输入数值。
赞 (0)