作业帮 > 数学 > 作业

一道VB题目 关于回文数的

来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/07/06 12:53:54
一道VB题目 关于回文数的
1.编写一子过程,对于已知正整数,判断该数是否是回文数,所谓回文数是指顺读与倒读数字相同,即指最高位与最低位相同,次高位与次低位相同,依次类推,当只有一位数时,也认为是回文数. 提示: 所谓回文数是指顺读与倒读数字相同,即最高位和最低位相同,次高位与次低位相同,依次类推,当只有一位数时,也认为是回文数. 回文数的求法,只要对输入的数(按字符串类型处理),利用mid函数从两边往中间逐位比较,若不相同,就不是回文数.
Private Sub Form_Click() Dim a As String a = InputBox("请输入一串数字,判断是否是回文:") Print huiwen(a) End Sub Function huiwen(b As String) As String If b = StrReverse(b) Then huiwen = "是回文" Else huiwen = "不是回文" End If End Function