论坛交流
首页办公自动化| 网页制作| 平面设计| 动画制作| 数据库开发| 程序设计| 全部视频教程
应用视频: Windows | Word2007 | Excel2007 | PowerPoint2007 | Dreamweaver 8 | Fireworks 8 | Flash 8 | Photoshop cs | CorelDraw 12
编程视频: C语言视频教程 | HTML | Div+Css布局 | Javascript | Access数据库 | Asp | Sql Server数据库Asp.net  | Flash AS
当前位置 > 文字教程 > C语言程序设计教程
Tag:新手,函数,指针,数据类型,对象,Turbo,入门,运算符,数组,结构,二级,,tc,游戏,试题,问答,编译,视频教程

C语言教程:2013年计算机二级VB常用算法:冒泡法排序

文章类别:C语言程序设计 | 发表日期:12-11-13

2013年计算机二级VB常用算法:冒泡法排序


冒泡法排序
 
  选择排序法在每一轮排序时找最值元素的下标,出了内循环(一轮排序结束),再交换最小数的位置;而冒泡法在每一轮排序时将相邻的数比较,当次序不对就交换位置,出了内循环,最值数已经冒出。
 
  譬如:
 
  8 6 9 3 2 7
 
  8 6 9 3 2 7
 
  8 6 9 2 3 7
 
  8 6 2 9 3 7
 
  8 2 6 9 3 7
 
  2 8 6 9 3 7
 
  ….
 
  2 3 8 6 9 7
 
  ….
 
  2 3 6 8 7 9
 
  ….
 
  2 3 6 7 8 9
 
  ….
 
  2 3 6 7 8 9
 
  程序代码如下:
 
以下是引用片段:
  Private Sub mpPaiXu(a() As Double, sheng As Boolean)
  'a为需要排序的数组,sheng为True则为升序排列,为False,则为降序排列。
  Dim i As Integer, j As Integer
  Dim temp As Double
  Dim m As Integer
  For i = LBound(a) To UBound(a) - 1 '进行n-1轮比较
  For j = UBound(a) To i + 1 Step -1 '从n到i个元素两两进行比较
  If sheng Then '若次序不对,马上进行交换
  If a(j) < a(j - 1) Then
  temp = a(j)
  a(j) = a(j - 1)

  a(j - 1) = temp
  End If
  Else
  If a(j) > a(j - 1) Then
  temp = a(j)
  a(j) = a(j - 1)
  a(j - 1) = temp
  End If
  End If
  Next j '出了内循环,一轮排序结束
  '最值元素冒到最上边
  Next i
  End Sub
  调用该过程代码基本同上。
  2、实战练习
  1) 补充代码
 
  下面是一个采用拉锯式排序法对数组元素按升序进行排序的程序,所谓“拉锯式排序法”是这一遍把最小的元素从下到上送到最上的位置,下一遍则是从上到下把最大的元素送到最下的位置。
 
以下是引用片段:
  Option Base 1
  Private Sub Command1_Click()
  Dim a(10) As Integer,i As Integer
  For i = 1 To 10
  a(i) = Int(Rnd * 10)+1
  Text1 = Text1 & Str(a(i))
  Next i
  Call shaker_sort(a)
  For i = 1 To 10
  Text2 = Text2 & Str(a(i))
  Next i
  End Sub
  Private Sub Shaker_sort(k() As Integer)
  Dim i As Integer,c As Integer,d As Integer
  Dim t As Integer
  c = 1
  d = (1)
  Do
  For  (2) Step-1
  If k(i=1)>k(i) Then
  t = k(i-1):k(i-1) = k(i):k(i) = t
  End If
  Next i
  (3)
  For i = c+1 To d
  If (4) Then
  t = k(i-1):k(i-1) = k(i):k(i) = t
  End If
  Next i
  d = d-1
  Loop While  (5)
  End Sub

视频教程列表
文章教程搜索
 
C语言程序设计推荐教程
C语言程序设计热门教程
看全部视频教程
购买方式/价格
购买视频教程: 咨询客服
tel:15972130058