论坛交流
首页办公自动化| 网页制作| 平面设计| 动画制作| 数据库开发| 程序设计| 全部视频教程
应用视频: 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常用算法:选择法排序


选择法排序
 
  (1) 从n个数中选出最小数的下标,出了循环,将最小数与第一个数交换位置;
 
  (2) 除第一个数外,在剩下的n-1个数中再按方法(1)选出次小的数,与第二个数交换位置;
 
  (3) 以此类推,最后构成递增序列。
 
  譬如:
 
  8 6 9 3 2 7
 
  第一轮交换后 2 6 9 3 8 7
 
  第二轮交换后 2 3 9 6 8 7
 
  第三轮交换后 2 3 6 9 8 7
 
  第四轮交换后 2 3 6 7 8 9
 
  第五轮无交换 2 3 6 7 8 9
 
  程序代码如下:
 
以下是引用片段:
  PRivate Sub xzPaiXu(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 '进行数组大小-1轮比较
  m = i '在第i轮比较时,假定第
  'i个元素为最值元素
  For j = i + 1 To UBound(a) '在剩下的元素中找出最
  '值元素的下标并记录在m中
  If sheng Then '若为升序,则m记录最小元素
  '下标,否则记录最大元素下标
  If a(j) < a(m) Then m = j
  Else
  If a(j) > a(m) Then m = j
  End If
  Next j '将最值元素与第i个元素交换
  temp = a(i)
  a(i) = a(m)
  a(m) = temp
  Next i
  End Sub
  调用该过程示例:
  Option Base 1
  Private Sub Command1_Click()
  Dim b(6) As Double
  b(1) = 8
  b(2) = 6
  b(3) = 9
  b(4) = 3
  b(5) = 2
  b(6) = 7
  Call xzPaiXu(b, True)
  For i% = 1 To 6
  Print b(i)
  Next
  End Sub

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