




版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡介
1、VB常考算法(八)排序:1、算法1)選擇法排序算法說明:根據(jù)上例中求最小值的思路,我們可以使用如下方法進(jìn)行從小到大排序:第一輪,以第一個(gè)元素逐個(gè)跟后面的所有元素比較,如果比后面的元素大就進(jìn)行交換,經(jīng)過一輪比較,第一個(gè)元素被確定為最??;同樣的方法,下一輪以第二個(gè)元素跟剩下的所有元素進(jìn)行比較確定下次小的元素;以此類推下面我們以圖形的形式體現(xiàn)對5個(gè)數(shù)進(jìn)行選擇排序的過程:16425最小值62415264152641516425第一輪:第二輪:16425146251264512645次小值1246512456126451246512465第三輪:第四輪:從上圖可以發(fā)現(xiàn)對5個(gè)元素進(jìn)行排序,總共經(jīng)過了5-1
2、=4輪,而每一輪中比較的次數(shù)也不相同,第一輪2、3、4、5號元素參與跟1號元素的比較,共4次,第二輪3、4、5號元素參與跟2號元素的比較,共3次,以次類推,比較次數(shù)逐步減少。經(jīng)過四輪的比較,利用逐步求最小值的方法將5個(gè)數(shù)從小到大排好序。對于這樣一個(gè)排序的過程,我們可以使用兩個(gè)循環(huán)分別控制比較的輪數(shù)和每一輪的次數(shù)。程序代碼:Private Sub Command1_Click() Dim n As Integer n = InputBox(請輸入數(shù)組元素的個(gè)數(shù):) Dim a() As Integer, i As Integer, j As Integer Print 排序前: ReDim a(
3、n) For i = 1 To n a(i) = Int(Rnd * (99 - 10 + 1) + 10) Print a(i); Next i For i = 1 To n - 1 For j = i To n If a(i) a(j) Then temp = a(i) 交換元素 a(i) = a(j) a(j) = temp End If Next j Next i Print Print 排序后: For i = 1 To n Print a(i); Next iEnd Sub2)冒泡法排序算法說明:相鄰的元素進(jìn)行比較,如果前面的元素比后面的元素大,則將它們進(jìn)行交換,具體思路:設(shè)在數(shù)組
4、a中存放n個(gè)元素,第一輪,將a(1)和a(2)進(jìn)行比較,若a(1)a(2),則交換這兩個(gè)元素的值,然后繼續(xù)用a(2)和a(3)比較,若a(1)a(2),則交換這兩個(gè)元素的值,以此類推,直到a(n-1)和a(n)進(jìn)行比較處理后,a(n)中就存放了n個(gè)數(shù)中最大的值;第二輪,用a(1)與a(2),a(2)與a(3),a(n-2)與a(n-1)進(jìn)行比較,處理方法相同,這一輪下來,a(n-1)中存放n個(gè)數(shù)中第二大的值;第n-1輪,a(1)與a(2)進(jìn)行比較處理,確保最小值在a(1)中。經(jīng)過n-1輪比較處理,n個(gè)數(shù)已經(jīng)按從小到大的順序排列好。下面我們以圖形的形式體現(xiàn)對5個(gè)數(shù)進(jìn)行冒泡排序的過程:第一輪:62
5、415264152461524165最大值24156第二輪:24156241562145621456第三輪:第四輪:1245612456214561245612456程序代碼:Private Sub Command1_Click() Dim n As Integer n = InputBox(請輸入數(shù)組元素的個(gè)數(shù):) Dim a() As Integer, i As Integer, j As Integer Print 排序前: ReDim a(n) For i = 1 To n a(i) = Int(Rnd * (99 - 10 + 1) + 10) Print a(i); Next i
6、For i = 1 To n - 1 For j = 1 To n - i If a(j) a(j + 1) Then 相鄰元素比較 temp = a(j) a(j) = a(j + 1) a(j + 1) = temp End If Next j Next i Print Print 排序后: For i = 1 To n Print a(i); Next iEnd Sub2、實(shí)戰(zhàn)練習(xí)1)填程序一算法說明:C盤根目錄下的數(shù)據(jù)文件data.txt中有兩組數(shù)據(jù),第一組數(shù)據(jù)未排序,并以-1表示該組數(shù)據(jù)結(jié)束;第二組數(shù)據(jù)按從小到大順序排列。下面程序的功能是,單擊“讀入數(shù)據(jù)”按鈕,將文件中的兩組數(shù)據(jù),分
7、別讀入到A、B數(shù)組中,單擊“插入排序”按鈕,則把A數(shù)組的元素按其大小依次插入到B數(shù)組的適當(dāng)位置,使得B數(shù)組中元素仍為從小到大排列。完善程序,實(shí)現(xiàn)以上功能。Dim a() As Integer, b() As IntegerPrivate Sub command1_click() Dim I As Integer, j As Integer, n As Integer, s As String (1) 參考答案:Open c:data.txt For Input As #11 Do Input #11, n If n = -1 Then Exit Do I = I + 1 ReDim Prese
8、rve a(I) a(I) = n s = s & Str(a(I) Loop Text1 = s s = (2) 參考答案:Do While Not EOF(1) j = j + 1 ReDim Preserve b(j) Input #11, b(j) s = s & Str(b(j) Loop Text2 = s Close 11End SubPrivate Sub command2_click() Dim I As Integer, j As Integer, s As String For I = 1 To UBound(a) If a(I) b(UBound(b) Then (3)
9、 參考答案:ReDim Preserve b(UBound(b) + 1) b(UBound(b) = a(I) Else For j = 2 To bound(b) If (a(I) b(j - 1) And a(I) = b(j) Then Call change(a(I), j) Next j End If Next I For I = 1 To UBound(b) s = s & Str(b(I) Next I Text3 = sEnd SubPrivate Sub change(n As Integer, k As Integer) Dim I As Integer ReDim Pr
10、eserve b(UBound(b) + 1) For I = UBound(b) To k + 1 Step -1 (4) 參考答案:b(I) = b(I - 1) Next I (5) 參考答案:b(k) = nEnd Sub2)填程序二Option Base 1Dim n%, tag_in%Dim stud(1 To 10) As StudTypeType StudType Num As String * 6 學(xué)號 Name As String * 8 姓名 Average As Single 平均分End TypePrivate Sub Command1_Click() If n stud(
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 新鄉(xiāng)醫(yī)學(xué)院《傳感器實(shí)驗(yàn)》2023-2024學(xué)年第二學(xué)期期末試卷
- 2025至2031年中國空調(diào)通風(fēng)道行業(yè)投資前景及策略咨詢研究報(bào)告
- 興安職業(yè)技術(shù)學(xué)院《數(shù)字合成》2023-2024學(xué)年第二學(xué)期期末試卷
- 2024屆山東省臨沂蘭陵縣聯(lián)考中考數(shù)學(xué)模擬試題含解析
- 甘肅省定西市渭源縣重點(diǎn)中學(xué)2024年中考數(shù)學(xué)押題試卷含解析
- 廣東普寧市下架山中學(xué)2023-2024學(xué)年初中數(shù)學(xué)畢業(yè)考試模擬沖刺卷含解析
- 2024-2025新進(jìn)廠員工安全培訓(xùn)考試試題(達(dá)標(biāo)題)
- 2024-2025新進(jìn)廠員工安全培訓(xùn)考試試題附完整答案(網(wǎng)校專用)
- 2025年員工安全培訓(xùn)考試試題預(yù)熱題
- 2025年班組安全培訓(xùn)考試試題答案必考
- 北師版九年級數(shù)學(xué)上冊-第1章-特殊平行四邊形中的旋轉(zhuǎn)、最值、動(dòng)點(diǎn)問題-專題訓(xùn)練-(含答案)
- 2023山東能源集團(tuán)建工集團(tuán)有限公司機(jī)關(guān)部分崗位公開招聘8人筆試參考題庫附帶答案詳解
- (四調(diào))武漢市2025屆高中畢業(yè)生四月調(diào)研考試 英語試卷(含答案)
- 保險(xiǎn)市場調(diào)查與分析實(shí)訓(xùn)三任務(wù)一2.3.1任務(wù)一運(yùn)用Excel整理市場調(diào)查問卷數(shù)據(jù)
- zxv10iptv v3.05.01多媒體解決方案系統(tǒng)描述
- DB13 5325-2021 生活垃圾焚燒大氣污染控制標(biāo)準(zhǔn)
- 土木工程施工課程設(shè)計(jì)完整版
- 流動(dòng)資金自動(dòng)測算表(內(nèi)自帶計(jì)算公式)
- 教案 - 種子生活力測定
- 詩歌鑒賞——如何讀懂詩歌ppt課件
- 蓄水池施工專項(xiàng)方案
評論
0/150
提交評論