急求，这两条vb作业代码是什么啊？
1.编一函数过程IsH（n），对于已知正整数n，判断该数是否为回文数，函数的返回值类型为布尔型。主程序每输入一个数，调用IsH函数过程，然后在图形框显示输入的数，对于回文数显示一个“@”2.如果一个整数的所有因子（包括1，但不包括本身）之和与该数相等，则称这个数为完数。例如6=1+2+3，所以6是一个完数。编写一个函数IsWs（m）判断m是否为完数，函数的返回值是逻辑型。主调程序在列表框显示1000以内的完数 --------------------编程问答-------------------- 晕,那么简单的东西,纯属逻辑性的东西,你都来问???? --------------------编程问答-------------------- 慢慢急,气大了伤身
--------------------编程问答--------------------
帮顶，给你凑个人气
--------------------编程问答--------------------
--------------------编程问答-------------------- 对了,我忘了说了,不知道1位数的算不算回文呵呵,要是算的话,自己修改上面的那个吧.
'1.编一函数过程IsH（n），对于已知正整数n，判断该数是否为回文数，函数的返回值类型为布尔型。
'另一个在写中...哎...
Private Function isH(ByVal n As String) As Boolean
l = Len(n)
For i = 1 To l / 2
a = Mid(n, i, 1)
b = Mid(n, l - i + 1, 1)
If a <> b Then
isH = False
Exit Function
Else
isH = True
End If
Next
End Function
--------------------编程问答-------------------- 你太吝啬了,帖子0分.我K.
'如果一个整数的所有因子（包括1，但不包括本身）之和与该数相等，
'则称这个数为完数。例如6=1+2+3，所以6是一个完数。
'编写一个函数IsWs（m）判断m是否为完数，函数的返回值是逻辑型。
'主调程序在列表框显示1000以内的完数
Private Function isWs(ByVal m As String) As Boolean
For i = 1 To m / 2
If m Mod i = 0 Then
Sum = Sum + i
End If
Next
If Sum = m Then
isWs = True
Else
isWs = False
End If
End Function
补充：VB , 基础类
