VB 100 和 1000 的 20 個偶數在形成時如何隨機出現

以上是顯而易見的，如果 mod 2=0 則 x=x+1，然後列印 a;如果乙個mod 2不等於0就直接列印乙個，這不是奇數的輸出嗎？，顯然是錯誤的。

工具材料：以 Microsoft Visual Studio 2010 為例。

1.首先在桌面上，單擊“Microsoft Visual Studio 2010”圖示。

2. 然後在此介面中，輸入 20 個隨機生成的 50-108 整數（包括 50 和 108）以分配給一維陣列 **“dim arr（1 to 20） as integer dim max as integer for i = 1 to 20 arr（i） = int（rnd（） 58 + 50）”。

4. 最後，在此介面中，輸入最大值 **for i = 1 到 20 if max < arr（i） then max = arr（i） end if”。

private sub form_load()= ""

dim arr(1 to 20) as integerdim max as integer

for i = 1 to 20

arr(i) = int(rnd() 58 + 50)= arr(i) &"_" &

nextfor i = 1 to 20 '這是乙個簡單的過程，用於查詢最大值，如果 max < arr（i） 那麼

max = arr(i)

end if

next "最大值為：" & max & " " & vbcrlf & "原始資料為：" & vbcrlf & "排序後為："

for i = 2 to 20

temp = arr(i)

j = i - 1

do until temp < arr(j)arr(j + 1) = arr(j)

j = j - 1

if j = 0 then

exit do

end if

looparr(j + 1) = temp

next i

for i = 1 to 20

arr(i) &" - "

next i

end sub

1. 在 vb 中產生區間 [a，b] 的隨機數公式為：int（（b- a+ 1） *rnd + a）。

2.根據上述公式，公式法不可能生成（a，b]（半開區間）範圍內的隨機數。

3. rnd 函式返回乙個小於 1 但大於或等於 0 的值。

4. int 是乙個整數函式。

randomize

int((a - b + 1) *rnd + b)

int 表示隨機生成的數字。

'這是乙個適合您的功能，它非常易於使用並自行將其新增到模組中。

public enum judge

不等於 = 0

等於 = 1

小於 = 2

大於 = 3

小於或等於 = 4

大於或等於 = 5

end enum

public function random(optional x = 2 ^ 31, optional judge as judge = 2, optional y = 0, optional z as long = 1)

on error resume next

re:select case z '僅保留整數 （0 1），保留 1。

case 0

doevents

randomize '初始化。

random = rnd * val(x) '隨機數是必需的。

case 1

doevents

randomize '初始化。

random = fix(rnd * val(x)) '隨機數是必需的。

end select

select case judge

大小寫不等於。

if random <>val(y) then goto re '不相等。

大小寫等於。

if random = val(y) then goto re '量。

大小寫小於。

if random < val(y) then goto re '小於。

大小寫大於。

if random > val(y) then goto re '大於。

大小寫小於或等於。

if random <= val(y) then goto re '小於或等於。

大小寫大於或等於。

if random >= val(y) then goto re '大於或等於。

end select

end function

rnd 函式。

返回具有隨機值的單個值。

語法 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 之間的隨機值。