'回答：
'在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 Sub