1樓:白木道人
dim a(29) as single
for i=0 to 29
a(i)=rnd*55
text1=text1+a(i)
if (i-0) mod 10 =0 then text1=text1+chr(13)+chr(10)
next i
2樓:
private sub form_load()randomize
end sub
private sub command1_click()dim i as integer
dim j as integer
for i = 0 to 29
text1.text = text1.text & int(rnd * 99 + 1) & " "
j = j + 1
if (j mod 10) = 0 thentext1.text = text1.text & chr(13) & chr(10)
end if
next i
end sub
這次可以了!要讓文字框可以顯示多行!text1.multiline=true
3樓:匿名使用者
private sub command1_click()text1.text = ""
dim t(1 to 30) as integerrandomize
for i = 1 to 30
t(i) = rnd * 99 + 1
next
for i = 1 to 30
text1.text = text1.text & " " & format(t(i), "@@")
if i mod 10 = 0 then text1.text = text1.text & vbcrlf
next
end sub
如何使ecel產生範圍內的隨機數要求小數點
wu家欽 1.首先計算這個範圍的差值。這裡假設範圍值為50 100之內的隨機數2.開啟電子 在所需要產隨機數的單元格內輸入如下公式 rand 100 50 50。按確認鍵就可以生成在規定範圍內的隨機數了!3.如果你需要生成多個隨機數,那拖動單元格最下角小三角就可以啦!microsoft excel可...
電腦隨機數是如何生成的,電腦如何產生隨機數?
不可能寫出那樣的程式.因為本來就是隨即出的數字.當然不能先知道.我做這麼長時間開發.沒發現能這麼寫過 電腦產生的隨機數稱為偽隨機數,是通過演算法模擬的,看上去和隨機數一樣,實際上能算出來的數就是可以預見的數 對你來說不可預見,對電腦則是可預見 不是真正的隨機數。 有具體的針對某個軟體嗎?單獨的電腦隨...
excel如何產生不重複的隨機數
如,要求,1 50個數字隨機不重複分佈在50個單元格里 1 在a1單元格輸入 50 int 51 row rand 1 不要直接回車或點前邊的勾確認,而要點ctrl shift enter三鍵結束。2 滑鼠移到a1單元格右下角,游標變為黑十字,向下拖拽到a50即可。 北辰酆海雪 用輔助列的方法最為簡...