如题所述
我给你写了个函数Fun ,不管是几位数都能求出这个数的各个位数的立方和
Private Function Fun(Num As Long) As Long
Dim i As Integer, he As Long
For i = 1 To Len(CStr(Num))
he = he + Val(Mid(CStr(Num), i, 1)) ^ 3
Next i
Fun = he
End Function
'调用方法举例
Dim j As Long, c As Long
j = InputBox("请输入一个数,计算各个位数的立方和", "计算立方和")
c = Fun(j)
MsgBox j & "这个数的各个位数的立方和是" & c
Private Function Fun(Num As Long) As Long
Dim i As Integer, he As Long
For i = 1 To Len(CStr(Num))
he = he + Val(Mid(CStr(Num), i, 1)) ^ 3
Next i
Fun = he
End Function
'调用方法举例
Dim j As Long, c As Long
j = InputBox("请输入一个数,计算各个位数的立方和", "计算立方和")
c = Fun(j)
MsgBox j & "这个数的各个位数的立方和是" & c
温馨提示：答案为网友推荐，仅供参考
第1个回答 推荐于2018-05-14
可以在Excel表中的A1表格中填写"1234",
在B1表格中填写"POWER(MID(A1,1,1),3)+POWER(MID(A1,2,1),3)+POWER(MID(A1,3,1),3)+POWER(MID(A1,4,1),3)"
这样就可以得到你想要的值，呵呵
注意以上的表格中填写的双引号不要加进去哦。本回答被提问者和网友采纳
在B1表格中填写"POWER(MID(A1,1,1),3)+POWER(MID(A1,2,1),3)+POWER(MID(A1,3,1),3)+POWER(MID(A1,4,1),3)"
这样就可以得到你想要的值，呵呵
注意以上的表格中填写的双引号不要加进去哦。本回答被提问者和网友采纳
第2个回答 2008-12-17
function lifanghe(num as integer)
lifanghe=val(mid(num,1,1))^3+val(mid(num,2,1))^3+val(mid(num,3,1))^3+val(mid(num,4,1))^3
end function
lifanghe=val(mid(num,1,1))^3+val(mid(num,2,1))^3+val(mid(num,3,1))^3+val(mid(num,4,1))^3
end function
第3个回答 2019-04-17
private function fun(n as integer) as integer
fun = 0
dim i as integer
for i = 2 to n / 2
if n mod i = 0 then fun = fun + i
next i
end function
fun = 0
dim i as integer
for i = 2 to n / 2
if n mod i = 0 then fun = fun + i
next i
end function
