1樓：匿名使用者
看一下rnd函式的用法。
rnd 函式。
返回乙個包含隨機數值的 single。
語法rnd[(number)]
可選的 number 引數是 single 或任何有效的數值表示式。
返回值如果 number 的值是 rnd 生成小於 0 每次都使用 number 作為隨機數種子得到的相同結果。
大於 0 序列中的下乙個隨機數。
等於 0 最近生成的數。
省略 序列中的下乙個隨機數。
可以這樣寫。
private sub command1_click()randomize
for i = 1 to 6
print rnd,next i
end sub
如果你是想要乙個6位數，可以寫。
private sub command1_click()randomize
print int(900000 * rnd + 100000)end sub
2樓：影墨者
你是要實現什麼功能？？
rnd(n)，隨機產生乙個小於1且大於或等於0的雙精度實型數。
當n>0或省略n時，每次產生的隨機數不同，n=0時產生的和上次相同，n<0是每次產生的隨機數都相同。
不用每個rnd前面都加。
只要在這個過程用到rnd前面加一次就行了。
private sub command1_click()randomize
print round(rnd(),2), rnd(-1), rnd(-2), rnd(0), rnd(-1), rnd(0)
end sub
如果沒有使用 randomize，則無引數的rnd 函式使用第一次呼叫 rnd 函式的種子值。
vb程式設計問題
private sub command1 click dim i,j as integer,s as double,n as double for i 1 to 100 n 1 for j 1 to i n n j next j s s n next i print 1 2 100 send sub...
vb程式設計，vb程式設計
介面設計如下 試編寫 如下 private sub updatestat if list1.listcount 1 thencommand1.enabled falsecommand2.enabled falseelse command1.enabled truecommand2.enabled t...
VB程式設計，vb程式設計是什麼？
完成的程式 dim h as integer,m as integer,s as integer private sub form load label1.fontsize 48 h hour time m minute time s second time timer1.interval 1000...