用VS2010做VB的题目
“自定义函数,编写函数过程IsH(n),对于已知正整数n,判断该数是否是回文数,函数的返回值类型为布尔型。主调程序每输入一个数,调用IsH函数过程,然后在Label标签中...
“自定义函数,编写函数过程IsH(n),对于已知正整数n,判断该数是否是回文数,函数的返回值类型为布尔型。主调程序每输入一个数,调用IsH函数过程,然后在Label标签中显示输入的数字,对于回文数显示一个“★”。”题目要求,大神们求帮忙!~~
展开
2个回答
展开全部
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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询