求1+(1+2)+(1+2+3)+(1+2+3+…+n)+…的值.N的值由文本框输入.用vb语言

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/03 17:10:35
求1+(1+2)+(1+2+3)+(1+2+3+…+n)+…的值.N的值由文本框输入.用vb语言

求1+(1+2)+(1+2+3)+(1+2+3+…+n)+…的值.N的值由文本框输入.用vb语言
求1+(1+2)+(1+2+3)+(1+2+3+…+n)+…的值.N的值由文本框输入.用vb语言

求1+(1+2)+(1+2+3)+(1+2+3+…+n)+…的值.N的值由文本框输入.用vb语言
Dim i As Integer
Dim s As Integer
Dim T As Integer
Dim n As Integer
n = Val(InputBox("请输入n值;"))
s = 0
T = 0
For i = 1 To n
T = T + i
s = s + T
Next i
Print s