1樓：念尐憂
dim a(10) as integer, i as integerprivate sub form_activate()for i = 0 to 10 '迴圈10次randomize '每次產生都不一樣
a(i) = rnd() * 1000 + 1 '這裡的1000可以是你要取的隨機數字的範圍
print a(i)
next
end sub
2樓：匿名使用者
你多給點分，我就給你全部程式
樓下的，你這個也叫完整程式阿，寫的一點也不專業，糊弄人啊
3樓：匿名使用者
冒汗....
很簡單阿.....
怎麼都搶阿
4樓：
dim minnum as integerdim maznum as integerminnum = 10
maxnum = 99
randomnum = minnum + (maxnum - minnum) * rnd()
給定乙個最大數和最小數，則生成他們之間的乙個隨機數如：上面就是生成乙個10~99的隨機數
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書生
把這10個數每個數之間插入乙個分隔符（比如空格、逗號、回車換行等等）再放入label不就行了嗎？比如
label1.caption=n1 & " " & n2 & " " & n3 ...... & " " & n10
如果你的10個隨機數是放在陣列裡面的就更簡單了，比如陣列a()：
label1.caption=join(a," ")
13樓：匿名使用者
vb生成十個隨機數字**如下：
private sub command1_click()dim k as long, i as longrandomize ' 對隨機數生成器做初始化的動作。
for i = 0 to 9 '迴圈10次生成並輸出k = int(rnd * 1000)
print k
next
end sub
'另外提供乙個自定義函式，可以定義生成的隨機數字範圍'自定義函式，a是下界（最小數），b是上界（最大數）private function rndz(a as long, b as long)
randomize
rndz = int((a - b + 1) * rnd() + b)
end function
14樓：匿名使用者
在窗體上放乙個label，caption設為空，然後複製下面的**就ok了。
private sub form_load()dim a(9)
randomize (timer)
for i = 0 to 9
a(i) = rnd * 10000
label1.caption = label1.caption & a(i) & chr(13) & chr(10)
next
end sub
15樓：匿名使用者
在窗體上放1個label，貼上下面**試試。
private sub form_load()randomize
dim r(10) as integer, i as integerlabel1.caption = ""
for i = 1 to 10
label1.caption = label1.caption & int(rnd() * 100) & ", "
next i
end sub
vb rnd 函式，每次執行程式生成的隨機數都一樣，為什麼？？ 5
16樓：
randomize（）在隨機前面加這一句就行了
17樓：匿名使用者
你可以給rnd 乙個隨機種子，用計算機的系統時間做為這個種子，產生的隨機數就不會每次都一樣了。
具體就是在呼叫rnd前，先呼叫randomize。
private sub command1_click()randomize
text1.text = rnd
end sub
用vb做乙個產生隨機數的程式
18樓：匿名使用者
問題的主要是產生一bai個範du圍內的隨機數。可使用以下zhi公式：daoint((upperbound - lowerbound + 1) * rnd + lowerbound)
這裡，upperbound 是隨機數範圍
回的上答限，而 lowerbound 則是隨機數範圍的下限。
19樓：匿名使用者
用vb做乙個產生copy隨機數的程式過程：
1 建立隨機數窗體：
2 編寫產生隨機數的
事件：private sub command1_click()randomize '初始化隨機數生成器
list1.additem int((rnd * 9) + 1)end sub
3 執行結果：
20樓：匿名使用者
private sub form_click()dim i, j, k as singlefor i = 0 to 5
dotext1(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
text1(6) = int(rnd() * 15 + 1)end sub
c 生成隨機數，c 生成隨機數
加個來判斷 自就可以了 srand int time null int t 0 while 1 t就是要用的值了。範圍可以自抄己輸入，可以bai 產生乙個隨機數。先輸入du大的，再輸入小的。zhi include include include using namespace std int mai...
vb隨機數問題
rnd 隨機數函式 生成某個範圍內的隨機整數，可使用以下公式 int upperbound lowerbound 1 rnd lowerbound 這裡，upperbound 是隨機數範圍的上限，而 lowerbound 則是隨機數範圍的下限。由小到大的順序排列,由大到小的順序排列 要用到陣列氣泡排...
怎麼用ecel做隨機數字,怎麼用Excel做隨機數字
randbetween 函式bai randbetween 函式 du返回指定大zhi小範圍的隨機整dao數。語法 randbetween 內bottom,top 示例 randbetween 1,300 隨機生成容1 300的數字 要生成乙個位於 a 和 b 之間的隨機數,可以使用公式 rand ...