怎么样编写N=1的平方加2的平方加3的平方

c语言的程序:
main()
{int m,n=0,i; &&变量M代表子项的个数.
scanf("%d",&m); 变量N为累加和,i代表每个子项.
for(i=1;i<=m;i++)
n=n+i*i;
printf("%d",n);

通用一些, 给出一个子程序,自己去调用 < 如: Writeln(SqSum(3)) > :
如果是PASCAL,
function SqSum(i: Integer): Integer;
var
n, V: Integer;
begin
V := 0;
for n := 1 to i do V := V + Sqr(i);
SqSum := V;
end;

或用递归:
function SqSum(i: Integer): Integer;
var
V: Integer;
begin
if i > 1 then V := SqSum(i-1) + Sqr(i)
else V := 1;
SqSum := V;
end;

或者BASIC:

V = 0
FOR N = 1 TO 3
V = V + N*N
NEXT
PRINT V

'不知道你用的啥编程的软件？
这里是VB 的代码，

private form_sub
dim a as long,b as long‘总结果
for a=1 to 3'这里写上欲循环的位置
b=b+a^2
next a
msgbox "结果: 从循环到" & a & "的结果是 " & b
end sub

JsValue(n)