用VS2010做VB的题目
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/07/04 22:23:56
用VS2010做VB的题目
“自定义函数,编写函数过程IsH(n),对于已知正整数n,判断该数是否是回文数,函数的返回值类型为布尔型.主调程序每输入一个数,调用IsH函数过程,然后在Label标签中显示输入的数字,对于回文数显示一个“★”.”题目要求,
“自定义函数,编写函数过程IsH(n),对于已知正整数n,判断该数是否是回文数,函数的返回值类型为布尔型.主调程序每输入一个数,调用IsH函数过程,然后在Label标签中显示输入的数字,对于回文数显示一个“★”.”题目要求,
![用VS2010做VB的题目](/uploads/image/z/6400435-67-5.jpg?t=%E7%94%A8VS2010%E5%81%9AVB%E7%9A%84%E9%A2%98%E7%9B%AE)
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