1樓：聽不清啊
private sub command1_click()list2.clear
for i = 0 to 29
x = list1.list(i)
if x mod 4 = 0 and x mod 100 > 0 or x mod 400 = 0 then list2.additem x
next i
end sub
private sub command2_click()dim a(30) as integer
n = list2.listcount
for i = 0 to n - 1
a(i) = list2.list(i)
next i
for i = 0 to n - 2
for j = 0 to n - 2 - iif a(j) > a(j + 1) thent = a(j): a(j) = a(j + 1): a(j + 1) = t
end if
next j
list2.additem a(i)
next i
list2.clear
for i = 0 to n - 1
list2.additem a(i)
next i
end sub
private sub form_load()list1.clear
randomize
for i = 1 to 30
a = int(2901 * rnd) + 100list1.additem a
next i
end sub
2樓：匿名使用者
private sub command1_click() '篩選
dim i as integer, n as integer
for i = 0 to list1.listcount - 1
n = val(list1.list(i))
if (n mod 4 = 0 and n mod 100 <> 0) or n mod 400 = 0 then
list2.additem n
end if
next
end sub
private sub command2_click() '排序
dim i as integer, j as integer
dim tmp as integer
for i = 0 to list2.listcount - 2
for j = i to list2.listcount - 1
if val(list2.list(i)) > val(list2.list(j)) then
tmp = list2.list(j)
list2.list(j) = list2.list(i)
list2.list(i) = tmp
end if
next
next
end sub
private sub form_load()
dim i as integer
randomize
for i = 1 to 30
list1.additem int(rnd * 2900) + 100
next
end sub
3樓：匿名使用者
用於windows應用程式開發的basic除visual basic，經常應用的還有兩種程式設計應用軟體工具：ca-realizer和gfa-basic。
c 中生成隨機數時的種子問題，關於C 的隨機數的種子的設定問題
先糾正一下錯誤，是srand unsigned int time 0 srand的形參是unsigned int型別的 這句話只要寫一次，一般情況下只能寫一次 隨機數是隨機的數,但計算機不可能產生隨機數,計算機根據你的輸入,再跟一個演算法就產生一個特定的序列.只要你給計算機一個相同的數,計算機返回的...
c 產生隨機數的程式，C 產生隨機數的程式
要看r的 了吧。如果r的 是某個和時間有關的數 就可以解釋了 後三句就是 讓某個在65536和0之間的數除以65536獲得0和1之間的隨機數 r 2053.0 r 13849.0 這是兩個有個是素數吧 應該是的 2053就是 質因數分解13849 11 1259 那麼這兩個素數的公倍數大於65535...
matlab產生隨機數問題，matlab產生隨機數
是嗎？看看我的。a floor 10 rand 4,5 5 a 4 3 3 4 4 3 2 1 2 41 1 1 4 1 1 5 2 1 3 a floor 10 rand 4,5 5 a 5 4 3 1 3 2 3 4 4 03 4 5 1 3 5 1 2 1 1 a floor 10 rand ...