title: 一道很白痴的程序题目请人编 
answer: 我可以给VB的你。Dim i, j, n, s As LongFor i = 1 to 5    n = 1    for j = 1 to i        n = n * j    Next j    s = s + nNext iPascal的也行var i,j,n,s:longint;for i:=1 to 5 do  begin    n:=1;    for j:=1 to i do n:=n*j;    s:=s+n;  end;s就是所求答案