vb產生隨機數的編程

『壹』 vb編程，產生隨機數

Randomize '關鍵必須有，不然每次運行隨機數都不變
n1 = InputBox("輸入隨機數最小的值（正整數）", "下限", "1")
n2 = InputBox("輸入隨機數最大的值（正整數）", "上限", "100")
n = Int(((n2 - n1) + 1) * Rnd + n1)
MsgBox n & " is the rndvalue"

『貳』 vb如何產生隨機數

只能用Rnd，可能是因為你沒初始化吧。

這樣寫：
Randomize '初始化
suiji= Fix(Rnd * 999) + 1 '生成0-999的隨機數，+1則為1-1000

10000次不重復？一共只有1000個數，怎麼可能不重復呢？

『叄』 用VB做一個產生隨機數的程序

好了哦，看一下啊

Dim i, j, k As Single
For i = 0 To 5
Do
Text1(i) = Int(Rnd() * 32 + 1)
k = 0
For j = 0 To i - 1
If Text1(i) = Text1(j) Then k = k + 1
Next j
Loop While k > 0
Next i
do
Text1(6) = Int(Rnd() * 15 + 1)
n=0
For i = 0 To 5
if text1(6)=Text1(i) then n=n+1
next i
Loop While n > 0

『肆』 vb 隨機數的生成

fix函數，取整
rnd函數，取值：（0，1）
若要實現真正隨機，要在Form_load中或當前語句中加入randomize（隨機種子函數）
否則每次開始程序都是同一隨機順序
比如10-99的數字任意：
源代碼①：
private
form_load
randomize
'隨機種子函數，實現真正隨機
end
源代碼②（取10-99的隨機兩位數）：
fix(rnd*90)+10
源代碼③（顏色隨機設定）：
RGB(fix(rnd*256),fix(rnd*256),fix(rnd*256))
不知對LZ有沒幫助

『伍』 VB中如何產生一個范圍在1—7之間的隨機數

不知道vb產生隨機數是用什麼函數不知道是用rand不，我就說下我的思路哈你看看可以不
產生一個隨機數，取這個隨機數的最後兩位，最後一位和四求余，這樣就產生一個0到3的隨機數
然後把剛才取的兩位的隨機數的前面那一位和2求余，判斷一下，如果是0就是負號，如果是1就是正號……這樣一組合。。。就符合你要的那個區間了……

『陸』 VB編程時，如何產生一個隨機數，把它賦值給一個變數，然後這個變數不再改變

Dim N As Integer
Randomize
N = Int(Rnd*100 + 0) ''0到100的隨機數
這個觸發一次就變一次，不觸發就不會變了

『柒』 VB編程題：編寫一個產生1 至100之間的隨機整數的Function 過程

一、要產生1到100之間的隨機數，首先了解Rnd函數的用法，Rnd函數產生的是0和1之間的隨機數，范圍是[0,1)，包括0，但不包括1。因此要產生1~100之間的隨機數，可以使用Rnd*98，產生的是[0,98)的隨機數，而int(Rnd*98)產生的是[0,97]之間的隨機整數，那麼int(Rnd*98)+2產生的就是[2,99]之間的隨機整數了，符合目標1到100之間的隨機數目的。函數代碼如下：

PublicFunctionsj()AsInteger
Randomize
sj=Int(Rnd*98)+2
EndFunction

二、舉個例子，要產生10個1到100之間的隨機整數，如下：
1、打開VB6.0開發軟體，新建一個標准exe工程；
2、在設計界面上添加一個Text控制項和一個Command控制項；

『捌』 如何用VB產生隨機數呢

randomize
'以系統時間作為隨機種子
（如果沒有上面那句的話每次運行程序生成的隨機數都是一樣的。加了上面那一句則不會）
1<=rnd<0
是一個不等式
要生成多少到多少的隨機數要用上面的不等式換算得出
比如要算
10
到20
的
則不能是Int（rnd*20+10）
而是根據上面的不等式求出
正解因為Int(11*rnd+10)『rnd左邊為一，右邊為零
兩邊同乘11
左邊為11
右邊為0
在同加一個10
所以左邊為21右邊為10
這樣說明白了么？