| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 797 人关注过本帖
标题:刚学vb不久,遇到个问题难以解决,请高手指点不甚感激!!!
只看楼主 加入收藏
因为曾今年少
Rank: 2
等 级:论坛游民
帖 子:131
专家分:62
注 册:2011-4-13
结帖率:92.31%
收藏
 问题点数:0 回复次数:3 
刚学vb不久,遇到个问题难以解决,请高手指点不甚感激!!!
编程:1+(1+2)+(1+2+3)+(1+2+3+4)+…(1+2+3+…N)+…
DO   While…L oop循环语句编写
很急啊
请高手给个指点啊!!!!!!!!

2011-04-18 15:42
林中白羊
Rank: 2
等 级:论坛游民
帖 子:5
专家分:38
注 册:2011-4-18
收藏
得分:0 
dim n as integer=cint(textbox1.text)
dim sum as long=0
dim i as integer=1
do while i<=n
sum+=i
i+=1
loop

dim n as integer=cint(textbox1.text)
dim sum as long=0
dim i as integer=1
do until i>n
sum+=i
i+=i
loop

加油
2011-04-19 14:38
不说也罢
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:贵宾
威 望:39
帖 子:1481
专家分:4989
注 册:2007-10-7
收藏
得分:0 
楼主,提问过去几天了,二楼的代码正确吗?

===================================================
讨厌C#的行尾的小尾巴;和一对大括号{ }
===================================================
2011-04-21 17:47
swlike
Rank: 1
等 级:新手上路
帖 子:5
专家分:5
注 册:2011-4-29
收藏
得分:0 
这段代码是错的,应该是这样:
 MsgBox(Sum(3))‘这段代码可以验证一下N为3时的结果
Private Function Sum(ByVal N As Integer) As Long
        Dim s As Long = 0
        Dim i As Integer = 1
        Do While i <= N
            Dim j As Integer = 1
            Dim s1 As Integer = 0
            Do While j <= i
                s1 += j
                j += 1
            Loop
            s += s1
            i += 1
        Loop
        Return s
    End Function
2011-05-01 08:19
快速回复:刚学vb不久,遇到个问题难以解决,请高手指点不甚感激!!!
数据加载中...
 
   



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

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