Private Sub Form_Click()
For i = 1 To 30
t = t + i
Sum = Sum + t
Next
Print "前30项的和为：" & Sum
t = 0: Sum = 0: i = 0
Do
i = i + 1
t = t + i
Sum = Sum + t
Loop Until Sum > 5000
Print "第" & i & "项时，和为" & Sum & "，大于5000"
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024