| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 835 人关注过本帖
标题:誰可以幫我把我的程序改寫成冒泡排序法。
取消只看楼主 加入收藏
hyp625
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2010-5-7
结帖率:75%
收藏
已结贴  问题点数:11 回复次数:1 
誰可以幫我把我的程序改寫成冒泡排序法。
Option Base 1
Private Sub Form_click()
Dim a%(), imin%, n%, i%, j%, t%, p%
Cls
Randomize
i = InputBox("输入数组的元素个数:")
ReDim a(i)
For j = 1 To i
    a(j) = Int(Rnd * 200 + 1)
Next j
n = UBound(a)
For k = 1 To i
    imin = a(k)
    For j = 1 To i
    If a(j) < a(k) Then
            p = a(j)
            a(j) = a(k)
            a(k) = p
    End If
    Next j
Next k
For i = LBound(a) To UBound(a)
    Print a(i);
    If i Mod 8 = 0 Then Print
Next
End Sub
用泡排序法实现有N个元素数组的排序。N由键盘输入,数组元素的值在1~200之间,随机产生。
搜索更多相关主题的帖子: 冒泡 
2010-06-05 13:25
hyp625
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2010-5-7
收藏
得分:0 
怎麼會那麼複雜的...有沒簡單點的版本
2010-06-05 18:23
快速回复:誰可以幫我把我的程序改寫成冒泡排序法。
数据加载中...
 
   



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

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