1樓：匿名使用者
這個可以使用木頭字典進行生成的，按需求去設定生成就好了
用vb生成20位隨機字元，由大寫字母和數字組成，每五位之間用符號「-」隔開
2樓：瑞安阿芳
你這個演算法bai有很大的問題du:
1 . randomize只需一次就可以了
2. 你這裡zhi的t應該是dao0-2, 你的程式沒有對2進行判斷版
3. 實際迴圈一次只需產生一權個隨機數就可以了.
下面我給你一個程式:
private sub ***mand1_click()
n = 20
randomize
for i = 1 to n 'n是指定長度
t = int(rnd() * 36) '產生一個0-35的隨機數,因為數字加字母總共36個.
if t < 10 then
r = r & chr(48 + t) '生成一個數字(隨機數在0-9之間),也可寫作:r = r & t
else
r = r & chr(65 - 10 + t) '生成一個大寫字母(隨機數在10-35之間)
end if
if (i mod 5 = 0) and i <> n then r = r & "-" '被5整除時,加上-號
next i
text1.text = r '將結果輸出在文字框中。
end sub
'不好意思,剛才在<>n後面少一個空格
3樓：匿名使用者
private sub ***mand1_click()
n = 20
s=""
r=""
for i = 1 to n 'n是指定長度
randomize
t = int(rnd() * 3) '這裡會bai是0～du3之間的數、所以case 2也加zhi上吧。
select case t
case 0
randomize
r = r & chr(int(rnd() * 25) + 65) '生成一dao個大版寫權
字母case 1
randomize
r = r & chr(int(rnd() * 9) + 48) '生成一個數字
case 2
r = r & chr(int(rnd() * 25) + 65) '生成一個大寫字母
case else
r = r & chr(int(rnd() * 9) + 48) '生成一個數字
end select
if len(r)\5=len(r)/5 then
s=s & right(r,1) & "-"
else
s=s & right(r,1)
end if
next i
text1.text = s '將結果輸出在文字框中。
end sub
vb中如何生成不同的隨機數，VB如何生成隨機數
為了生成某個範圍內的隨機整數，可使用以下公式 int upperbound lowerbound 1 rnd lowerbound 這裡，upperbound 是隨機數範圍的上限，而 lowerbound 則是隨機數範圍的下限。注意若想得到重複的隨機數序列，在使用具有數值引數的randomize 之...
vb 中怎麼用隨機函式產生10 100之間的互不相同的
思路是先設定一個定額陣列 要取的值一一對應位置,每次抽取隨機量就對比對應位置的值是否為0 如果不為0 就取 並置為0 直到取完為止 注意的是 待抽陣列的長度一定要大於或等於要抽的數量 否則有可能進入死迴圈 private sub form click 定義一個陣列,兩個變數 dim a 90 rnu...
vb編寫用於求隨機數的程式，vb編寫一個用於求隨機數的程式
private sub form mousedown button as integer,shift as integer,x as single,y as single dim i as integer,f as doublerandomize if button vbkeylbutton the...