vb编程问题请大虾帮忙

来源：百度知道 编辑：UC知道 时间：2024/06/10 18:28:58
编写函数fun，函数的功能是：求一个四位数的各位数字的立方和
这个题的代码怎么写啊？

function add(byval q as integer) as integer
dim a,s,d,f as integer
a=s\1000
s=(q-1000*a)\100
d=(q-1000*a-100*b)\100
f=q mod 10
add=a^3+s^3+d^3+f^3
end function

你知道怎么把四位数通过除和模分解成4个数字就可以搞定了