首先設計窗體，如圖所示： 設計好窗體寫**，首先要定義變數
dim i as integer
dim j as integer
dim a(10) as integer '定義變數
dim max as integer '定義最大的數
private sub command1_click()
text1.text = "" '每一次結束都清除原先的記錄，顯示新的資料
text2.text = ""
for i = 1 to 10 '利用乙個for迴圈，隨機顯示10個數
k = int(rnd * 100 + 1) '隨機數是1到100之間的
for j = 1 to i - 1 '判斷是否有重複的數
y = 0
if k = a(j) then
y = 1
exit for
end if
next j
if y = 0 then
a(i) = k
text1 = text1 & str(a(i)) '使10個數顯示在text中
else
i = i - 1
end if
next i
max = a1 '先假設a1是最大的數，學會假設 由聰到明
for i = 2 to 10
if a(i) > max then '用這個數和後面每乙個數做比較，如果後面有值比max大則調換
max = a(i)
end if
next i
text2.text = max '在text2裡顯示最大數
end sub
三個數比較大小，最大的顯示在螢幕上
三個數比較大小，最大的顯示在螢幕上 不足 不能顯示兩位數以上的數字，以後有空有待改進 還蠻簡潔的嘛 data segment x db 4 y db 7 z db 9 max db string db the max of three is data ends stack segment db 20...
（演算法）從10000個數中找出最大的10個
從10000個整數中找出最大的10個，最好的演算法是什麼？演算法一 氣泡排序法 千里之行，始於足下。我們先不說最好，甚至不說好。我們只問，如何 從10000個整數中找出最大的10個 我最先想到的是用氣泡排序的辦法 我們從頭到尾走10趟，自然會把最大的10個數找到。方法簡單，就不再這裡寫 了。這個演算...
談從10億個數中找出前10萬個最大的
10億個浮點數大概佔據3g左右的空間，因此全部一次性讀入記憶體目前在個人pc上是不太現實的。本次討論不考慮記憶體等等，只考慮演算法。如果一次性比較排序，然後輸出前面最大的10w個，那麼眾所周知，演算法的時間複雜度不下於o n lgn 此處的n為數的個數 10億 如果用堆排序，由於堆排序像合併排序而不...