VB語言中如何實現(xiàn)冒泡排序法

小編給大家分享一下VB語言中如何實現(xiàn)冒泡排序法，相信大部分人都還不怎么了解，因此分享這篇文章給大家參考一下，希望大家閱讀完這篇文章后大有收獲，下面讓我們一起去了解一下吧！

創(chuàng)新互聯(lián)專注于寧洱網(wǎng)站建設服務及定制，我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗。 熱誠為您提供寧洱營銷型網(wǎng)站建設，寧洱網(wǎng)站制作、寧洱網(wǎng)頁設計、寧洱網(wǎng)站官網(wǎng)定制、微信平臺小程序開發(fā)服務，打造寧洱網(wǎng)絡公司原創(chuàng)品牌,更為您提供寧洱網(wǎng)站排名全網(wǎng)營銷落地服務。

本期案例：

我們的原始數(shù)是一個數(shù)組a

這個a數(shù)組的數(shù)據(jù)依次是：5   2   8   6

現(xiàn)要將a中的數(shù)據(jù)進行排序：從小到大

達成目標：2   5   6   8

設計界面

點擊按鈕后的效果

兩個數(shù)據(jù)的比較思想是怎樣的？

將思想轉換為代碼。

比較的時候，其實就是使用if語句的時候。

text1中的文本是5

text2中的文本是2

如何比較，取出小的那個值？

if val(text1.text)>val(text2.text) then

    print text2.text  ’這里是小的值

else

    print text1.text  '這里是大的值

end if

本例冒泡排序的思想講解：

冒泡排序，我們這里的排序是按照從小到大排序。

原始 5   2   8   6   在a這個數(shù)組中的。

實際就是：

a(0)=5

a(1)=2

a(2)=8

a(3)=6

小思想：先要找到最小的數(shù)字，然后，找到第二小，逐漸一個個找出來。

比較過程如下：

第一趟：找到最小的數(shù)字

 基準：以第一個數(shù)字作為基準。假設第一個數(shù)字是最小值，去跟后面所有的數(shù)進行比較。

 第一輪：2  5  8   6

 第二輪：2  5  8   6

 第三輪：2  5  8   6

第一趟的結果：2  5  8   6

第二趟：找出第二小的數(shù)字

 基準：以第二個數(shù)字作為基礎。

 第一輪：2  5  8   6

 第二輪：2  5  8   6

第二趟結果：2  5  8   6

第三趟：找出第三小的數(shù)字

 基準：以第三個數(shù)字作為基準。

 第一輪：2  5  6  8

下面將思想轉為代碼：

  '開始趟數(shù)

  for i=0 to 2 step 1 

    ’開始輪數(shù)

    for j=1 to 3-i  step 1

       if a(i)>a(j+i) then '實現(xiàn)交互

          t=a(i)

          a(i)=a(j+i)

          a(j+i)=t

       end if

    next j

  next i

源代碼如下：

Option ExplicitDim a(3) As IntegerPrivate Sub Command1_Click()a(0) = 5a(1) = 2a(2) = 8a(3) = 6Dim i%, j%, t%'開始趟數(shù)  For i = 0 To 2 Step 1    '開始輪數(shù)    For j = 1 To 3 - i Step 1       If a(i) > a(j + i) Then '實現(xiàn)交互          t = a(i)          a(i) = a(j + i)          a(j + i) = t       End If    Next j      Next i    For i = 0 To 3 Step 1    Print a(i)  Next iEnd Sub

以上是“VB語言中如何實現(xiàn)冒泡排序法”這篇文章的所有內容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內容對大家有所幫助，如果還想學習更多知識，歡迎關注創(chuàng)新互聯(lián)行業(yè)資訊頻道！

分享名稱：VB語言中如何實現(xiàn)冒泡排序法
本文地址：http://bm7419.com/article16/ijhhdg.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供、網(wǎng)站維護、網(wǎng)站策劃、動態(tài)網(wǎng)站、標簽優(yōu)化、響應式網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經(jīng)允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯(lián)