




版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡介
1、VB??妓惴ǎò耍┡判颍?、算法1)選擇法排序算法說明:根據(jù)上例中求最小值的思路,我們可以使用如下方法進(jìn)行從小到大排序:第一輪,以第一個元素逐個跟后面的所有元素比較,如果比后面的元素大就進(jìn)行交換,經(jīng)過一輪比較,第一個元素被確定為最??;同樣的方法,下一輪以第二個元素跟剩下的所有元素進(jìn)行比較確定下次小的元素;以此類推下面我們以圖形的形式體現(xiàn)對5個數(shù)進(jìn)行選擇排序的過程:16425最小值62415264152641516425第一輪:第二輪:16425146251264512645次小值1246512456126451246512465第三輪:第四輪:從上圖可以發(fā)現(xiàn)對5個元素進(jìn)行排序,總共經(jīng)過了5-1
2、=4輪,而每一輪中比較的次數(shù)也不相同,第一輪2、3、4、5號元素參與跟1號元素的比較,共4次,第二輪3、4、5號元素參與跟2號元素的比較,共3次,以次類推,比較次數(shù)逐步減少。經(jīng)過四輪的比較,利用逐步求最小值的方法將5個數(shù)從小到大排好序。對于這樣一個排序的過程,我們可以使用兩個循環(huán)分別控制比較的輪數(shù)和每一輪的次數(shù)。程序代碼:Private Sub Command1_Click() Dim n As Integer n = InputBox(請輸入數(shù)組元素的個數(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個元素,第一輪,將a(1)和a(2)進(jìn)行比較,若a(1)a(2),則交換這兩個元素的值,然后繼續(xù)用a(2)和a(3)比較,若a(1)a(2),則交換這兩個元素的值,以此類推,直到a(n-1)和a(n)進(jìn)行比較處理后,a(n)中就存放了n個數(shù)中最大的值;第二輪,用a(1)與a(2),a(2)與a(3),a(n-2)與a(n-1)進(jìn)行比較,處理方法相同,這一輪下來,a(n-1)中存放n個數(shù)中第二大的值;第n-1輪,a(1)與a(2)進(jìn)行比較處理,確保最小值在a(1)中。經(jīng)過n-1輪比較處理,n個數(shù)已經(jīng)按從小到大的順序排列好。下面我們以圖形的形式體現(xiàn)對5個數(shù)進(jìn)行冒泡排序的過程:第一輪:62
5、415264152461524165最大值24156第二輪:24156241562145621456第三輪:第四輪:1245612456214561245612456程序代碼:Private Sub Command1_Click() Dim n As Integer n = InputBox(請輸入數(shù)組元素的個數(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)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 買床購銷合同協(xié)議書
- 行政管理領(lǐng)域中典型問題分析試題及答案
- 2025版高考?xì)v史新探究大一輪復(fù)習(xí)第十六單元1第46講中國古代歷史上的改革模擬訓(xùn)練含2025屆新題含解析岳麓版
- 二年級數(shù)學(xué)上冊空間與圖形例題精講新人教版
- 新課改瘦專用2025版高考生物一輪復(fù)習(xí)第一單元第一講組成細(xì)胞的元素及化合物講義含解析
- 2024年高中物理第一章電磁感應(yīng)微專題培優(yōu)三電磁感應(yīng)中的動力學(xué)和能量問題講義含解析粵教版選修3-2
- 社會工作者-社會工作實(shí)務(wù)(初級)真題庫-2
- JAVA編程規(guī)范與實(shí)踐2025年計(jì)算機(jī)二級考試試題及答案
- 高效創(chuàng)建精美圖像Photoshop試題及答案
- 軟件測試與持續(xù)集成的最佳實(shí)踐及試題及答案
- 2025年六一兒童節(jié)校長致辭:每個孩子都是一朵會發(fā)光的花
- 公司應(yīng)急演練方案
- 2025保密法宣傳專題培訓(xùn)課件
- 班組安全教育試題及答案
- 虎符銅砭刮痧課件
- 《醫(yī)療機(jī)構(gòu)工作人員廉潔從業(yè)九項(xiàng)準(zhǔn)則》解讀
- 水產(chǎn)養(yǎng)殖網(wǎng)箱租賃與飼料供應(yīng)合作協(xié)議
- 2025年全國保密教育線上培訓(xùn)考試試題庫含答案(新)附答案詳解
- 《神經(jīng)網(wǎng)絡(luò)模型》課件
- 四川省成都外國語2025年高三聯(lián)考數(shù)學(xué)試題科試題含解析
- (四調(diào))武漢市2025屆高中畢業(yè)生四月調(diào)研考試 英語試卷(含答案)
評論
0/150
提交評論