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