求T=1^1+2^2+3^3+……+100^100的程序编辑

求T=1^1+2^2+3^3+……+100^100的程序编辑

这是数学运算还是位运算？
如果是位运算，就不用写程序了，T肯定是0

如果是数学运算，这个结果是个好大的天文数字啊，有必要出这样的题目吗

double multi( void )
{
double sum = 0 ; // double够不够，要上机实际运行试一下
double m ;
int i , j ;

for( i = 1 ; i <= 100 ; i ++ )
{
m = i ;
for( j = 1 ; j < i ; j ++ )
m *= i ;

sum += m;

}

return m ;
}

uses high;
var
 i,n:integer;
 s,t:string;function mul(n:integer):string;
var
 i:integer;
 t,s:string;
begin
 t:='1';
 str(n:0,s);
 for i:=1 to n do 
  t:=mult(t,s);
 mul:=t;
end;begin
 n:=100;
 s:='0';
 for i:=1 to n do begin
  t:=mul(i);
  writeln(i,'  ',length(t),'  ',t);
  s:=plus(s,t);
 end;
 writeln;
 writeln('sum=',s);
end.
 
sum=10037

Private Sub Command1_Click()
Dim i As Integer, j As Integer, n As Double
For i = 1 To 100
n = n + i ^ i

Next
Print n

End Sub