编程论坛 → VB6论坛

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

tonoy 发布于 2013-08-27 10:04， 861 次点击

# 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 编辑 ]

6 回复

wp2319572013-08-27 10:26

这是原创？？？

tonoy2013-08-27 12:44

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

lowxiong2013-08-27 14:06

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

wp2319572013-08-27 15:38

程序代码：

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

饿不懂vb
测试了一下以上代码  在windows form 应用中可用

在控制台下  没弄明白

bczgvip2013-08-27 22:14

NET 呐。

tonoy2013-08-28 19:26

写得太急，用错符号了...悟空这可如何是好