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...