| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 861 人关注过本帖
标题:[原创][分享]自然数求和公式,VB循环求和
只看楼主 加入收藏
tonoy
Rank: 2
等 级:论坛游民
帖 子: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
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:神界
等 级:贵宾
威 望:423
帖 子:13688
专家分:53332
注 册:2012-10-18
收藏
得分:0 
这是原创  ???

DO IT YOURSELF !
2013-08-27 10:26
tonoy
Rank: 2
等 级:论坛游民
帖 子:24
专家分:72
注 册:2013-8-25
收藏
得分:0 
早上发的代码没有了,补上了。代码段原创,百度百科的简单办法 等差数列
2013-08-27 12:44
lowxiong
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:27
帖 子:652
专家分:3402
注 册:2008-5-7
收藏
得分:0 
你还是把你的代码放到vb里验证一下,你就知道错的离谱。
2013-08-27 14:06
wp231957
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:神界
等 级:贵宾
威 望:423
帖 子:13688
专家分:53332
注 册:2012-10-18
收藏
得分: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
饿不懂vb  
测试了一下 以上代码  在windows form 应用中 可用

在控制台下  没弄明白


DO IT YOURSELF !
2013-08-27 15:38
bczgvip
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:66
帖 子:1310
专家分:5312
注 册:2009-2-26
收藏
得分:0 
NET 呐。
2013-08-27 22:14
tonoy
Rank: 2
等 级:论坛游民
帖 子:24
专家分:72
注 册:2013-8-25
收藏
得分:0 
写得太急,用错符号了...悟空 这可如何是好
2013-08-28 19:26
快速回复:[原创][分享]自然数求和公式,VB循环求和
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.031746 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved