1樓：偶淑敏洪綾
vb裡面有多個隨機函式？
語法rnd[(number)]
可選的number
引數是single
或任何有效的數值表示式。
返回值如果
number
的值是rnd
生成小於
0每次都使用
number
作為隨機數種子得到的相同結果。大於0
序列中的下乙個隨機數。等於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的隨機整數。
dimmyvalue
myvalue
=int((6
*rnd)+1)
'生成1到
6之間的隨機數值
2樓：
private sub form_click()dim a(20) as integer
randomize
for i = 1 to 20
a(i) = int(rnd * 100) + 1print a(i);
if i mod 5 = 0 then
end if
next i
end sub
vb程式設計題目不會,請教我
3樓：
6:通用過程？通用函式吧？？
獲得值以後，素數就是：大於等於2的數，只能被1和他本身整除的數！
n 就是輸入的數
for i=2 to n-1
if n mod i=0 then
exit for
next i
判斷一下，如果能被整除的話，就不是素數！如果不能的話，肯定是素數了！呵呵~~~~
8:dim myvalue
for i=1 to 20
myvalue = int((100 * rnd) + 1)randsize
next
生成1-100之間的隨機數！
10:這個題，陣列賦值你會不會？？上面是隨機數你也會了吧？？
然後再利用迴圈來判斷陣列的最大值！
dim s=0;
for i=1 to 5
for j=1 to 5
if s s=num(i,j) end if next next 找到最後就是最大的s值，再輸出就ok了！ 4樓：岑智靖懷慕 搞個隨機函式，或乙個演算法（網上找）， 5樓：卿允佴海兒 不懂彩票,但是應該是隨機數吧~~ int(rnd+10) 應該懂了 vb程式設計題：利用隨機函式生成20個1~100之間的正整數。 6樓：匿名使用者 private sub command1_click()for i = 1 to 20 print rndnum(1, 100) next i end sub private function rndnum(min as integer, max as integer) as integer randomize rndnum = int(rnd * (max - min + 1) + min) end function 利用隨機函式rnd()生成10個兩位的正整數。點選「生成」按鈕，則生成的10個數分2行5列顯示在窗體上。點選「 7樓：匿名使用者 所謂降序數是指百位數大於十位數且十位數大於個位數的數單擊 8樓：匿名使用者 #include"stdio.h" #include"time.h" main() for(m=0,k=0;m<10;m++)printf("\nzui da %d",i); getch();} 計算機vb題 在窗體的click事件中編寫程式：利用隨機函式rnd生成n個[10，100]之間的整數， 9樓：聽不清啊 所要的程式如下： private sub form_click()n = val(inputbox("n="))print n; "個隨機數:" for i = 1 to n x = 10 + int(90 * rnd)print x; if i mod 10 = 0 then printif x mod 2 = 0 then ou = ou + 1 else ji = ji + 1 next i print print "其中偶數有"; ou; "個，奇數有"; ji; "個" end sub vb程式設計，用隨機函式產生50個10~100之間的互不相同的整數存於一陣列中，並以公升序每行10個數顯示在窗體上 10樓： private sub command1_click()dim x(90) as integer '高效**，產生無重複隨機數 for i = 10 to 100 x(i - 10) = i next randomize for i = 1 to 50 j = int(rnd * (91 - i)) + it = x(i) x(i) = x(j) x(j) = t next '排序for i = 1 to 50 for j = 1 to i if x(i) < x(j) then t = x(i): x(i) = x(j): x(j) = t next next '顯示for i = 1 to 50 print x(i); if i mod 10 = 0 then printnext end sub 11樓： private sub command1_click()dim numa(50) as integer, tmp1 as long, tmp2 as long for tmp1 = 1 to 50 numa(tmp1) = rnd() * 90 + 10next numa(0) = numa(1) for tmp1 = 1 to 49 for tmp2 = tmp1 to 50if numa(tmp2) < numa(tmp1) thennuma(0) = numa(tmp2) numa(tmp2) = numa(tmp1)numa(tmp1) = numa(0) end if next if tmp1 mod 10 = 0 thenprint numa(tmp1) else print numa(tmp1); end if next print numa(50) end sub ）利用隨機函式rnd()生成25個50～200之間的正整數,賦給乙個5行5列的陣列的每個元素,並找出最大元素的位置, 12樓： private sub form_load()dim i, j, m, k, l as integerdim a(4, 4) as integerfor i = 0 to 4 for j = 0 to 4 randomize a(i, j) = int(rnd * 151) + 50print a(i, j), if j = 4 then print if m < a(i, j) then m = a(i, j): k = i: l = j next j next i print "最大數=" & m print "位於第" & k + 1 & "行" & l + 1 & "列" end sub 13樓：烏雅軼 就像正常的賦值一樣啊，用迴圈，在迴圈裡隨機產生數字，付給陣列元素。。。 n 10 int 90 rnd st st n forj 2 to n n1 n1 1 exit for text1.text st text2.text n n1 private sub mand1 click dim i as integer,j as integer,n as integer,... 用sumproduct函式 來 sumproduct a1 a100 行代號 a1 a100 列代自號 這個公式得到的是符bai合這兩du個條件的人數。zhi 若統計符合這兩件dao 條件的人，對應的某個數值列的合計，則 sumproduct a1 a100 行代號 a1 a100 行代號 b1 b... 1 首先打bai 開excel，演示所用版本為du2016，其他版本亦可。zhi2 先在 daod5單元內格輸入提示 容文字，在e4單元格輸入n列的列頭，在f5單元格輸入結果列的列頭。3 在e5單元格輸入n的值，可以任意，這裡演示使用了數字1，然後再f5單元格輸入函式 power 10，e5 代表以...vb編寫程式利用隨機函式rnd生成
在Excel中,如何利用函式統計同時滿足兩個或兩個以上條件的單元格的個數
在ecel中如何利用函式求10的n次方