1樓：匿名使用者
dim a(10) as integer
dim y as integer
dim num as integer
y = 10
for i = 1 to 10
a(i) = y - i
next i ' 給陣列賦值
for i = 10 to 1 step -1for x = 1 to (i - 1)
if a(x) > a(x + 1) thennum = a(x + 1)
a(x + 1) = a(x)
a(x) = num
end if
next x
next i ' 排序
for i = 1 to 10
print a(i)
next i '顯示
2樓：匿名使用者
sub az()
dim x(1 to 10) as longfor i = 10 to 1 step -1x(i) = i
next i
for i = 1 to 10
for o = i + 1 to 10
if x(i) > x(o) then
t = x(i)
x(i) = x(o)
x(o) = t
end if
next o
next i
for i = 1 to 10
debug.print x(i)
next i
end sub
同學啊,認真學習不好麼?程式設計的基礎啊。排序有很多方法，這是其中之一。
3樓：匿名使用者
為什麼在c++/c裡要求vb？也罷給你了。
dim a(10) as integer, i as integer, j as integer, k as integer
『此處為陣列賦值
』氣泡排序演算法
for i = 0 to 8 step 1k = 9
for j = i + 1 to 9 step 1if a(k) < a(k - 1) thentemp = a(k)
a(k) = a(k - 1)
a(k - 1) = temp
k = k - 1
end if
next j
next i
for i = 0 to 9 step 1picture1.print tab(3 * i + 1); a(i);
next i
4樓：匿名使用者
用erase 函式試試，
erase函式的作用是：重新初始化大小固定的陣列的元素，以及釋放動態陣列的儲存空間。
希望有幫助
歷史的必然性和歷史不容假設有矛盾嗎
歷史本來就有必然性，比如有生就有死，有興就有衰，這是必然的，根本無法打破，而歷史不容假設也在這個範圍之內，並沒有超出這個範圍 如果歷史不容假設，那麼研究歷史還有什麼意義 首先我們要認識歷史研究的目的 史者何？記述人類社會賡續活動之體相，校其總成績，求得其因果關係，以為現代一般人活動之資鑑者也。也就是...
假設有一個池塘，裡面有無窮多的水。
1 裝滿六升的水壺，倒到五升的水壺中，這樣六升的水壺中還剩一升水，倒光五升的水壺中的水，把六升的水壺中的一升水倒到五升的水壺中 2 再次裝滿六升的水壺，倒到五升的水壺中，這樣六升的水壺中還剩兩升水，倒光五升的水壺中的水，再把六升的水壺中的兩升水倒到五升的水壺中，這樣五升的水壺中就有了兩升水 3 再次...
假設有一層有語音點，110配線架的設計有錯嗎
1 有錯。100對110配線架可以端接100個語音點，而不是24個。資料點可以端接24個。2 如版果你指的權是資料點，那麼200對的110配線架確實可以端接48個資料點，一個4對模組剛好可以端接一個資料點。3 如果你指的確實是語音點，那麼48個語音點用一個50對的110配線架就能滿足要求，還可以節省...