粤教版高中信息技术选修：441 选择排序算法课件

VB程序设计

——冒泡排序与选择排序VB程序设计

——冒泡排序与选择排序1.数组的概念：数组并不是一种数据类型，而是一组有序且具有相同数据类型的数据的集合。分为静态(定长)数组和动态(可变长)数组。2.静态数组的定义方法：

Dim数组名(下标1to下标n)[As类型]Dim数组名(元素个数)[As类型]（下标从0开始）3.数组的赋值与输入、输出方法：通过循环给数组元素赋值、输入、输出。如：Fori=1To10 '输入A数组的每个元素值A(i)=inputbox(“请输入第”&i&“个元素”)Nexti认识一维数组：认识一维数组：一、冒泡排序（升序）

冒泡排序的基本原理是对存放原始数据的数组，按同一方向进行多次扫描，每次扫描称为一趟。当发现相邻两个数据的次序与排序要求的大小次序不符合时，即将这两个数据互换次序。这样，较小的数据就会逐个向前移动，较大的数据向后移动，好像气泡向上浮起一样。

如这样一组数据：“25 36 30 21 7”

要求按照由小到大排列起来。一、冒泡排序（升序）

冒泡排序的基本原理是对存放25253630217253021736原数据第一趟排序结果3630213636736第一趟在相邻两数中比较大小，若为逆序则交换位置，最大数36放置第五位25253630217253021736原数据第一趟排序结果25253630217253021736252173036原数据第二趟排序结果第一趟排序结果30217363030第二趟用相同方法在四个数中两两交换位置，次大数30放置第四位25253630217253021736252173036原25253630217253021736252173036原数据217253036第三趟排序结果第二趟排序结果第一趟排序结果21730362525第三趟在三个数中两两交换位置，25放置倒数第三位25253630217253021736252173036原21253630217253021736252173036原数据217253036721253036第四趟排序结果第三趟排序结果第二趟排序结果第一趟排序结果7253036217第四趟在两个数中比较，21放置第四位21253630217253021736252173036原若对8个数据用冒泡排序排列，流程图如图所示：DimR(1to8)asintegerDimiasinteger,jasintegerFori=

to8‘输入无序数组R(i)=inputbox(“输入第”&i&“个元素”)nextiFori=8to2step

’第几趟排序

Forj=1to-1‘第几次比较ifR(j)

R(j+1)thent=R(j):Rj)=R(j+1):R(j+1)=t‘数据交换endif

NextjNextiFori=1to8step1‘输出有序的数组text1.text=text1.text&““&R(i)nexti开始输入无序数组i=8i>=2j=1j<=i-1R(j)>R(j+1)交换R(j)和R(j+1)TTj=j+1Fi=i-1输出有序数组结束TFF1-1step>若对8个数据用冒泡排序排列，流程图如图所示：DimR(1二、选择排序法（升序）从第1个元素开始在n个数中找出最小数与第1个元素交换位置从第2个元素开始在n-1个数中找出最小数与第2个元素交换位置……在剩下的2个数据中选择最小数与第n-1个元素交换位置例如：数组元素“253630217”

按照升序排列二、选择排序法（升序）从第1个元素开始在n个数中找出最小数与25253630217736302125原数据第一趟排序结果3630217第一趟在5个数中找出最小值7放在第一个位置Min=25Min<36Min<30Min=21Min=7725253630217736302125原数据第一趟排序结果253630217736302125原数据第一趟排序结果36302125第二趟在4个数中找出最小值21放在第二个位置Min=36Min=30Min=21Min<25721721303625第二趟排序结果253630217736302125原数据第一趟排序结果36253630217736302125原数据第一趟排序结果303625第三趟在3个数中找出最小值25放在第三个位置Min=30Min<36Min=25721721303625第二趟排序结果721253630第三趟排序结果25253630217736302125原数据第一趟排序结果30253630217736302125原数据第一趟排序结果3630第四趟在2个数中找出最小值放30在第四个位置，最大数36自动归位Min=36Min=30721721303625第二趟排序结果721253630第三趟排序结果25721253036第四趟排序结果3036253630217736302125原数据第一趟排序结果36DimR(1to8)asintegerDimiasinteger,jasintegerDimnasinteger,minasinteger,masintegerFori=1to8‘输入无序数组R(i)=inputbox(“输入第”&i&“个元素”)nextiFori=1to

’第几趟排序min=

:m=iForj=i+1to

‘第几次比较if

thenmin=

:m=

‘找最小值Nextj

k=

:R(i)=min:R(m)=k’数据交换NextiFori=1to8step1‘输出有序的数组text1.text=text1.text&““&R(i)nexti8R(i)7R(j)<minR(j)jR(i)开始输入无序数组i=1i<=7j=i+1j<=8R(j)<minR(j)=min并记住下标TTj=j+1Fi=i+1输出有序数组结束TFF交换数据记住当前元素下标，给min赋初值若对8个数据用选择排序排列，如图所示：DimR(1to8)asinteger8R(i)7谢谢观赏！谢谢观赏！VB程序设计

——冒泡排序与选择排序VB程序设计

——冒泡排序与选择排序1.数组的概念：数组并不是一种数据类型，而是一组有序且具有相同数据类型的数据的集合。分为静态(定长)数组和动态(可变长)数组。2.静态数组的定义方法：

Dim数组名(下标1to下标n)[As类型]Dim数组名(元素个数)[As类型]（下标从0开始）3.数组的赋值与输入、输出方法：通过循环给数组元素赋值、输入、输出。如：Fori=1To10 '输入A数组的每个元素值A(i)=inputbox(“请输入第”&i&“个元素”)Nexti认识一维数组：认识一维数组：一、冒泡排序（升序）

冒泡排序的基本原理是对存放原始数据的数组，按同一方向进行多次扫描，每次扫描称为一趟。当发现相邻两个数据的次序与排序要求的大小次序不符合时，即将这两个数据互换次序。这样，较小的数据就会逐个向前移动，较大的数据向后移动，好像气泡向上浮起一样。

如这样一组数据：“25 36 30 21 7”

要求按照由小到大排列起来。一、冒泡排序（升序）

冒泡排序的基本原理是对存放25253630217253021736原数据第一趟排序结果3630213636736第一趟在相邻两数中比较大小，若为逆序则交换位置，最大数36放置第五位25253630217253021736原数据第一趟排序结果25253630217253021736252173036原数据第二趟排序结果第一趟排序结果30217363030第二趟用相同方法在四个数中两两交换位置，次大数30放置第四位25253630217253021736252173036原25253630217253021736252173036原数据217253036第三趟排序结果第二趟排序结果第一趟排序结果21730362525第三趟在三个数中两两交换位置，25放置倒数第三位25253630217253021736252173036原21253630217253021736252173036原数据217253036721253036第四趟排序结果第三趟排序结果第二趟排序结果第一趟排序结果7253036217第四趟在两个数中比较，21放置第四位21253630217253021736252173036原若对8个数据用冒泡排序排列，流程图如图所示：DimR(1to8)asintegerDimiasinteger,jasintegerFori=

to8‘输入无序数组R(i)=inputbox(“输入第”&i&“个元素”)nextiFori=8to2step

’第几趟排序

Forj=1to-1‘第几次比较ifR(j)

R(j+1)thent=R(j):Rj)=R(j+1):R(j+1)=t‘数据交换endif

NextjNextiFori=1to8step1‘输出有序的数组text1.text=text1.text&““&R(i)nexti开始输入无序数组i=8i>=2j=1j<=i-1R(j)>R(j+1)交换R(j)和R(j+1)TTj=j+1Fi=i-1输出有序数组结束TFF1-1step>若对8个数据用冒泡排序排列，流程图如图所示：DimR(1二、选择排序法（升序）从第1个元素开始在n个数中找出最小数与第1个元素交换位置从第2个元素开始在n-1个数中找出最小数与第2个元素交换位置……在剩下的2个数据中选择最小数与第n-1个元素交换位置例如：数组元素“253630217”

按照升序排列二、选择排序法（升序）从第1个元素开始在n个数中找出最小数与25253630217736302125原数据第一趟排序结果3630217第一趟在5个数中找出最小值7放在第一个位置Min=25Min<36Min<30Min=21Min=7725253630217736302125原数据第一趟排序结果253630217736302125原数据第一趟排序结果36302125第二趟在4个数中找出最小值21放在第二个位置Min=36Min=30Min=21Min<25721721303625第二趟排序结果253630217736302125原数据第一趟排序结果36253630217736302125原数据第一趟排序结果303625第三趟在3个数中找出最小值25放在第三个位置Min=30Min<36Min=25721721303625第二趟排序结果721253630第三趟排序结果25253630217736302125原数据第一趟排序结果30253630217736302125原数据第一趟排序结果3630第四趟在2个数中找出最小值放30在第四个位置，最大数36自动归位Min=36Min=30721721303625第二趟排序结果721253630第三趟排序结果25721253036第四趟排序结果3036253630217736302125原数据第一趟排序结果36DimR(1to8)asintegerDi