1樓：匿名使用者
int((upperbound - lowerbound + 1) * rnd + lowerbound)
upperbound是上限的意思，lowerbound是下限的意思，根據你的要求來指定數字
比如我要乙個0到10的隨機數
randomize '初始化隨機數種子text1=int(rnd*(10-0+1)+0)
2樓：公子嬴
在vb中，生成隨機數的話主要是利用rnd（）這麼乙個內建的函式，vb很簡單，你什麼都不需要去引用就可以直接使用，具體用法如下：
語法：rnd（number)
作用：產生乙個[0,1)之間的乙個隨機數
使用：rnd產生的隨機數決定於number的值例項：使用 rnd 函式隨機生成乙個 1 到 6 的隨機整數。
dim myvalue
myvalue = int((6 * rnd) + 1)
3樓：匿名使用者
dim i as integer
i=rnd()*20000
說明：隨機生成20000以內的整數包括0及20000rnd()產生0-1 的結果。
4樓：
例子有很多，只要你提出的問題是關於隨機的，那都能用隨機數來解決。樓上幾位基本已例出隨機的例子了，我給你舉個不一樣的例子。
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樓：匿名使用者
將下面的**貼上到文字檔案,另存*.frm 檔案version 5.00
begin vb.form form1
caption = "form1"
clientheight = 4470clientleft = 60clienttop = 420clientwidth = 6165linktopic = "form1"
scaleheight = 4470scalewidth = 6165startupposition = 3 '視窗預設begin vb.commandbutton command1caption = "下乙個隨機數"
height = 615left = 2040tabindex = 2top = 1440width = 1695endbegin vb.label label4caption = "正弦值:"
height = 495left = 1320tabindex = 4top = 3600width = 855endbegin vb.label label3caption = "隨機數(60-90):"
height = 375left = 1320tabindex = 3top = 2880width = 1335endbegin vb.label label2height = 495left = 3360tabindex = 1top = 3600width = 1575endbegin vb.label label1height = 375left = 3240tabindex = 0top = 2880width = 2175endend
attribute vb_name = "form1"
attribute vb_globalnamespace = false
attribute vb_creatable = falseattribute vb_predeclaredid = trueattribute vb_exposed = falseprivate sub command1_click()randomize
label1.caption = rnd() * 30 + 60label2.caption = sin(label1.caption)
msgbox sin(56)
end sub
13樓：沉淪法則
private sub cmdranangle_click()dim dblangle as doubledim dblsin as double
'randomize
dblangle = dbl((90*ran)+60)dblsin = sin(dblangle)lblscream.caption = dblanglelblanswer.caption = dblsinend sub
最簡單的方法，樓上都有錯。。。。。
希望樓主採納，有vb問題希望可以**，qq827170254
VB如何讓按鈕切換，vb中如何用乙個按鈕實現標籤控制項中兩項內容的切換
private sub commandbutton2 click commandbutton1.setfocus 切換到commandbutton1 end sub private sub commandbutton1 click commandbutton2.setfocus 切換到command...
在VB中如何讓輸入的字元在TextBox中變成
passwordchar 屬性 返回或設定乙個值，該值指示所鍵入的字元或佔位符在 textbox 控制項中是否要顯示出來 返回或設定用作佔位符。語法object.passwordchar value passwordchar 屬性的語法包含下面部分 部分 描述 object 物件表示式，其值是 應用...
vb中如何同時開啟多個檔案，VB中如何同時開啟多個檔案
txt檔案路徑存放到陣列裡，然後迴圈陣列開啟檔案sub a dim p 1 to n as stringdim i as long p 1 path1 p n pathn for i 1 to n open p n next i end sub 同時開啟多個，只能多次open，就算你用別的語言多執行...
如何在vb中引用，如何在VB中引用ADO
在vb6.0中引用ado 通過選擇 工程 選單中的 引用.來為 ado 物件庫新增乙個引用，然後在 引用.對話方塊中選擇 microsoft activex data objects 2.0 library 點上圖確定。工程就引用了ado。執行 示例 private sub command1 cli...
VB中如何得知SQL執行成功，VB中如何運用SQL查詢語句
on error 語句 啟動乙個錯誤處理程式並指定該子程式在乙個過程中的位置 也可用來禁止乙個錯誤處理程式。語法on error goto line on error resume next on error goto 0 on error 語句的語法可以具有以下任何一種形式 語句 描述 on er...