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

PrivateFu艘绒庳焰nctionFun(NumAsLong)AsLong
DimiAsInteg髫潋啜缅er,heAsLong

Fori=1ToLen(CStr(Num))
he=he+Val(Mid(CStr(Num),i,1))^3

Nexti
Fun=he
EndFunction

调用方法举例

DimjAsLong,cAsLong
j=InputBox("请输入一个数,计算各个位数的立方和","计算立方和")

c=Fun(j)
MsgBoxj&"这个数的各个位数的立方和是"&c

扩展资料：

二次编程：

#include<stdio.h>

#defineN4

#defineM3

intfun(intarray[N][M],intflag){intmax,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)

returnmax;

elseif(flag==1)returnRow;elsereturnCol;}voidmain()

{

intRow,Col,max,i,j;

intarray[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\n",max,Row,Col);}

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