1樓：匿名使用者
rem 執行後，單擊窗體即可產生
private sub form_click()dim n as integer
randomize '生成隨機種子
don = int(rnd * (878 - 776 + 1)) + 776 'int(rnd*(m-n+1))+n是產生[n,m]之間隨機整數的通用公式
loop until n mod 4 = 0 '當n除以4的餘數為0時（也就是n為4的倍數），退出迴圈
print n
end sub
2樓：匿名使用者
1個按鈕,複製過去直接執行
private sub command1_click(index as integer)
dim i
randomize
doi = int(rnd * (878 - 776)) + 776loop while i mod 4 <> 0print i
end sub
3樓：匿名使用者
776-878之間4的倍數有25個，所以只用產生從0-24的隨機數，在乘4加776就ok了。
randomize
x = int(rnd * 25) * 4 + 776msgbox x
4樓：匿名使用者
dim instr as integer
dim flag as integer
flag=1
randomize
instr=int(rnd()*1000)while(flag==1)
begin
if (instr%4 == 0) and (instr>=776 and instr<=878) then
flag=0
else
instr=int(rnd()*1000)end if
end核心**應該是這樣了，instr就是那個區間的資料了
5樓：給你附近的人
private sub command1_click()randomize
max = 1000 '最大值
mix = 0 '最小值
b = 100 '倍數
s = max / b '幾個這樣的數
randomize
i = int((s - mix + 1) * rnd + mix)t = i * b
print t
end sub
vb中如何利用函式生成5~10之間的以0.5為倍數的隨機數？
6樓：匿名使用者
生成10-20的隨機數整數 除以2搞定
7樓：匿名使用者
正確如下,函式
function rndx()
return (int(rnd()*11)+10)*0.5end function
'說明'rnd()*11 產生0-10的數字'int(rnd()*11)+10 為10-20的整數'*0.5當然是你要的結果
'用法'dim x
'x=rndx
8樓：匿名使用者
int(rnd*5)+5+int(rnd*2)*0.5就是再讓隨機產生0或0.5
9樓：匿名使用者
textbox1.text = int(0.5 * (5 * rnd() + 10))
這個是隨機5~10的整數。
你看看能不能幫到你。
自己再多試幾次
10樓：
式子是(fix(rnd * 11) + 10) / 2
你自己加到程式裡面就可以了
11樓：匿名使用者
private sub form_click()randomize
a = int(rnd * 5 + 0.5) + 5print a
end sub
這樣才對~~ 如果沒有加0.5 是不會有10出現的 不信試試~
12樓：匿名使用者
很遺憾,上面的人都搞錯了,注意 mosquitokobe 的方法會使5和10出現的機率減小
randomize
5+int（rnd（time）*11)/2
13樓：我就屬蛇
i=5+int（rnd（time）*10）/2
vb中隨機函式的用法
14樓：字昆郯凌柏
int((rnd*6)+1)，隨即產生1到6之間的整數rnd()
函式隨即產生一個大於等於0但小於1的
單精度浮點數
，例如：你要隨即產生10到96之間的整數
int(rnd*87
+10)
假設產生a到b之間的整數
則這個範圍應該是b-a,由於rnd隨機產生的數小於1且大於等於0，則應該將rnd()乘以（b-a+1）,則int(rnd*(b-a+1))就產生0到b-a之間的整數
再加上a以後就是a到b之間的整數，即int(rnd*(b-a+1)+a)
15樓：vb妮可
這是msdn中的幫助.你看下吧..就知道100和1是怎麼來的了.
為了生成某個範圍內的隨機整數，可使用以下公式：
int((upperbound - lowerbound + 1) * rnd + lowerbound)
這裡，upperbound 是隨機數範圍的上限，而 lowerbound 則是隨機數範圍的下限。
16樓：伊人尤在
rnd()本身返回0~1(小於1)間的隨機數,100*rnd就成了100以內的數字
int(100*rnd),取整後,最大隻有99,最小是0所以int(100*rnd)+1就在1~100之間了.
17樓：
不加一是產生0-99間的隨機整數,加一之後就變成1-100了
18樓：匿名使用者
1）rnd 函式，返回一個包含隨機數值的 single。
說明：rnd 函式返回小於 1 但大於或等於 0 的值。
2）int 函式，返回引數的整數部分。
語法：int(number)
int 會刪除 number 的小數部份而返回剩下的整數。
3）rnd 函式示例：
本示例使用 rnd 函式隨機生成一個 1 到 6 的隨機整數。
dim myvalue
myvalue = int((6 * rnd) + 1) ' 生成 1 到 6 之間的隨機數值。
19樓：匿名使用者
因為rnd是》0且<1的小數，所以 100*rnd 是》0且<100的浮點數，也就是0.00....001到99.999...999的浮點數
因此int(100*rnd)的返回值是0,1,2....97,98,99的整數
那麼+1的作用就是增加偏移量
其實，把+1放入括號內是更合理的思路int(100*rnd+1)
vb中隨機函式的公式是什麼
20樓：l一
visual basic中隨機函式
格式：rnd(《數值表示式》)
功能：求[0,1)之間的一個隨機數
語法： rnd[(number)]
如果 number 的值是 randomize 生成
小於 0 ，每次都使用 number 作為隨機數種子得到的相同結果。
等於 0 ，產生與最近生成的隨機數相同的隨機數。
說明 rnd 函式返回小於 1 但大於或等於 0 的值。
number 的值決定了 rnd 生成隨機數的方式。
對最初給定的種子都會生成相同的數列，因為每一次呼叫 rnd 函式都用數列中的前一個數作為下一個數的種子。
在呼叫 rnd 之前，先使用無引數的 randomize語句初始化隨機數生成器（若帶引數，則產生由引數對應的一個特定序列的隨機數），該生成器具有根據系統計時器得到的種子。
為了生成某個範圍內的隨機整數，可使用以下公式：
int((upperbound - lowerbound + 1) * rnd + lowerbound)
這裡，upperbound 是隨機數範圍的上限，而 lowerbound 則是隨機數範圍的下限。
注意 若想得到重複的隨機數序列，在使用具有數值引數的 randomize 之前直接呼叫具有負引數值的 rnd。使用具有同樣 number 值的 randomize 是不會得到重複的隨機數序列的。
編輯本段rnd 函式示例
本示例使用 rnd 函式隨機生成一個 1 到 6 的隨機整數。
dim myvalue
myvalue = int((6 * rnd) + 1) ' 生成 1 到 6 之間的隨機數值 ,這裡的int 是把後面產生的小數轉換成整數！
由於rnd是[0，1），（6*rnd）+1為[0，7）。int是求不大於number 的最大整數，所以得出1~6的隨機數
隨機數字：
(1)生成隨機數比較簡單，=rand()即可生成0-rand_max之間的隨機數；(#define rand_max 0x7fffu)
(2)如果要是整數，就用=int(rand()%10)，表示0至9的整數，以此類推；
(3)如果要生成a與b之間的隨機實數，就用=rand()%(b-a+1)+a，就能產生固定位數的整數了，以此類推；
注意：如果要使用函式rand()生成一隨機數，並且使之不隨單元格計算而改變，可以在編輯欄中輸入「=rand()」，保持編輯狀態，然後按f9，將公式永久性地改為隨機數。不過，這樣只能一個一個的永久性更改，如果數字比較多，也可以全部選擇之後，另外選擇一個合適的位置貼上，貼上的方法是點選右鍵，選擇「選擇性貼上」，然後選擇「數值」，即可將之前複製的隨機數公式產生的數值（而不是公式）複製下來。
21樓：
rnd*(b-a+1)+a
產生[a,b]閉區間的隨機數。
在vb中，如何編寫程式通過隨機函式產生10~99之間的隨機整數？
22樓：匿名使用者
vb 產生隨機數的公式（上界-下界+1）*rnd+下界你的題目就應該是（99-10+1)*rnd +10一般用rnd的時候還要在前面加一條 randomize 初始化隨機種 子
23樓：匿名使用者
randomize time '初始化
print int(rnd * 90) + 10 '產生隨機數，並輸出
24樓：匿名使用者
private sub form_click()randomize
for i = 10 to 99
n = int(rnd * i + 10)next
print nend sub
25樓：匿名使用者
dim tmp as byte randomize timer ' 隨機種子 tmp=int(rnd * 90+10) msgbox tmp ' 輸出隨機數
vb程式設計題。 利用隨機函式生成一個4乘4矩陣，範圍是40-80內整數、求它的最小值及對應的下標 急
26樓：匿名使用者
sub number()
dim a(3, 3) as integerrandomize
min = 80
for i = 0 to 3
for j = 0 to 3
a(i, j) = int(40 * rnd) + 40if (a(i, j) < min) thenmin = a(i, j)
mini = i
minj = j
end if
next
next
'debug.print mini & " " & minj & " " & min
end sub
vb中如何利用函式生成510之間的以05為倍數的隨機
生成10 20的隨機數整數 除以2搞定 正確如下,函式 function rndx return int rnd 11 10 0.5end function 說明 rnd 11 產生0 10的數字 int rnd 11 10 為10 20的整數 0.5當然是你要的結果 用法 dim x x rndx...
vb中ListIndex屬性如何利用
返回或設定控制元件中當前選擇 專案的索引號，如 list1.listindex 5 設定要選擇list1控制元件的第5條記錄 v list1.listindex 返回當前選擇list1的第幾條記錄 listindex 屬性示例 msdn 這個例子在 listbox 控制元件中顯示三個演員的名字，在 ...
vb中log函式什麼意思,vb中LOG函式什麼意思
vb不支援ln函式，換句話說，vb的log函式就是數學中的ln函式，而常用對數lg只能使用換底公式lg x log x log 10 條件很簡單x 0。log x 表示以e為底的自然對數lnx.java 函式中的函式是什麼意思 函式就是一個動作一個行為哈，比如殺人防火這個動作，那就需要寫兩個函式，一...