1樓:匿名使用者
在表單中建一個列表框 list1,一個按鈕 command1。
1-100 隨機但不會重複。
private sub command1_click()list1.clear
dim a(100) as byte
dim i as byte, r as byte, t as byte
for i = 1 to 100 '填充 1 - 100a(i) = i
next
randomize
for i = 1 to 100 '隨機對調r = int(rnd * 100) + 1t = a(r)
a(r) = a(i)
a(i) = t
next
for i = 1 to 100
list1.additem cstr(i) & "→" & cstr(a(i))
next
end sub
2樓:
既然是隨機數,那麼就不能說一定不出現。
只能是用迴圈檢測,相同就不要了
產生1~n的整數:int(rnd*n+1)
3樓:匿名使用者
用隨機函式可以自動產生,
求高手解決電腦藍屏問題
造成電腦總是藍屏的原因和處理方法如下 第一種 如果你的電腦經常藍屏,不管是你重灌系統,還是後來重灌系統,還是出現藍屏,都說明是硬體造成的問題。直接影響電腦硬體的就是記憶體條或者是顯示卡。問題原因出在記憶體條或者顯示卡金手指氧化或者插槽接觸不良,導至的藍屏現象。處理方法 你可以先斷電,開啟電腦機箱,把...
求高手解決夢幻WZ的問題
僅僅憑你所說的加點分析幾點 1.三種加方法絕對你是中高速度,意思就是你比攻擊門派速度快,而比高速封系慢 所以生存能力非常重要。2.作為第一點的補充,我要說下加耐和加血的分別 血耐wz不需要煙雨沒有血量百分比的壓力,再者血量的大小對於一個血耐wz來說只是開場的優勢。防禦是個不可變因素 在沒有tj影響下...
vb程式設計問題,高手請進
重排一下,你那樣寫太沒層次了,看著暈 private sub command1 click dim a 5 定義 a 0 a 5 6個for i 0 to 4 0 4 五次迴圈a i i 1 t i 1 if t 3 then 這有個條件判斷,t 3,也就是i 2的時候才是true print a ...