1樓:
使用 random類 可以實現。
private sub button1_click(sender as object, e as eventargs)_
handles button1.click
dim newrandom1 as new random
dim newrandom2 as new random
textbox1.text() = newrandom1.next(100,999)
textbox2.text() = newrandom2.next(100,999)
end sub
偽隨機數是以相同的概率從一組有限的數字中選取的。所選數字並不具有完全的隨機性,因為它們是用一種確定的數學演算法選擇的,但是從實用的角度而言,其隨機程度已足夠了。random 類的當前實現是基於 donald e.
knuth 的減隨機數生成器演算法的。有關更多資訊,請參見 d. e.
knuth.「the art of computer programming, volume 2: seminumerical algorithms」。
addision-wesley, reading, ma, second edition, 1981。
2樓:匿名使用者
private sub command1_click()randomize
text1.text = cstr(int(rnd * 900 + 100))
text2.text = cstr(int(rnd * 900 + 100))
end sub
3樓:濁苛木樣式
private sub command1_click()text1.text = int(rnd * 899 + 100)text2.text = int(rnd * 899 + 100)end sub
4樓:匿名使用者
private sub command20_click()dim r1, r2 as long
randomize timer
r1 = fix(899 * rnd() + 100)r2 = fix(899 * rnd() + 100)text6.text = r1
text7.text = r2
end sub
vb如何生成隨機數
5樓:飛喵某
1、開啟「microsoft visual basic 6.0 中文版」軟體,準備乙個空白的工程檔案:
2、然後需要乙個命令按鈕,單擊左側工具箱中的「命令按鈕」,在窗體中右側拖動滑鼠左鍵畫出即可:
3、雙擊該命令按鈕,這裡演示輸入**列印0~10之間的任意隨即整數,生成其他範圍的隨機整數公式為「int((上限-下限+1)*rnd+下限)」,如果是1到53就是「int((1-53+1)*rnd+53」:
4、寫完之後執行程式,每單擊一次命令按鈕,就會在窗體上列印乙個0~10之間的隨即整數:
6樓:匿名使用者
1、隨機生成數生成通式:
randomize 『必要**,不然的話每次隨機生成都是一樣的數
a=int(rnd*(m-n+1))+n 』 其中m>n生成n~m間(包括n,m)的隨機整數
假如我想隨機生成20-100間 ,那麼就是n=20,m=100
**是int(rnd*(100-20+1))+20
2、**:
private sub command1_click()
clsdim n as integer
dim wzs(10) as integer
n = 1
while n <= 10
wzs(n) = int(rnd * 1000)
n = n + 1
wend
n = 1
while n <= 10
print wzs(n)
n = n + 1
wend
擴充套件資料
隨機數是專門的隨機試驗的結果。
在統計學的不同技術中需要使用隨機數,比如在從統計總體中抽取有代表性的樣本的時候,或者在將實驗動物分配到不同的試驗組的過程中,或者在進行蒙特卡羅模擬法計算的時候等等。
產生隨機數有多種不同的方法。這些方法被稱為隨機數生成器。隨機數最重要的特性是它在產生時後面的那個數與前面的那個數毫無關係。
參考資料
7樓:新時代向前衝
其實隨機生成數很簡單:
randomize 『必要**,不然的話每次隨機生成都是一樣的數
a=int(rnd*(m-n+1))+n 』其中m>n生成n~m間(包括n,m)的隨機整數
假如我想隨機生成20-100間
那麼就是n=20,m=100
**是int(rnd*(100-20+1))+20
visual basic(簡稱vb)是microsoft公司開發的一種通用的基於物件的程式語言,為結構化的、模組化的、物件導向的、包含協助開發環境的事件驅動為機制的視覺化程式語言。是一種可用於微軟自家產品開發的語言。 [1]
「visual」 指的是開發圖形使用者介面 (gui) 的方法——不需編寫大量**去描述介面元素的外觀和位置,而只要把預先建立的物件add到螢幕上的一點即可。 「basic」指的是 basic (beginners all-purpose symbolic instruction code) 語言,是一種在計算技術發展歷史上應用得最為廣泛的語言。
visual basic源自於basic程式語言。vb擁有圖形使用者介面(gui)和快速應用程式開發(rad)系統,可以輕易的使用dao、rdo、ado連線資料庫,或者輕鬆的建立active x控制項,用於高效生成型別安全和物件導向的應用程式 [2] 。程式設計師可以輕鬆的使用vb提供的元件快速建立乙個應用程式。
8樓:匿名使用者
vb隨機數生成函式是 rnd[(number)],number 引數為可選項。在呼叫 rnd 生成隨機數之前,先使用 randomize 初始化隨機數生成器來產生種子,該生成器是根據系統計時器來產生種子的
9樓:
通過乙個函式random,就會生成你需要的隨機數,希望對你有幫助
10樓:
將以下**輸入即可
private sub form_click() '窗體click()事件
randomize
'防止每次生出隨機數一樣
print int(rnd * 53) + 1'rnd()生成[0,1)的隨機數,int()是取整end sub
改text1的font屬性,那有改字型大小的
11樓:匿名使用者
'下面**產生不重複的隨機數
private sub command1_click()
dim a(1 to 53) as string, tmp as integer
dim i as integer, j as integer, k as integer
for i = 1 to 53 '先按順序編號
a(i) = i
next
randomize timer
for i = lbound(a) to ubound(a) '共執行53次
j = rnd * 52 + 1 '產生第乙個隨機數
k = rnd * 52 + 1 '產生第二個隨機數
'把這二個數的數值交換,以達到打亂次序的目的
tmp = a(j)
a(j) = a(k)
a(k) = tmp
next
text1.font.size = 18 '字型變大
text1.text = join(a, ",") '產生的隨機數組顯示到text1.text上
end sub
vb通過隨機函式產生兩個兩位正整數,求這兩個數之和及差並顯示出來
12樓:網海1書生
private sub form_click() '點選窗體執行dim a as integer, b as integerrandomize
a = int(rnd * 90) + 10print "第1個數:"; a
b = int(rnd * 90) + 10print "第2個數:"; b
print "兩數之和:"; a + b
print "兩數之差:"; abs(a - b)end sub
13樓:匿名使用者
直接用乙個隨機數。範圍設在10到100之間就行了
14樓:旅行志遊走風物間
dim a(1) as integer
dim m as integer
dim i as integer
private sub form_load()
form1.autoredraw=true '將窗體的autoredraw屬性置為真,否則print語句無法在窗體上顯示
end sub
private sub form_click() '窗體單擊事件,即單擊窗體
for i= 0 to 1
m=0 '進入for迴圈時,將m置為0,否則可能是上個for迴圈時得到的m值
'將不會做do...loop,因為不滿足做do...loop 的條件
do while (m<10 or m>100) '只要是小於10或大於100就接著做,直到找到大於10 ,
'小於100的數,退出do...loop迴圈,保證找到的是兩位數
m=cint(rnd * 100) '如果rnd產生的是0.02145則m=2,不是兩位數,所以用do loop
loop
a(i)=m
next i
print a(0) ; " + " ; a(1) ; " = " ; a(0) + a(1)
print a(0) ; " - " ; a(1) ; " = " ; a(0) - a(1)
end sub
15樓:歸萱
private sub form_click()dim arr(1) as integer, i as integer
for i = 0 to 1
randomize
arr(i) = int(rnd * 90) + 10next
print arr(0) & "+"; arr(1) & "="; arr(0) + arr(1)
print arr(0) & "-"; arr(1) & "="; arr(0) - arr(1)
end sub
vb程式設計,產生隨機數,vb程式設計,產生隨機數
可以的,先設定textbox的屬性值,確定範圍,隨機數產生用 rnd函式。比如 int rnd 整數n 產生0,1,2,3,n 1中的隨機數。rnd產生的是0 1的隨機數。例如 int rnd n m 1 m 產生的是在區間 m,n 內的數。randomize 關鍵必須有,不然每次執行隨機數都不變n...
vb中如何讓取隨機數,VB中如何讓取隨機數
int upperbound lowerbound 1 rnd lowerbound upperbound是上限的意思,lowerbound是下限的意思,根據你的要求來指定數字 比如我要乙個0到10的隨機數 randomize 初始化隨機數種子text1 int rnd 10 0 1 0 在vb中,...
vb隨機數計算及陣列問題
private sub form load for i 0 to 9 label1 i caption 單擊計算 next end sub private sub label1 click index as integer aa inputbox 輸入指定的text2值 text3 index in...
蘋果電腦numbers怎麼生成隨機數
numbers 軟體呼叫 rand 函式,返回為大於或等於 0 且小於 1 的隨機數。說明 以下鍵入 的表述,只需要鍵入雙引號 裡面的字元即可,不需要打雙引號 本身。第一步 在 內鍵入 符號,調出公式欄第二步 在公示欄中鍵入 rand 第三步 選擇第乙個 第四步 按 回車 或綠色圓勾,確定即可 此時...
pascal語言如何生成不重複的隨機數序列
開乙個陣列 比如a 1.10000 for i 1 to 10000 do a i i for i m downto 1 do begink random i 1 writeln a k t a i a i a k a k t end 這樣就可以生成m個1.10000的數。也可以加點別的東西 比如 ...