首页 新闻 论坛 群组 Blog 文档 下载 读书 Tag 网摘 搜索 .NET Java 游戏 视频 人才 外包 培训 数据库 书店 程序员
中国软件网
欢迎您:游客 | 登录 注册 帮助
    • vb.net编写
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-02-23 19:21:16 楼主
    有谁会运用简单的算法，编写一个小程序，如冒泡，等等!!请各位指教!!
    20  修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-02-23 19:55:261楼 得分:0
    大家帮帮忙啊！！谢啊！！！
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • akirya
    • 等级:
    发表于：2008-02-23 22:50:472楼 得分:0
    小程序,呃,冒泡....
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-02-25 17:07:333楼 得分:0
    -_-
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-02-26 13:04:494楼 得分:0
    俺就上来冒个泡。。。。。。
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-02-26 14:20:585楼 得分:0
    冒泡……

    从网上搜索一下，这个应该很多的。
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-02-26 14:36:596楼 得分:0
    网上冒泡的源代码很多，可以去查查
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-02-26 16:22:297楼 得分:0
        o
        o
        o
      O_O
      - -
      - - -
      - -
        -
      / \
    我也给你冒个泡！嘿嘿
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-02-29 19:33:338楼 得分:0
    vb代码
    Private Sub Command1_Click()
    Dim a(5) As Long
    a(0) = 3
    a(1) = 6
    a(2) = 10
    a(3) = 2
    a(4) = 15
    a(5) = 1

    Dim i As Integer
    Dim j As Integer
    Dim temp As Long

    For i = 0 To 5
      For j = i To 5
        If a(j) <= a(i) Then
            temp = a(j)
            a(j) = a(i)
            a(i) = temp
        End If
      Next
    Next
           
    For i = 0 To 5
      Print a(i)
      Next
     
    End Sub

    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-02-29 21:37:259楼 得分:0
    支持《楼上的
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-03-01 00:07:0710楼 得分:0
    Private  Sub  Command1_Click()
    Dim  a(5)  As  Long
    a(0)  =  3
    a(1)  =  6
    a(2)  =  10
    a(3)  =  2
    a(4)  =  15
    a(5)  =  1

    Dim  i  As  Integer
    Dim  j  As  Integer
    For  i  =  0  To  5
          For  j  =  i  To  5
              exchange(a(i),b(j))
          Next
    Next
                   
      For  i  =  0  To  5
          Print  a(i)
          Next
         
    End  Sub

    Private  Sub exchange(byval a as inteage,byval b as inteage)
    dim temp as Long
    If  a  <=  b  Then
                    temp  =  a
                    a  =  b
                    b  =  temp
              End  If
    end sub

    面向对象的冒泡，不知道这样对不，搞笑专用。
    修改 删除 举报 引用 回复
    网站简介－广告服务－网站地图－帮助－联系方式－诚聘英才－English－ 问题报告
    北京创新乐知广告有限公司 版权所有 京 ICP 证 070598 号
    世纪乐知(北京)网络技术有限公司 提供技术支持
    Copyright © 2000-2008, CSDN.NET, All Rights Reserved