fun 一个四编写函数fun，函数的功能是：求一个四位数的各位数字的立方和（用文本框输入一个四位数） 用vb编写函数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

扩展资料：

二次编程：

#include<stdio.h>

#define N 4

#define M 3

int fun(int array[N][M],int flag){ int max,i,j,Row,Col;

max=array[0][0];

Row=0;

 Col=0;

for(i=0;i<N;i++)

{

for(j=0;j<M;j++)

if(max<array[i][j])

   {    max=array[i][j];

Row=i;

Col=j;

   } }

if(flag==0)

return max;

 else if(flag==1) return Row; else     return Col;}void main()

{

int Row,Col,max,i,j;

 int array[N][M]={1,2,3,4,15,6,12,18,9,10,11,2};

max=fun(array,0);

Row=fun(array,1);

 Col=fun(array,2); printf("max=%d,Row=%d,Col=%d
",max,Row,Col);}

参考资料来源：百度百科-函数

Dim a As Integer, b As Integer, c As Integer, d As Integer, m As Integer
Private Sub Command1_Click()
m = Val(Text1.Text)
MsgBox "该四位数各位立方和为：" & fun(m)
End Sub
Function fun(m As Integer) As Integer
For a = 1 To 9
For b = 0 To 9
For c = 0 To 9
For d = 0 To 9
If m = a * 1000 + b * 100 + c * 10 + d Then
fun = a ^ 3 + b ^ 3 + c ^ 3 + d ^ 3
End If
Next
Next
Next
Next
End Function

<script language="javascript">
function getVal(){
var result = 0;
var num = document.getElementById("number").value;
for(i=0;i<num.length;i++){
var item = Math.pow(parseInt(num.substr(i,1)),3);
result+=item;
}
alert("结果是："+result);
}

</script>
请输入一个四位数：
<input type="text" id="number">
<input type="button" value="计算" onclick="getVal();">

编写函数fun，函数的功能是：求一个四位数的各位数字的立方和（用文本框输入一个四位数~

Private Function Fun(Num As Long) As LongDim i As Integer, he As Long
For i = 1 To Len(CStr(Num))he = he + Val(Mid(CStr(Num), i, 1)) ^ 3
Next iFun = heEnd Function
调用方法举例
Dim j As Long, c As Longj = InputBox("请输入一个数,计算各个位数的立方和", "计算立方和")
c = Fun(j)MsgBox j & "这个数的各个位数的立方和是" & c

扩展资料：
二次编程：
#include#define N 4
#define M 3
int fun(int array[N][M],int flag){ int max,i,j,Row,Col;max=array[0][0];
Row=0;
Col=0;for(i=0;i<N;i++)
{
for(j=0;j<M;j++)
if(max<array[i][j])
{ max=array[i][j];Row=i;
Col=j;
} }if(flag==0)
return max;
else if(flag==1) return Row; else return Col;}void main(){
int Row,Col,max,i,j;
int array[N][M]={1,2,3,4,15,6,12,18,9,10,11,2};max=fun(array,0);
Row=fun(array,1);
Col=fun(array,2); printf("max=%d,Row=%d,Col=%d
",max,Row,Col);}参考资料来源：百度百科-函数

我给你写了个函数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