作业帮 > 综合 > 作业

用VS2010做VB的题目

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/29 19:45:51
用VS2010做VB的题目
“自定义函数,编写函数过程IsH(n),对于已知正整数n,判断该数是否是回文数,函数的返回值类型为布尔型.主调程序每输入一个数,调用IsH函数过程,然后在Label标签中显示输入的数字,对于回文数显示一个“★”.”题目要求,
     Private Function isH(ByVal value As String) As Boolean
        If Not IsNumeric(value) Then MsgBox("判断类型必须为数值类型数据!") : Return False
        If value = StrReverse(value) Then
            Return True
        Else
            Return False
        End If
    End Function判断回文数
再问: 呃。。忘记讲还有条件了,还要利用Mid函数,然后一个数字的话也是回文数。
再答:  Public Function isH(ByVal Value As String) As Boolean
        Dim tmp As String = ""
        If Not IsNumeric(Value) Then MsgBox("判断类型必须为数值类型数据!") : Return False
        For i = Value.Length To 1 Step -1
            tmp += Strings.Mid(Value, i, 1)
        Next
        If tmp = Value Then
            Return True
        Else
            Return False
        End If
    End Function