用VS2010做VB的题目
来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/29 19:45:51
用VS2010做VB的题目
“自定义函数,编写函数过程IsH(n),对于已知正整数n,判断该数是否是回文数,函数的返回值类型为布尔型.主调程序每输入一个数,调用IsH函数过程,然后在Label标签中显示输入的数字,对于回文数显示一个“★”.”题目要求,
“自定义函数,编写函数过程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
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