VB 如何隨機生成15位數

時間 2023-05-20 09:10:06

1樓:寰宇博識

樓上正解!private sub timer1_timer() 3000dim s as string

dim i,a as integer

randomize

i = 0do while i < 15

a = int(rnd * 122)

select case a

case 0 to 9

s =s & a

i = i + 1

case 65 to 90, 97 to 122s = s & chr(a))

i = i + 1

case else

end select

= send sub

但好像不合樓主的題意啊?(一組數字+字母組合)有順序麼?

還想出了一種看是否和樓主意?

private sub timer1_timer() 3000dim s1, s2 as string

dim a, b, i, j as integerrandomize

i = 0j = 0

do while i < 8

a = int(rnd * 122)

select case a

case 0 to 9

s1 = s1 & a

i = i + 1

case 65 to 90, 97 to 122s1 = s1 & int(rnd * 10)i = i + 1

case else

end select

loopdo while j < 7

b = int(rnd * 122)

select case b

case 65 to 90, 97 to 122s2 = s2 & chr(b))

j = j + 1

case else

end select

= s1 & s2end sub

截圖如下:?

2樓:匿名使用者

樓上的,只能是前兩位是數字,後面的全部是字母的。。

private sub timer1_timer()dim stmp as string

dim i as integer, itmp as integerrandomize

i = 0do while i < 15

itmp = int(rnd() 122)select case itmp

case 0 to 9

stmp = stmp & itmp

i = i + 1

case 65 to 90, 97 to 122stmp = stmp & ucase(chr(itmp))i = i + 1

case else

end select

= stmpend sub

3樓:匿名使用者

private sub timer1_timer()

randomize

dim s as string

dim i as integer

for i = 1 to 15

s = s & chr(int(rnd * 90 - 65 + 1)) 65)

生成15位隨機字元,大寫的a到z。

rnd中(90 - 65 + 1)) 65) 90是z的chr碼值,65是a的chr碼值。

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

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

如果要有大小寫可以再從上面加點就行。

得到一組隨機數,再和字元合在一起輸出到text1中。

end sub

在vb中,如何隨機生成乙個小寫字母呢,如何隨機生成乙個五位正整數呢?

4樓:理工愛好者

一種方式是把26個小寫字母放到乙個陣列內,然後隨機序號。

五位正整數可以利用隨機函式設定隨機範圍。

vb題目 單擊「生成隨機數」按鈕,隨機生成兩3位正整數M N分別顯示在對應文字框中

使用 random類 可以實現。private sub button1 click sender as object,e as eventargs handles button1.click dim newrandom1 as new random dim newrandom2 as new ran...

用vb語言編寫程式隨機生成兩個,用vb語言編寫乙個程式,隨機生成兩個100 300之間的正整數,顯示他們,並求這兩個數的最大公約數

瘋狂小鳥 如圖所示,望採納。 冉冉曦丶 imports system.math public class form1 private sub button1 click sender as object,e as eventargs handles button1.click dim a,b as ...

怎麼生成 1到1的隨機數 ,怎麼生成 1到1的隨機數 matlab

徐靖巧禮曄 在matlab 中產生0 1上均勻分布的隨機數方法如下 方法1 對於問題,如果 y是m n的服從0 1均勻分布的隨機矩陣 y rand m,n 方法2 用統計工具箱,y unifrnd 0,1,m,n 另外,提供常用的函式分布供參考 1 均勻分布u a,b 產生m n階 a,b 均勻分布...

vb中如何讓取隨機數,VB中如何讓取隨機數

int upperbound lowerbound 1 rnd lowerbound upperbound是上限的意思,lowerbound是下限的意思,根據你的要求來指定數字 比如我要乙個0到10的隨機數 randomize 初始化隨機數種子text1 int rnd 10 0 1 0 在vb中,...

用vb編寫程式隨機生成1099互不相同的整數將

好吧,沒有研究過。不過用隨機函式加氣泡排序法應該可以做出來的吧。同求,希望高手們寫注釋啊!private sub command1 click clsdim a 1 to 10 as integerfor i 1 to 10 randomize a i int rnd 90 10 for j 1 t...