作业帮 > 综合 > 作业

VB:编一函数过程,对一已知数m判断其是否为完数.所谓完数即该数等于其因子之和

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/05/01 19:02:24
VB:编一函数过程,对一已知数m判断其是否为完数.所谓完数即该数等于其因子之和
要利用函数过程形式:FunctionWS(m%) as boolean
Function WS(m%) As Boolean
Dim i%,s%
For i = 1 To m \ 2
If m Mod i = 0 Then s = s + i
Next
WS = (m = s)
End Function
函数调用举例:
Private Sub Command1_Click()
Dim k%
k = Val(InputBox("请输入一个数"))
MsgBox k & IIf(WS(k),"是","不是") & "完数"
End Su