這是我的程式 : 問題是想把 RND 範圍改成 -1到2之間 麻煩VB高手幫忙
請在 改的地方 直接幫我填入
Sub RandomNos()
' generate a series of homogeneously distributed random numbers.
Set ws = Worksheets("Sheet1")
For i = 1 To 10
x = Rnd
ws.Cells(i, 2) = x
Next i
End Sub
2006-11-22 15:26:54 · 2 個解答 · 發問者 阿ken 2 in 電腦與網際網路 ➔ 程式設計
x變數要改成 範圍為-1---2
且出現的變數步是整數 而是隨機變數
2006-11-22 15:49:48 · update #1
不好意思 可是便出來還是整數的 我要的是自由變數
2006-11-27 09:42:20 · update #2
而且 你的程式 會出現 3的變數 假設也錯誤了
2006-11-27 09:43:17 · update #3
恩 要有小數點
2006-12-01 13:03:45 · update #4
首先你說的自由變數是指有小數點嗎?
那你的x就不能是Integer的資料型態
必須是single或是Double才行
然後再去推導x的範圍
0 <= Rnd < 1
0<= Rnd*3 < 3
-1 <= Rnd*3-1 < 2
經過測試， x 不會出現大於2或是小於-1的值
有錯請指教!!謝謝!!!
2006-11-30 22:52:10 補充：
將 x = Rnd 改成x = Rnd*3-1
2006-11-30 17:43:45 · answer #1 · answered by ANDY 2 · 0⤊ 0⤋
x = Rnd改成x = CInt(Rnd*4)-1原理是這樣的0 <= Rnd < 10 <= Rnd*4 < 40 <= CInt(Rnd*4) <= 3-1 <= CInt(Rnd*4)-1 <= 2這樣推導出來就懂了唄
2006-11-26 21:26:14 · answer #2 · answered by 小璋丸 5 · 0⤊ 0⤋