1樓:匿名使用者
private sub cmdrnd_click()labrnd.caption = int(rnd * 100000 + 100) mod 100000
end sub
'labrnd 那個標籤
'cmdrnd 那個命令按鈕
2樓:匿名使用者
dim i as integer
const n = 5
dim x(n) as integer '定義個陣列來存放隨機數,當然,可以不要這個陣列也可,
'直接來一句** a = a & int(rnd * 1000) & " "
'甚至不要a變數都可以,用
'label1.caption=label1.caption & int(rnd * 1000) & " "
'當然,一開始要把label1.caption設為空.不然,影響檢視private sub command1_click()a = " "
for i = 1 to n
x(i) = int(rnd * 1000)a = a & x(i) & " "
next i
label1.caption = a
end sub
3樓:
private sub command1_click()randomize
dim x$(4)
for i = 0 to 4
x(i) = int(rnd * 900) + 100next
label1 = join(x, ",")end sub
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...
vb程式設計 急求 隨機產生n個1 100之間的數(包含1和
新增乙個command控制項即可,如下 private sub command1 click dim a 5 z,s,max,min as integer print 生成的數字 for i 1 to 5 陣列裡面有5個不同數值a1,a2,a3,a4,a5,此處i的最大值n對應dim中的a n 可以...
js怎麼產生隨機數,Js怎麼產生隨機數?
js可以用math.random 函式產生隨機數,這裡以產生1到5之間的隨機數為例。1 產生最小到最大之間的函式,包括最小值和最大值,即 min r max 2 產生最小到最大之間的函式,包括最小值但不包括最大值,即 min r max 3 產生最小到最大之間的函式,不包括最小值但包括最大值,即 m...