vbs 產生乙個指定位數的隨機數?

2025-07-20 18:50:11 字數 4442 閱讀 6942

vb如何生成隨機數

1樓:飛喵某

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

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

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

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

2樓:網友

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 = 1while n <= 10

wzs(n) = int(rnd * 1000)

n = n + 1

wendn = 1

while n <= 10

print wzs(n)

n = n + 1

wend擴充套件資料

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

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

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

3樓:新時代向前衝

其實隨機生成數很簡單:

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

4樓:網友

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

5樓:網友

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

6樓:網友

將以下**輸入即可。

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

randomize

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

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

改text1的font屬性,那有改字型大小的。

7樓:網友

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

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

nextrandomize 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 18 '字型變大。

join(a, ",") '產生的隨機陣列顯示到上end sub

j**a 如何建立乙個類或方法能夠給出產生指定位數的乙個隨機數?

8樓:一數一道

可以用函式生成乙個隨機數,然後檢查位數,如果位數不符合要求,就重新生成乙個隨機數,下面的程式是乙個實現。

public class randomtest{public static int rand(int n){int ans = 0;

while(

9樓:網友

具體的**。

* 返回長度為【strlength】的隨機數,在前面補0*/private static string getfixlenthstring(int strlength)

這麼用;i++;

10樓:_蓋_聶

static random random=new random();//生成隨機數的物件。

public static void main(string args)

public static string rand(int count)

result+=number;

return result;}

11樓:小峰永遠愛欣欣

這樣得到的數字就是三位數:100到999了。

12樓:網友

【俊狼獵英】團隊為您解答~

感覺應該不難,比如說產生乙個三位數。

首先用(int)產生乙個0~999的整數,然後只要加乙個判斷,如果小於100,就再產生一次,如果符合條件返回就可以了。

vbs產生隨機不重複的數字

13樓:匿名使用者

dim arr(33) '33個數初始值為空randomize '隨機數種子。

for i=1 to 6 '生成6個不重複的數字x = int(rnd * 33)+1 '生成乙個1-33的隨機數while arr(x) '如果隨機數已經存在就重新生成x = int(rnd * 33)+1

wendarr(x)=1 '把不存在的隨機數標誌為1,表示已經生成過了next

for i=1 to 33 '從1-33迴圈輸出已經生成的隨機數if arr(i) then ret = ret & i & " " '組合隨機數儲存為ret

nextx = int(rnd * 33)+1 '特殊號碼ret & "+ " & x '輸出結果。

vb產生10個不同隨機數

14樓:匿名使用者

用陣列來儲存產生的隨機數,每產生乙個隨機數就跟已經產生的隨機數進行比較,如果跟已經產生的隨機數中的乙個相同的話就重新產生乙個隨機數,直到跟已經產生的所有隨機數都不相同為止。

private sub command1_click()dim a(1 to 10) as integerdim i as integer

dim j as integer

randomize

for i = 1 to 10

doa(i) = int(rnd * 90) +10for j = 1 to i - 1

if a(i) = a(j) then exit fornext

loop while j < i

print a(i);

nextend sub

用vb怎麼生成3位隨機數

15樓:網友

randomize(不加這個的話,生成的隨機數是固定排列的,即第一位是:500以後開啟軟體都是500,後面皆是)

int((900*rnd)+100)

c怎麼連續產生多個指定範圍的隨機數

格式為 random.next 最小數,最大數 例如 random.next 0,1000000 解釋 範圍0 1000000隨機取一個整數 public static int randomnum int minvalue,int maxvalue 可以試試這個,一直在用,沒什麼問題 隨機數有重複是...

編寫乙個輸出乙個隨機數內所有的素數(質數)的Java程式

編寫j a程式設計計算乙個整數 隨機產生 之內素數並輸出 說一下思路把 你寫乙個判斷輸入的數字是否為素數的函式。返回值設為boolean再寫乙個迴圈從到該整數n 執行你上面寫好的函式如果返回值是true 就把這個數字 列印出來。j a 編寫程式,輸出斐波那契數列前項中的所有質數 人比較懶,不想自己寫...

c語言怎樣將產生的隨機數放入一維陣列中

定義一個一維陣列number 然後把取得的隨機數賦值給number c語言如何把rand 產生的隨機數存入陣列 rand 函式是產生隨bai機數的一個隨機函du數。zhi 1 使用dao 專該函式首先應在開屬頭包含標頭檔案stdlib.h include c 建議使用 include,下同 2 在標...