返回首页

vb求s＝1+(1+2)+(1+2+3)+(1+2+3+4)+...+(1+2+3+4+n)用

发布时间：2018-05-10 09:40:23

Private Sub CommandButton1_Click() Dim i, sumi, s As Integer i = 1 s = 0 sumi = 1 Do i = i + 1 sumi = sumi + i s = s + sumi Loop Until s > 5000 TextBox1.Text = "前" & i & "项的和=" & s End Sub

相关内容

最新内容

← 上一条：编程实现求Sum=1+（1+2）+（1+2+ 下一条：c#中，如何用正则表达式匹配sql语句whe →

热门栏目