大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
这篇文章给大家介绍如何进行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函数运用及回文数分析就分享到这里了,希望以上内容可以对大家有一定的帮助,可以学到更多知识。如果觉得文章不错,可以把它分享出去让更多的人看到。