| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1112 人关注过本帖
标题:循环嵌套语句`帮讲解下好么``
只看楼主 加入收藏
早睡早起
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2008-3-13
收藏
 问题点数:0 回复次数:3 
循环嵌套语句`帮讲解下好么``
Dim i As Long, l As Long, n As Long
    For i = 0 To 9      
        For l = i To 9
            If a(i) > a(l) Then
                n = a(i)
                a(i) = a(l)
                a(l) = n
            End If
        Next l
        Print a(i)   
    Next i
End Sub

我想知道他的循环方式```很费解呢``
当i=1时
for l=i to 9
这个语句是怎么循环的啊``不懂````
i=1 l=??
搜索更多相关主题的帖子: 嵌套 语句 Long 讲解 Next 
2008-05-08 06:57
那边有朵蘑菇云
Rank: 1
来 自:很……那啥的一个地方
等 级:新手上路
威 望:1
帖 子:390
专家分:0
注 册:2007-9-3
收藏
得分:0 
经典冒泡算法
呵呵
For i = 0 To 9      
        For l = i To 9
            If a(i) > a(l) Then
                n = a(i)
                a(i) = a(l)
                a(l) = n
先这样来看 当i=0 时候 内层循环 就用l=0 to 9 循环一遍
     当i=1 时候  内层循环 就 是l=1 to 9 循环一遍
     当i=2      .......        l=2 to 9  循环一遍
                     .
                     .
                     .
    当i=9        ........       l=9 to 9 循环一遍
呵呵 加上交换,限制,If a(i) > a(l) Then
                n = a(i)
                a(i) = a(l)
                a(l) = n
            End If
就是传说中的冒泡算法  一大堆数 任意多 就这个方法可以排序 找最值

身不残 志更不坚
2008-05-08 08:34
早睡早起
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2008-3-13
收藏
得分:0 
假如
a(0)=564;a(1)=78:a(2)=45:a(3)=456412:a(4)=456:a(5)=1:a(6)=124
a(7)=12:a(8)=966:a(9)=13
我想知道IF语句是怎么进行比较的呢`
这里面的循环又是怎么进行的比较方式呢`
我想不透呢``望各位大虾给点提醒`来个````` 棒槌`````
2008-05-08 14:05
cpu内存条
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2008-5-8
收藏
得分:0 
for i=0 to 6
 for l=i to 6
当i=0 时,for l=0  to  6  ,
       l=0  同一个数,不做什么调换.
       l=1 a(0)a(1)进行比较   大的调到后面,
       l=2 时 a(1) a(2)进行比较,大的往后调
     一直做到l=6
内层循环做一次,把最大的调到最后,

然后做外循环的第二次.

直到外循环做完.

不过我怀疑这个程序是不是不对啊,如果按程序做的,好像没什么意义.如果要做从小到大的排列,应该把第二个循环的for l= i to 6 改成l=o to 9-i
不知道我理解的对不对,我也是新手,呵呵
2008-05-08 14:19
快速回复:循环嵌套语句`帮讲解下好么``
数据加载中...
 
   



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

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