用冒泡法對隨機產生的不同的2位正整數排序,並將隨機整數由從小到大的排序結果顯示在窗體。用通用過程

時間 2022-09-15 08:25:53

1樓:匿名使用者

假設20個資料在excel工作表的a列,在a1:a20。

下面vba**就可以實現

sub px()

for i = 1 to 20

for j = i to 20

if cells(i, 1) < cells(j, 1) thens = cells(i, 1): cells(i, 1) = cells(j, 1): cells(j, 1) = s

end if

next

next

end sub

2樓:匿名使用者

vb程式**

dim a(20) as integer

dim i as integer, j as integer, k as integer

for i = 1 to 20

a(i) = int(rnd * 90) + 10next i

for i = 1 to 19

for j = 1 to 20 - i

if a(j) > a(j + 1) thenk = a(j)

a(j) = a(j + 1)

a(j + 1) = k

end if

next j

next i

for i = 1 to 20pri

用氣泡排序法對陣列排序,用氣泡排序法對乙個陣列排序

include define n 15 int main i,j,t 陣列已有n個資料for i 0 ia j 1 若相信的元素大小順序不對,就交換 for i 0 i printf n return 0 main printf the sorted numbers n for i 0 i 10 i...

隨機數表法怎麼用

1 統一編號。即將總體中的所有研究物件進行統一編號,做成籤。如果研究物件是10以內的,只取1位數,則編號是 1 9 如果研究物件在 1 99 之間的,取 2 位數,則編號是 01 99。如果研究物件在 1 999 之間的,取 3 位數,則編號是 001 999 其他依次類推。然後充分混合,目的是使各...

色譜乙腈對人體有哪些危害,反相色譜法用的乙腈與甲醇的區別

無論是色譜級的乙腈還是化學純的乙腈,對人體都是有危害的啊,一般色譜級的是用來做流動相的啊,容易揮發,然後就會吸進去啊,用的時候做好防護措施就好了,注意室內通風什麼的,我用了兩年多,暫時沒發現什麼後遺症 我是化學的,主要是眼睛和呼吸道 各位,虛心求教色譜乙腈和色譜純甲醇對未婚男性有什麼危害?急!具體點...

用數學歸納法證明 對任意的正整數n,有 3n 1 7 n能被9整除

從第二步開始 設n k時,3k 1 7 k 1能被9整除,則當n k 1時,3 k 1 1 7 k 1 1 3k 4 7 k 1 1 3k 1 7 k 1 3 7 k 1 1 7 3k 1 7 k 21 7 k 1 3k 1 7 k 1 6 3k 1 7 k 21 7 k 3k 1 7 k 1 18...