1樓：網海1書生
hell_faller的答案有可能出現0，不符合樓主要求。
tw314809的只能防止出現連續重複，無法防止隔數重複，比如 1 2 1 2 1 2
langelos的答案是正解。
如果要**量較少的答案，那就是下面的：
dim a() as string, s as string, i as integer, n as integer
randomize
for i = 1 to 60
don = int(rnd * 300) +1loop while instr(" s, "n & 0s = s & n &
nexta = split(trim(s),a()陣列中就包含了所要的隨機數。
2樓：網友
dim a as variant, i as integer, j as integer
dim n as integer
randomize
n = 60 'n代表產生多少個隨機數。
redim a(1 to n)
for i = 1 to n
do while j < i
x = rnd
a(i) =int(rnd * 300 + 1)for j = 1 to i - 1
if a(i) =a(j) then exit fornext j
loopnext i
用vb怎樣生成10個不重複的（1到10）隨機數？
3樓：惠企百科
vb生成10個不重複的隨機數**：private sub command1_click()dim a(9) as integer
for i = 0 to 9
goto way1
end if
next p
end if
print a(i)
next i
end sub
用vb怎樣生成10個不重複的（1到10）隨機數？
4樓：網友
vb生成10個不重複的隨機數**：private sub command1_click()dim a(9) as integer
for i = 0 to 9
goto way1
end if
next p
end if
print a(i)
next i
end sub
5樓：網友
private sub command1_click()dim a(9) as integer
for i = 0 to 9
way1:randomize
a(i) = int(rnd() 10) +1if i > 1 then
for p = 0 to i - 1
if a(p) = a(i) then 『與前面的對比，如果有重複，重新隨機。
goto way1
end if
next p
end if
print a(i) 』列印。
next i
end sub
如何生成硬體中可綜合的隨機數
37位的case 元胞自動機移位暫存器 的設計原理，是對位元序列中的每一位通過計算內函式單元，將計算生成容的新位元加入位元序列的最左端，同時將所有的位元流右移，則移出的位元為輸出位元。這裡的37位元胞自動機偽隨機生成器使用的計算函式為ca90和ca150。硬體程式語言有哪些？早一點是vhdl，現在是...
rand函式生成的不是真正的隨機數嗎
這麼跟你說吧 rand函式生成的隨機數是根據乙個叫做 隨機種子 的東西生成的 當隨內機種子沒有變化時，容rand出來的數是不變的隨機種子他有乙個預設值 為了實現真正隨機我們就要改變它改變隨機種子的函式為 srand 括號裡面帶乙個整數然後真正意義的隨機就要 srand time 0 time這個函式...
vb求取1 100之間的隨機數,並求平均值
dim str as string temp as integer 0,sum as integer 0 dim a 10 as integer for i 1 to 10 a i int rnd 99 1 sum sum a i next textbox6.text 這 bai10個數 du的zh...