高职考技能提升教程010期 回文数（对称数）

回文数

这是古代的一种游戏性的修辞方式。例如“人人为我，我为人人”，这样的文字，正向念和反向念是一样的。

符号复习

％ 表示整型integer

& 表示长整型long

! 表示单精度型decimal

# 表示双精度型double

@ 表示通用型variable

$ 表示字符型string

VB自带逆序函数strreverse

传入参数：字符串

作用：将字符串逆向排序，返回一个逆向排序后的字符串。

举例：传入123，返回321

简单的回文数判断举例

程序理解

1.理解N为输入的速度数据

2.理解P为开了多少路程（公里）

3.变量a的代码判断是根据变量p的构成和仪表盘原公里数的形成来判断

4.条件p\n的判断，是根据题目意思输出一天一夜的里程数，那么就是24小时

5.回文数的判断条件注意判断的时候是仪表盘上显示的数字而不是行驶的里程数(95959 + p) = StrReverse(95959 + p)

学习

只判断整数的条件

p \ n = p / n

总结

注意仔细

注意代码理解

软件设计界面：

源代码分享：

Private Sub Form_Activate()
Dim n%
n = InputBox("请输入速度N:", 速度)
For a = 6 To 9
  For b = 0 To 9
    For c = 5 To 9
      p = 90009 + a * 1000 + b * 100 + c * 10 - 95959
      If p > 0 And (95959 + p) = StrReverse(95959 + p) And p \ n = p / n And p \ n <= 24 Then
         Picture1.Print "当速度为"; n; "经过"; p \ n; "小时,新的对称数为："; (p + 95959)
      End If
    Next c
 Next b
Next a
End Sub

运行时输入速度120的效果截图