-
option explicit
dim a(1 to 10) as integer, b(1 to 10) as integer, c(1 to 10) as integer
private sub command1_click() '重置。
dim i as integer
randomize
for i = 1 to 10
a(i) = int(rnd * 89) +11
b(i) = int(rnd * 89) +11
c(i) = int(rnd * 89) +11
nextend sub
private sub command2_click() '尋求最偉大的。
dim maxa as integer, maxb as integer, maxc as integer
dim i as integer
for i = 1 to 10
if a(i) >maxa then maxa = a(i)
if b(i) >maxa then maxb = b(i)
if c(i) >maxa then maxc = c(i)
nextmsgbox "組 1 的最大值為:" & maxa & vbnewline & "組 2 的最大值為:" & maxb & vbnewline & "第 3 組的最大值為:
maxcend sub
-
學習編碼就是探索。 這種簡單的事情還是要問。。唉,你不能自己解決嗎?
-
1.格式:RND(數值表示式)。
2.功能:在[0,1]之間找到乙個隨機數。
3. 語法:rnd[(number)]。
如果 number 的值是隨機生成的。
小於 0,每次使用數字作為隨機數種子都會產生相同的結果。
等於 0,導致隨機數與最近生成的隨機數相同。
4. 描述。 rnd 函式返回乙個小於 1 但大於或等於 0 的值。
number 的值決定了 rnd 如何生成隨機數。
為最初給定的種子生成相同的序列,因為每次呼叫 rnd 函式都使用序列中的前乙個數字作為下乙個數字的種子。
在呼叫 rnd 之前,使用無引數 randomize 語句初始化隨機數生成器(或為具有引數的特定引數序列生成隨機數),該語句具有基於系統計時器的種子。
若要在某個範圍內生成隨機整數,可以使用以下公式:
int((upperbound - lowerbound + 1) *rnd + lowerbound)
這裡,上限是隨機數範圍的上限,下限是隨機數範圍的下限。
注意 要獲取隨機數的重複序列,請在使用帶有數值引數的 randomize 之前直接使用負引數值呼叫 rnd。 使用具有相同數字值的隨機化不會導致重複的隨機數序列。
-
在 VB 中,rnd() 使用語法:rnd[(number)] 9000*rnd)+1000),因為 rnd 是 [0,1),(9000*rnd)+1000 是 [1000,10000),所以得到 1000 10000 的隨機數。
其中:如果隨機生成的 number 值小於 0,則每次使用 number 作為隨機數種子得到相同的結果。 如果它大於 0,則對前乙個隨機數進行播種以產生下乙個隨機數。
要為指定範圍生成隨機整數,請使用以下公式:int((upperbound - lowerbound + 1) *rnd + lowerbound)。
示例:dim max、min
max=100
min=1 輸出:71
-
rnd 生成純十進位數(大於或等於 0 且小於 1 的實數),您可以將其視為百分比(從 0% 到 ,然後將其乘以範圍數字以生成任意範圍的隨機數(如果需要整數,則四捨五入)。
例如,如果要生成乙個介於 500 和 799 之間的隨機整數,則此範圍數字為 799-500+1=300
再次將其乘以 RND。
300 * rnd
這將導致從 0 到 0 的隨機數。 由於整數是必需的,因此需要四捨五入:
int(300 * rnd)
結果是 0 到 299,加上 500int(300 * RND) +500
結果是 500 到 799。
為了用公式表示,如果要在 a 和 b 之間生成乙個隨機整數(包括 a 和 b,以及 a<=b),公式為:
int((b - a + 1) *rnd) +a
-
rnd 函式。
返回具有隨機值的單個值。
rnd[(number)]
可選的 number 引數是單個或任何有效的數值表示式。
rnd 函式的示例。
此示例使用 rnd 函式隨機生成 1 到 6 的隨機整數。
dim myvalue
myvalue = int((6 * rnd) +1) '生成乙個介於 1 和 6 之間的隨機值。
-
RND 生成介於 0 和 1 之間的隨機數,包括 0 但不包括 1
生成從a到b的隨機整數,公式為。
int(rnd*(b-a+1)+a)
-
rnd 是生成乙個從 0 到 1 的隨機浮點數,沒什麼,一般用他來生成乙個隨機數,比如:int(rnd*10) 是生成乙個 1-10 的隨機數,9000*rnd+1000 是生成乙個從 1000 到 10000 的隨機數,型別不匹配一般是型別不匹配。
-
rnd() 函式產生乙個大於或等於 0 且小於 1 的隨機數。
-
語法 rnd[(number)].
可選的 number 引數是單個或任何有效的數值表示式。
如果 number 的值為 rnd,則返回乙個值。
小於 0,每次使用數字作為隨機數種子都會產生相同的結果。
序列中大於 0 的下乙個隨機數。
等於最近生成的數字的 0。
省略序列中的下乙個隨機數。
說明:rnd 函式返回乙個小於 1 但大於或等於 0 的值。
number 的值決定了 rnd 如何生成隨機數。
為最初給定的種子生成相同的序列,因為每次呼叫 rnd 函式都使用序列中的前乙個數字作為下乙個數字的種子。
在呼叫 rnd 之前,請使用具有基於系統計時器的種子的無引數 randomize 語句初始化隨機數生成器。
若要在某個範圍內生成隨機整數,可以使用以下公式:
int((upperbound - lowerbound + 1) *rnd + lowerbound)
這裡,上限是隨機數範圍的上限,下限是隨機數範圍的下限。
注意 要獲取隨機數的重複序列,請在使用帶有數值引數的 randomize 之前直接使用負引數值呼叫 rnd。 使用具有相同數字值的隨機化不會導致重複的隨機數序列。
rnd 函式的示例。
此示例使用 rnd 函式隨機生成 1 到 6 的隨機整數。
dim myvalue
myvalue = int((6 * rnd) +1) '生成乙個介於 1 和 6 之間的隨機值。
-
若要在某個範圍內生成隨機整數,可以使用以下公式:
int((upperbound - lowerbound + 1) *rnd + lowerbound)
上限是隨機數範圍的上限,而下限是隨機數範圍的下限。
rnd 函式。
返回具有隨機值的單個值。
語法 rnd[(number)].
可選的 number 引數是單個或任何有效的數值表示式。
如果 number 的值為 rnd,則返回乙個值。
小於 0,每次使用數字作為隨機數種子都會產生相同的結果。
序列中大於 0 的下乙個隨機數。
等於最近生成的數字的 0。
省略序列中的下乙個隨機數。
說明:rnd 函式返回乙個小於 1 但大於或等於 0 的值。
number 的值決定了 rnd 如何生成隨機數。
為最初給定的種子生成相同的序列,因為每次呼叫 rnd 函式都使用序列中的前乙個數字作為下乙個數字的種子。
在呼叫 rnd 之前,請使用具有基於系統計時器的種子的無引數 randomize 語句初始化隨機數生成器。
-
rnd 函式返回乙個小於 1 但大於或等於 0 的值。
number 的值決定了 rnd 如何生成隨機數。
為最初給定的種子生成相同的序列,因為每次呼叫 rnd 函式都使用序列中的前乙個數字作為下乙個數字的種子。
在呼叫 rnd 之前,請使用具有基於系統計時器的種子的無引數 randomize 語句初始化隨機數生成器。
若要在某個範圍內生成隨機整數,可以使用以下公式:
int((upperbound - lowerbound + 1) *rnd + lowerbound)
這裡,上限是隨機數範圍的上限,下限是隨機數範圍的下限。
Randomize 使用 number 引數初始化 rnd 函式的隨機數生成器,為其提供新的種子值。 如果省略 number,則系統計時器返回的值將用作新的種子值。
如果不使用 randomize,則首次呼叫 rnd 函式(不帶引數)時,它將使用與種子值相同的數字,然後使用最後生成的值作為種子值。
注意 若要重複隨機數序列,請在使用數值引數呼叫 randomize 之前立即使用否定引數呼叫 rnd。 具有相同數字值的隨機化不能重複先前的隨機數序列。
-
RND 生成介於 0 和 1 之間的隨機數,包括 0 但不包括 1
生成從a到b的隨機整數,公式為。
int(rnd*(b-a+1)+a)
-
在 VB 中,rnd() 使用語法:rnd[(number)] 9000*rnd)+1000),因為 rnd 是 [0,1),(9000*rnd)+1000 是 [1000,10000),所以得到 1000 10000 的隨機數。
其中:如果隨機生成的 number 值小於 0,則每次使用 number 作為隨機數種子得到相同的結果。 如果它大於 0,則對前乙個隨機數進行播種以產生下乙個隨機數。
要為指定範圍生成隨機整數,請使用以下公式:int((upperbound - lowerbound + 1) *rnd + lowerbound)。
示例:dim max、min
max=100
min = 輸出: 71 <>