[原创][分享]自然数求和公式，VB循环求和 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → [原创][分享]自然数求和公式，VB循环求和

标题：[原创][分享]自然数求和公式，VB循环求和

只看楼主

tonoy

等　级：论坛游民
帖　子：24
专家分：72
注　册：2013-8-25

楼主

问题点数：0 回复次数：6

[原创][分享]自然数求和公式，VB循环求和

# Sn = n * (n + 1) / 2 'n=最大数
msgbox sn=n*(n+1) /2

我发的代码怎么没了

程序代码：

private sub command1_click()
L = 0
  for i = 1 to 100
  L= L + i
  next i
end sub

补上

[ 本帖最后由 tonoy 于 2013-8-28 19:26 编辑 ]

搜索更多相关主题的帖子: 自然数　

2013-08-27 10:04

wp231957

来　自：神界
等　级：版主
威　望：422
帖　子：13681
专家分：53296
注　册：2012-10-18

第 2 楼

得分:0

这是原创？？？

DO IT YOURSELF !

2013-08-27 10:26

tonoy

等　级：论坛游民
帖　子：24
专家分：72
注　册：2013-8-25

第 3 楼

得分:0

早上发的代码没有了，补上了。代码段原创，百度百科的简单办法等差数列

2013-08-27 12:44

lowxiong

等　级：贵宾
威　望：27
帖　子：652
专家分：3402
注　册：2008-5-7

第 4 楼

得分:0

你还是把你的代码放到vb里验证一下，你就知道错的离谱。

2013-08-27 14:06

wp231957

来　自：神界
等　级：版主
威　望：422
帖　子：13681
专家分：53296
注　册：2012-10-18

第 5 楼

得分:0

程序代码：

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim l As Integer
        Dim i As Integer
        l = 0
        For i = 1 To 100
            l = l + i
        Next i
        MsgBox(l)
    End Sub
End Class