急VB輸出排序

時間 2022-08-19 03:10:06

1樓:匿名使用者

程式中用的是"選擇排序法".其演算法是:每次從待排序的記錄中選出關鍵字最小(也可以是最大,本程式中就從大到小排序)的記錄,順序放在已有序的記錄序列的最後(或最前)面,直到全部數列有序。

n個數排序,用選擇排序法,要比較n-1次(for i = 1 to n - 1),每次找到未排序中最大的數.k象一頂帽子,比較前,它"戴"在未排序部分的第一位,然後,誰大它就"戴"在誰的頭上(if cj(j) > cj(k) then k = j語句即是此意);找到最大後,進行位置交換(max1 = cj(k) cj(k) = cj(i) cj(i) = max1).

第一次比較後,序列變成

10 8 6 2 4

第二次,從 8 6 2 4中再找出最大(for j = i to n).由於8是本次最大,所以不必交換.第三次也不交換.

第四次排序後,序列變成

10 8 6 4 2

排序完成.

2樓:

外層迴圈第一遍找出最大的數,把它交換到第乙個位置(第乙個最大當然不用換),第二遍在除了第乙個數的這些書中,找出最大的數放到第二個位置上,以此類推。。

vb呼叫 排序 分類 輸出資料,vb呼叫 排序 分類 輸出txt文件資料

private sub command1 click dim arr 1 to 29 as integer,ss 1 to 3 as string dim i as integer randomize for i 1 to 29 arr i int rnd 30 1 next for i 1 to ...

快速排序vb解法,快速排序 vb 要每一步的講解

請參照快速排序演算法 dim arr 5 as integer private sub quicksort byref arrvalue as integer,byval intlx as integer,byval intrx as integer arrvalue 是待排的陣列,intlx,in...

VB橫排輸出數字

dim i as integer i 1 do while i 5500 print i i i 1 loop 這樣就可以 至於複製不太可能 因為窗體上的文字都是畫上去的 你要能複製 你不如將內容 放入text文字框中 列印到窗體上 無法複製 dim i as integer i 1 do whil...