VB题 急求 编程求S=1²+2²+3²+......+N²（其中N的值要求用键盘输入）
答案:3 悬赏:50 手机版
解决时间 2021-03-31 09:22
- 提问者网友：無理詩人
- 2021-03-30 11:41
VB题 急求 编程求S=1²+2²+3²+......+N²（其中N的值要求用键盘输入）
最佳答案
- 五星知识达人网友：十年萤火照君眠
- 2021-03-30 12:49
Dim N As Long
Dim i As Long
N = Val(InputBox("请输入数字 ", "输入数字"))
For i = 1 To N
s = s + i ^ 2
Next
MsgBox s追问请输入数字 填写什么啊 。。小白不懂 求大神标准答案追答就是N，输到多少算到多少
Dim i As Long
N = Val(InputBox("请输入数字 ", "输入数字"))
For i = 1 To N
s = s + i ^ 2
Next
MsgBox s追问请输入数字 填写什么啊 。。小白不懂 求大神标准答案追答就是N，输到多少算到多少
全部回答
- 1楼网友：雪起风沙痕
- 2021-03-30 14:31
a=0
for i := 1 to n do
begin
a := a + i*i;
end
showmessage(a)追问大神能写的详细点吗 VB的考试题 这么写 老师不给分啊 。。谢谢啦。追答呵呵..我这个是算法...
for i := 1 to n do
begin
a := a + i*i;
end
showmessage(a)追问大神能写的详细点吗 VB的考试题 这么写 老师不给分啊 。。谢谢啦。追答呵呵..我这个是算法...
- 2楼网友：冷風如刀
- 2021-03-30 14:25
昏暗的N作为长
点我只要
N = VAL（输入框（“请输入一个数字”，“输入号码”））
对于i = 1到n
S = S + I ^ 2
MsgBox的
点我只要
N = VAL（输入框（“请输入一个数字”，“输入号码”））
对于i = 1到n
S = S + I ^ 2
MsgBox的
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯