編寫函數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\n",max,Row,Col);}

百度百科-函數

上一篇:用Java實現畫圖板功能的程序，請問如何編寫壹個繪制三角形的程序段

下一篇:穩定擴散總是畫出難看的手。如何避免或解決這個問題？