湖南君弘投资股票配资

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常用算法:选择法排序


选择法排序
 
  (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语言程序设计热门教程
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视频教程网专业的网站开发视频教程学习网站
|

湖南君弘投资股票配资