vb计算S=1*2+2*3+3*4+.N*(N+1)直到和大于5000停止,输出结果及N的值.

来源:学生作业帮助网 编辑:作业帮 时间:2024/09/01 02:51:41
vb计算S=1*2+2*3+3*4+.N*(N+1)直到和大于5000停止,输出结果及N的值.
x)+KznuӃm L4 5cI=O,igk7i'?7iY-O$SL;ڸ4(,$U!4I9?771/09'39[C%3WOX'?/]'Ƃ)?[mC0/ 4<Ӏv w)d)Vd(@/'DA X[%5`dq`A?k^ `:TDz~ ,.H̳'}ϐ

vb计算S=1*2+2*3+3*4+.N*(N+1)直到和大于5000停止,输出结果及N的值.
vb计算S=1*2+2*3+3*4+.N*(N+1)直到和大于5000停止,输出结果及N的值.

vb计算S=1*2+2*3+3*4+.N*(N+1)直到和大于5000停止,输出结果及N的值.
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
请参考.