1樓：我tm不管
private sub command1_click()dim myvalue
randomize ' 對隨機數生成器做初始化的動作。
myvalue = int((260 * rnd) + 1) ' 生成 1 到 260之間的隨機數值。
text1.text = myvalue
end sub
2樓：匿名使用者
'呼叫private sub command1_click()msgbox creaternd(1, 260)end sub
'函式,生成一個[minint,maxint]的函式,包括最大值與最小值
function creaternd(byval minint as integer, byval maxint as integer) as integer
randomize
creaternd = minint + int(rnd * (maxint - minint + 1))
end function
3樓：拱新桖
public function getrnd(min as integer,max as integer) as integer
if min > max then
getrnd = -1
exit function
end if
randomize
getrnd = int((max - min + 1) * rnd + min)
end function
我一直都用我自己寫的這個函式獲取隨機數，效果不錯，100%不會超出範圍，求採納
4樓：匿名使用者
很簡單，如果是隨機整數就這樣子int(1+（260-1+1）×rnd)
VB計時器，如何用VB程式做計時器？
前提是timer的interval已經設定為1000毫秒按鈕為陣列控制元件0.1或者其他。根據個數來看。private sub c1 click index as integer select case index case 1 timer1.enabled falsecase 0 timer1.e...
vb中如何生成不同的隨機數，VB如何生成隨機數
為了生成某個範圍內的隨機整數，可使用以下公式 int upperbound lowerbound 1 rnd lowerbound 這裡，upperbound 是隨機數範圍的上限，而 lowerbound 則是隨機數範圍的下限。注意若想得到重複的隨機數序列，在使用具有數值引數的randomize 之...
在vb中如何用程式表達listbox中被選中的專案
for i 1 to list1.listitems.count 逐條判斷是否被選中，如果選中，得到該專案if list1.listitems i selected true then stritem list1.listitems i end if next vb程式設計如何將listbox中選中...