1樓：it趣科技
zheng0823的回答有點小問題,你那樣永遠得不到38,應該37改為38
同理你command2的事件裡28改為29,不然最大只能得到66因為rnd函式返回的範圍是(0,1]
包含0 ,但不包含1
還有沒有初始化隨機數種子
修改後的**:
private sub command1_click()randomize
dim a as integer
a = int(rnd * 38) + 1text1.text = a
end sub
private sub command2_click()randomize
dim a as integer
a = int(rnd * 29) + 39text1.text = a
end sub
2樓：天蠍神經俠侶
private sub command2_click()dim n as integer
n = val(inputbox("請你輸入隨機數個數"))for i = 1 to n
print int(100 * rnd);
if i mod 10 = 0 then printnext i
end sub
3樓：藍色無限
樓上這位
(0,1]是不包含0,包含1的
應該這樣與[0,1)
4樓：匿名使用者
int( rnd + lowerbound)
5樓：匿名使用者
randomize
int number = (最小值-最大值)*rnd + 最大值
vb中如何產生30個0651000的隨機整數
6樓：兄弟連教育北京總校
option explicit
option base 1
private sub form_click()randomize
dim i as integer, j as integer, temp as integer
dim a(30) as integer
for i = 1 to 30
a(i) = int(90 * rnd + 10)next i
for i = 1 to 29
for j = i + 1 to 30
if a(i) > a(j) then
temp = a(i)
a(i) = a(j)
a(j) = temp
end if
next j
next i
for i = 1 to 30
if a(i) mod 2 <> 0 then print a(i):
next i
end sub
vb中用隨機函式產生乙個兩位的隨機正整數的公式是什麼?
7樓：百變大狸子
int((rnd*b-a+1 )+a)
8樓：匿名使用者
若要生成 a 與 b 之間的隨機實數，請使用：
rand()*(b-a)+a
兩位的隨機正整數的話，a=10，b=99
如何使vb中rnd函式產生的隨機數是在[0,1]內？
9樓：匿名使用者
只能得到[0,1）上的隨機數，1取不到。即使如此，可以視作rnd[0,1]上的隨機數，因為x=1的概率無限接近0.
rnd，visual basic中隨機函式。格式：rnd(《數值表示式》)功能：求[0,1)之間的乙個隨機數。
語法：rnd[(number)]
如果 number 的值是 randomize 生成
小於 0 ，每次都使用 number 作為隨機數種子得到的相同結果。
大於 0 ，以上乙個隨機數為種子產生下乙個隨機數。
等於 0 ，產生與最近生成的隨機數相同的隨機數。
省略， 以上乙個隨機數為種子產生下乙個隨機數。
說明rnd 函式返回小於 1 但大於或等於 0 的值。
number 的值決定了 rnd 生成隨機數的方式。
對最初給定的種子都會生成相同的數列，因為每一次呼叫 rnd 函式都用數列中的前乙個數作為下乙個數的種子。
在呼叫 rnd 之前，先使用無引數的 randomize語句初始化隨機數生成器（若帶引數，則產生由引數對應的乙個特定序列的隨機數），該生成器具有根據系統計時器得到的種子。
為了生成某個範圍內的隨機整數，可使用以下公式：
int((upperbound - lowerbound + 1) * rnd + lowerbound)
這裡，upperbound 是隨機數範圍的上限，而 lowerbound 則是隨機數範圍的下限。
10樓：
vb中rnd函式產生的隨機數本來就是0～1之間，0 11樓：匿名使用者 vb的rnd函式，其作用就是產生(0,1)之間的隨機數，還不是[0，1]。 即：0 < rnd < 1 根據上式，結合vb的int（）等函式，可以產生你所需要的任意範圍內的隨機數。 例如1：根據 0 < rnd < 1 那麼就有： 0 < rnd *10 < 10 產生(0,10)之間的隨機數，注意這是實數 例如2： 0 <= int（rnd *10）< 10 產生[0,10)之間的隨機數，注意這是正整數 例如3： 1 <= int（rnd *10）+ 1 <= 10 產生[1,10]之間的隨機數，注意這是正整數等等 12樓：唐勝希 可以這樣來做 round(rnd,1) 請問怎樣在vb生成乙個1到100的隨機整數？ 13樓：曹曉山 vb生成1-100之間 bai的隨機整數，du可以使用系統自帶的rnd()方法zhi進行實現，dao**如下： private sub command_click()dim myvalue //定義乙個版隨機數權myvalue = int((100 * rnd) + 1) //rnd()函式生成隨機數 print myvalue //列印出這個隨機數end sub private sub form_load()randomize //初始化隨機數生成器end sub 14樓：匿名使用者 private sub command1_click()dim myvalue myvalue = int((100 * rnd) + 1)print myvalue end sub private sub form_load()randomize end sub 15樓：匿名使用者 int（rnd*100 + 1），rnd生成0~1之間的實數， 回rnd*100生成0~100之間的實數，rnd*100+1 生成1~101之間的實數，int使隨機數向下取整，由答於rnd生成的實數小於1，所以實際生成的是1~100之間的整數。 簡單粗暴。int num int math.random 100 math.random 返回的是一個大於等於0小於1的double型別。 math.random 會產生 0,1 區間中的雙復精度制浮點隨機數，所以 math.random 100 就會生成一個100以內的隨機數浮點數，如果需要整數的... 火鍋兎 被計算機2級考試折磨的可憐娃兒 private sub form load dim mr 1 to 50 as byte,x as byte dim i as long,j as long,t as long,b as boolean dim so as string 產生50個隨機二位整數... 將一塊強磁物放在鐵器表面,向一個方向反覆摩擦 不能來回擦 多次即可 在另一塊磁鐵上沿一個方向磨就會產生磁性 磁化就可以啦。問題是不同種類的鐵磁化的的效果也不同。不知道你是那種鐵？ 福爾民 一直通電 最好用鋼鐵 怎樣使鐵變成帶磁性的鐵？ 用磁鐵等磁性物質磁化即可。如鐵釘在磁鐵上磨過後就會有磁性 1通電...java如何產生1 8的整數隨機數
VB編寫，產生隨機二位整數，存入陣列中，計算總和，將陣列元素按升序排序，並按每行列印輸出
如何使鐵產生永久磁性，怎樣使鐵變成帶磁性的鐵？？