vb计算S=1*2+2*3+3*4+.....N*(N+1)直到和大于5000停止，输出结果及N的值。
答案:3 悬赏:70
解决时间 2021-02-14 18:59
- 提问者网友：余味
- 2021-02-14 04:09
vb计算S=1*2+2*3+3*4+.....N*(N+1)直到和大于5000停止，输出结果及N的值。
最佳答案
- 二级知识专家网友：一池湖水
- 2021-02-14 04:20
'建立一个command1
dim n as integer, i as integer, total as integer
private sub command1_click()
cls
n = inputbox("请输入n的值:", "输入", "5")
total = 0
for i = 1 to n
if i mod 2 = 0 then
total = total + i * (i + 1)
end if
next i
print "前"; n; "项中偶数项的和是："; total
end sub
已经运行过。
dim n as integer, i as integer, total as integer
private sub command1_click()
cls
n = inputbox("请输入n的值:", "输入", "5")
total = 0
for i = 1 to n
if i mod 2 = 0 then
total = total + i * (i + 1)
end if
next i
print "前"; n; "项中偶数项的和是："; total
end sub
已经运行过。
全部回答
- 1楼网友：努力只為明天
- 2021-02-14 07:03
Private Sub cmdCommand1_Click()
Dim sum As Integer
Dim i As Integer
i = 1
Do While sum <= 5000
sum = sum + i * (i + 1)
i = i + 1
Loop
MsgBox sum
End Sub
- 2楼网友：而你却相形见绌
- 2021-02-14 05:36
Private Sub Command1_Click()
Dim N As Long, S As Long
Do
N = N + 1
S = S + N * (N + 1)
If S > 5000 Then Exit Do
Loop
Print "结果=" & S
Print " N =" & N
End Sub
'结果=5200
'N=24
请参考。
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯