以vb程序表达式1^2-2^2+3^2-4^2+…+(N-1)^2-N^2 5
4个回答
展开全部
Private Sub Command1_Click()
Dim n As Long, sum As Double
n = Val(InputBox("n=?"))
For i = 1 To n
sum = sum + (-1) ^ (i - 1) * i ^ 2
Next i
MsgBox "所求的和为：" & sum
End Sub
Dim n As Long, sum As Double
n = Val(InputBox("n=?"))
For i = 1 To n
sum = sum + (-1) ^ (i - 1) * i ^ 2
Next i
MsgBox "所求的和为：" & sum
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
Private Sub Command1_Click()
Dim n As Single, s As Double
n = Val(InputBox("n=?"))
For i = 1 To n
s = s + (-1) ^ (i - 1) * i ^ 2
Next i
print "和为：" & s
End Sub
Dim n As Single, s As Double
n = Val(InputBox("n=?"))
For i = 1 To n
s = s + (-1) ^ (i - 1) * i ^ 2
Next i
print "和为：" & s
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
看不明白
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
