编写程序求s=1 ＋(1 ＋2) (1＋ 2＋ 3) … (1 ＋2 ＋3 …)

Question

第一题用for循环求前30项和 第二题 在用until求多项式和直到和大于5000为止，用vb

Answer 1

Private Sub Command1_Click()
  s = 0
  t = 0
  For i = 1 To 30
    t = t + i
    s = s + t
  Next i
  Print "s1="; s
  Print
End Sub

Private Sub Command2_Click()
  s = 0
  t = 0
  i = 1
  Do Until s > 5000
    t = t + i
    s = s + t
    i = i + 1
  Loop
  Print "s2="; s
End Sub