vb程序求S=1+(1+2)+(1+2+3)+……+(1+2+3+……+99+100)
vb程序求S=1+(1+2)+(1+2+3)+……+(1+2+3+……+99+100)
日期：2012-04-09 20:23:04 人气：1
' 下面是算法，可手动输入次数
A = INPUTBOX("请输入一个大于1的正整数，例如：100","输入框",100)
for i =1 to A
t = i * (A + 1 - i)
S = S + t
next
msgbox "从1到" & A & "的和值为 : " & S