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...