Dim N As Long
Dim i As Long
N = Val(InputBox("请输入数字 ", "输入数字"))
For i = 1 To N
s = s + i ^ 2
Next
MsgBox s
昏暗的N作为长
点我只要
N = VAL(输入框(“请输入一个数字”,“输入号码”))
对于i = 1到n
S = S + I ^ 2
MsgBox的
a=0
for i := 1 to n do
begin
a := a + i*i;
end
showmessage(a)