1樓：zcy逗你玩
原因有二，一是你沒把變數賦值（因此輸出全是0），二是你的程式有些錯誤，應該是a(i)而不是a(1)。
下面為修改後的程式。
private sub command1_click()dim a(30) as integer
dim i, j, tem as integerconst n = 30
'給a(i)賦值
for i = 1 to n
a(i) = i
next
'進行計算
for i = 1 to n
for j = i + 1 to n
if a(i) < a(j) then
tem = a(i) '是a(i)而不是a(1)。
a(i) = a(j)
a(j) = tem
end if
next j
next i
for i = 1 to n
print a(i)
next i
end sub
祝你好運。zcy
2樓：匿名使用者
因為你的陣列沒有資料，就是0
另外，因為你的問題懸賞分也是0
3樓：俄聯邦
陣列沒有定義，整型的變數預設都是0
一樓回答得很精闢，支援~~~
Delphi簡單的排序，delphi氣泡排序（由大到小）
function desccomtext list tstringlist index1,index2 integer integer begin result ansicomparetext list index1 list index2 end procedure tform1.button1c...
vb中輸入數字，並按照有大到小排序氣泡排序
看上面那一大段，我暈了 b 下面的是從小到大排序的，從大到小隻需改一個 號，看下面的註釋，整個過程不變的。private sub mand1 click dimx 1 to5 asdouble,i j tx 1 val text1 x 2 val text2 x 3 val text3 x 4 va...
什麼叫氣泡排序，什麼是氣泡排序法？能說具體點嗎？
氣泡排序 include definen5 void main 迴圈結束 for i 0 i 開始外層for迴圈，從i 0,每次加1，直到i 4 從此便完成大小變數的交換，使得大值往前放 結束內層迴圈 結外內層迴圈，完成排序 printf 最後排序為 n 在螢幕顯式 最後排序為 並換行 for i ...