湖南君弘投资股票配资

21视频教程网
论坛交流
股票配资 办公自动化| 网页制作| 平面设计| 动画制作| 数据库开发| 程序设计| 全部视频教程
应用视频: 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语言程序设计热门教程
Word教程网 Excel教程网 Dreamweaver教程网 Fireworks教程网 PPT教程网 FLASH教程网 PS教程网
HTML教程网 DIV CSS教程网 FLASH AS教程网 ACCESS教程网 SQL SERVER教程网 C语言教程网 JAVASCRIPT教程网
ASP教程网 ASP.NET教程网 CorelDraw教程网        

配资公司 我们 | 教程购买 | 广告刊登 | 网站地图 | |购买视频教程QQ:(点击配资开户 )购买教程光盘
地址:湖北省武汉市曹家湾32号501室 电话:027-86646545 15972130058--教程购买问题汇总
21视频教程网专业的网站开发视频教程学习网站
|

湖南君弘投资股票配资