刘金玉的零基础VB教程077期：回文数可以如此简单？StrReverse函数运用

https://v.qq.com/x/page/t0941m2pb10.html

文字讲解：

刘金玉的零基础VB教程077期：

回文数可以如此简单？StrReverse函数运用

回文数（对称数）

12321、11、121

特点：正向读写与反向读写得到同一个结果

负数、小数没有回文数

Strreverse函数

StrReverse(字符串参数) 返回一个“逆序输出”的字符串

课堂总结

1、掌握StrReverse函数的运用

2、比较的时候最好转成同一个数据类型来比较 3、学会符号变量的声明

界面：

源代码：

Private Sub Command1_Click()
Dim s$, i&
Text2.Text = ""
For i = 0 To Val(Text1.Text) Step 1
    
    '判断是否是回文数
    If CStr(i) = StrReverse(CStr(i)) Then
        Text2.Text = Text2.Text & i & ","
    End If
    
Next i



End Sub