1樓：匿名使用者
'隨機生成不重複資料的方法
private sub command1_click()dim a(0 to 20) as integerdim i as integer,j as integerdim b as integer
randomize timer
for i=0 to 20'給陣列賦值
a(i)=i+10
next
for i=0 to 20'隨機排序
j=int(rnd*21)
b=a(i): a(i)=a(j): a(j)=bnext
text1.text=""
for i=0 to 20'顯示資料
text1.text=text1.text & a(i) & " "
next
end sub
2樓：匿名使用者
for t = 1 to ubound(arr)redim preserve brr(t)randomize
brr(t) = int(ubound(arr) * rnd) + 1
for i = 1 to (t - 1)
if brr(t) = brr(i) thenbrr(t) = int(ubound(arr) * rnd) + 1
i = 0
end if
next i
next t
for i = 1 to ubound(brr)redim preserve crr(i)crr(i) = arr(brr(i))
next i
求VB大神幫忙寫隨機選數和猜數的VB程式謝謝
這個太簡單了自己做吧！我的理解是這樣 當使用者按 new game button 的按鈕時，程式隨機產生乙個1 100 之間的數字，然後使用者可以在 guesses textbox 裡輸入自己猜的數字，然後當 單擊 enter button 時，如果猜對了，在標籤label1裡顯示 correct ...
請問VB的隨機抽數器怎麼做
dim aa 100 as integerrandomize 隨機數初始化,這個是非常重要的乙個語句，否則你得到的每個隨機數系列都是乙個樣，即每次執行vb程式得到的第乙個隨機數都是0.7055475，第二個隨機數是0.533424，for i 1 to 100 aa i rnd 1 1000 0.5...
vb求10 1000之間的所有完數之和
dim a as integer,b as integer,s as integer,y as integer s 0 for a 10 to 1000 b 0 for y 1 to a 1 if a mod y 0 then b b ynext y if b a then s s anext a ...