这篇文章给大家介绍如何进行StrReverse函数运用及回文数分析,内容非常详细,感兴趣的小伙伴们可以参考借鉴,希望对大家能有所帮助。
回文数可以如此简单?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
关于如何进行StrReverse函数运用及回文数分析就分享到这里了,希望以上内容可以对大家有一定的帮助,可以学到更多知识。如果觉得文章不错,可以把它分享出去让更多的人看到。
免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。