VB编程求出100～999之间的所有回文数，并按行输出

2025-01-04 01:02:05

推荐回答（2个）

回答1：

首先说明什么是回文数：左右对称的自然数称回文数。如121，4224，13731等
你所出的题目是求三位数以内的所有回文数，所以只要判断第一位和第三位的数字是否一样，一样则为回文数。
代码如下：
Private
Sub
Command1_Click()
For
i
=
100
To
999
'100到999循环
a$
=
Trim$(Str(i))
'转换成字符串
b
=
Left$(a$,
1)
'截取左边第一位
d
=
Right$(a$,
1)
'截取右边第一位
If
b
=
d
Then
'判断左右是否相等,相等既是回文数.
T1.Text
=
T1
+
Str(i)
End
If
Next
End
Sub

回答2：

Private
Sub
Command1_Click()
For
i
=
100
To
999
'从100到999循环
If
i
=
Val(StrReverse(Str(i)))
Then
'StrReverse()函数是将字符串反序
Print
i
'打印出符合条件的数
End
If
Next
i
End
Sub