vb程式設計如何產生1到1000的隨機數

2022-01-01 09:09:46 字數 5980 閱讀 6303

1樓:吾桐語

不知道你要如何顯示,以下是在窗體上顯示的

private sub form_click()dim i as integer

dim x as integer

dim s as string

for i=1 to 3

randomize

x=int(rnd*(1000-1+1)+1)s=s & " " & x

next i

print s

end sub

2樓:匿名使用者

private sub command1_click()dim i as integer, n as integerrandomize

for i = 1 to 3

n = int(1000 * rnd) + 1msgbox "第" & i & "個隨機數:" & nnext i

end sub

3樓:蔡瑀

for i = 1 to 3

randomize

print rnd*1001

next

4樓:

dim a as integer

dim b as integer

dim c as integer

a=rnd()*1000+1

b=rnd()*1000+1

c=rnd()*1000+1

用vb,生成一個1到100之間的隨機數

5樓:匿名使用者

private sub command1_click()

label1.label1 = int(rnd(1) * 100)

end sub

6樓:湘湖泛舟

dim myvalue

randomize ' 對隨機數生成器做初始化的動作。

myvalue = int((100 * rnd) + 1) ' 生成 1 到 100 之間的隨機數值。

7樓:泣覓山

private sub command1_click()text1.text = int(rnd(1) * 100)end sub

點選按鈕command1 就在文字text1裡輸出 隨即數

8樓:匿名使用者

randomize

(rnd * 100)+1

9樓:匿名使用者

int(rnd*(100+1)+1)

或者 int(100*rnd+1)

vb如何生成隨機數

10樓:飛喵某

1、開啟「microsoft visual basic 6.0 中文版」軟體,準備一個空白的工程檔案:

2、然後需要一個命令按鈕,單擊左側工具箱中的「命令按鈕」,在窗體中右側拖動滑鼠左鍵畫出即可:

3、雙擊該命令按鈕,這裡演示輸入**列印0~10之間的任意隨即整數,生成其他範圍的隨機整數公式為「int((上限-下限+1)*rnd+下限)」,如果是1到53就是「int((1-53+1)*rnd+53」:

4、寫完之後執行程式,每單擊一次命令按鈕,就會在窗體上列印一個0~10之間的隨即整數:

11樓:匿名使用者

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

擴充套件資料

隨機數是專門的隨機試驗的結果。

在統計學的不同技術中需要使用隨機數,比如在從統計總體中抽取有代表性的樣本的時候,或者在將實驗動物分配到不同的試驗組的過程中,或者在進行蒙特卡羅模擬法計算的時候等等。

產生隨機數有多種不同的方法。這些方法被稱為隨機數生成器。隨機數最重要的特性是它在產生時後面的那個數與前面的那個數毫無關係。

參考資料

12樓:新時代向前衝

其實隨機生成數很簡單:

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提供的元件快速建立一個應用程式。

13樓:匿名使用者

vb隨機數生成函式是 rnd[(number)],number 引數為可選項。在呼叫 rnd 生成隨機數之前,先使用 randomize 初始化隨機數生成器來產生種子,該生成器是根據系統計時器來產生種子的

14樓:

通過一個函式random,就會生成你需要的隨機數,希望對你有幫助

15樓:

將以下**輸入即可

private sub form_click() '窗體click()事件

randomize

'防止每次生出隨機數一樣

print int(rnd * 53) + 1'rnd()生成[0,1)的隨機數,int()是取整end sub

改text1的font屬性,那有改字號的

16樓:匿名使用者

'下面**產生不重複的隨機數

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

從0到1000整數中隨機產生30個數!用vb程式設計教材答案為什麼是int(rnd*1000)而不

17樓:匿名使用者

rnd 函式

返回一個包含隨機數值的 single。

語法rnd[(number)]

可選的 number 引數是 single 或任何有效的數值表示式。

返回值如果 number 的值是 rnd 生成

小於 0 每次都使用 number 作為隨機數種子得到的相同結果。

大於 0 序列中的下一個隨機數。

等於 0 最近生成的數。

省略 序列中的下一個隨機數。

說明rnd 函式返回小於 1 但大於或等於 0 的值。

number 的值決定了 rnd 生成隨機數的方式。

對最初給定的種子都會生成相同的數列,因為每一次呼叫 rnd 函式都用數列中的前一個數作為下一個數的種子。

在呼叫 rnd 之前,先使用無引數的 randomize 語句初始化隨機數生成器,該生成器具有根據系統計時器得到的種子。

為了生成某個範圍內的隨機整數,可使用以下公式:

int((upperbound - lowerbound + 1) * rnd + lowerbound)

這裡,upperbound 是隨機數範圍的上限,而 lowerbound 則是隨機數範圍的下限。

注意 若想得到重複的隨機數序列,在使用具有數值引數的 randomize 之前直接呼叫具有負引數值的 rnd。使用具有同樣 number 值的 randomize 是不會得到重複的隨機數序列的。

vb 如何使產生的十個隨機數全部顯示出來

18樓:網海1書生

把這10個數每個數之間插入一個分隔符(比如空格、逗號、回車換行等等)再放入label不就行了嗎?比如

label1.caption=n1 & " " & n2 & " " & n3 ...... & " " & n10

如果你的10個隨機數是放在陣列裡面的就更簡單了,比如陣列a():

label1.caption=join(a," ")

19樓:匿名使用者

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

20樓:匿名使用者

在窗體上放一個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

vb程式設計題隨機產生不重複的A Z之間的英文字母,按字母順序輸出,每行

給你個思路。首先,定義20個陣列。然後在過程里弄個for迴圈,比如for i 1 to 20利用隨機函式,生成65 90之間的函式,賦值到變數,比如 str int 90 65 1 rnd 65 再弄個for迴圈,比如for j 1 to i判斷是否重複 if 陣列名 j str thencall ...

vb程式設計輸出1至500之內的質數

option explicit private sub form click dim i as integer,j as integer,n as integer dim isp as boolean n 0 for i 3 to 500 step 2isp true for j 2 to i 1 ...

用c語言程式設計序產生1到5間的隨機數

rand.c this program seeds the random number generator with the time,then displays 10 random integers.include include include void main void include in...