作业帮 > 综合 > 作业

已知S=1*1+2*2+3*3+4*4+……+(N-1)(N-1)+N*N,从键盘输入N计算S的值.写出程序

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/11/05 14:51:09
已知S=1*1+2*2+3*3+4*4+……+(N-1)(N-1)+N*N,从键盘输入N计算S的值.写出程序
'回答:
'在VB或VBA中运行如下代码
'即可运算并显示出楼主想要的1与输入的任何正整数之间的平方和
Sub jisuan()
Dim s As Long
s = 0
Dim N
N = InputBox("请输入一个整数N")
N = Int(Val(N))
For i = 1 To N
s = s + i * i
Next
MsgBox "1至" & N & "的平方和为:" & s
End Su