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

wgx111 1年前 已收到1个回答 举报

瑜伽兰心 幼苗

共回答了10个问题采纳率:80% 举报

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

1年前

1
可能相似的问题
Copyright © 2024 YULUCN.COM - 雨露学习互助 - 16 q. 0.034 s. - webmaster@yulucn.com