VB 逐个判断回文数

来源：百度知道 编辑：UC知道 时间：2024/06/24 04:56:41
在TextBox1 里输入几行数，比如：
1233
23432
123
4566
45654
当然可能有更多行，然后逐个判断哪个是回文数，哪个不是，然后显示在TextBox2里，对于是回文的后面打个星，比如上述几行在TextBox2里的显示就应该是
1233
23432★
123
4566
45654★
想了好久，也只能判断只有一个的，对于好多行的是在不会弄，麻烦大虾们了，VB初学者谢过
请把源代码复制在下，再次感谢

建一个Text1,Text2,Command1。
Text1,Text2的Multiline都设置为True。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
Text2.Text = ""
Dim a, i As Integer, n, s As String
a = Split(Text1.Text, vbCrLf)
For Each n In a
s = s & n
If n = StrReverse(n) Then s = s & "★"
s = s & vbCrLf
Next
Text2.Text = s
End Sub