VB隨機數問題

時間 2022-07-25 03:10:08

1樓:匿名使用者

做2個陣列,

rndmon(11)放12個月份,

rndday(30)放31天,

窗體上放個按鈕,把我**複製過去執行下:

*************************=private sub command1_click()'定義dim rndmon(11) as integerdim rndday(30) as integerdim i as integer

for i = 0 to 30

rndday(i) = i + 1

if i <= 11 then

rndmon(i) = i + 1

end if

next i

'選取月份和天

dim imon as integer

dim iday as integer

'隨機選取月份

randomize

i = rnd * 11

imon = rndmon(i)

'隨機選取天

if imon <> 1 and imon <> 3 and imon <> 5 and imon <> 7 and imon <> 8 and imon <> 10 and imon <> 12 then

i = rnd * 29

iday = rndday(i)

elseif imon = 2 then

i = rnd * 27

iday = rndday(i)

else

i = rnd * 30

iday = rndday(i)

end if

'列印結果到窗體

print imon, iday

end sub

2樓:匿名使用者

沒有必要這麼麻煩吧?

你直接隨機生成乙個整數,再轉換成日期,不就得了嗎舉例:dim i as date

randomize

i=clng(rnd*1000000)

print format(month(i), "00"); "月" & format(day(i), "00") & "日"

3樓:

月份如下

天數同樣

VB 產生隨機數用什麼語句

補充 private sub command1 click dim i j x randomize for i 1 to 5 for j 1 to 10 x int 10 rnd 1 print x if x 8 then exit for nextprint nextend sub int upp...

c 中生成隨機數時的種子問題,關於C 的隨機數的種子的設定問題

上上西 先糾正一下錯誤,是srand unsigned int time 0 srand的形參是unsigned int型別的 這句話只要寫一次,一般情況下只能寫一次 隨機數是隨機的數,但計算機不可能產生隨機數,計算機根據你的輸入,再跟一個演算法就產生一個特定的序列.只要你給計算機一個相同的數,計算...

js怎麼產生隨機數,Js怎麼產生隨機數?

js可以用math.random 函式產生隨機數,這裡以產生1到5之間的隨機數為例。1 產生最小到最大之間的函式,包括最小值和最大值,即 min r max 2 產生最小到最大之間的函式,包括最小值但不包括最大值,即 min r max 3 產生最小到最大之間的函式,不包括最小值但包括最大值,即 m...