vb隨機數排序

2022-01-01 06:30:27 字數 2036 閱讀 4995

1樓:

在窗體中建立三個picture控制元件,並拉伸到適當大小,**框中新增如下**,執行點選窗體即可。

private sub form_click()

dim a(1 to 60) as integer, o(1 to 60) as integer, ji(1 to 60) as integer

randomize

num1 = 0

num2 = 0

for i = 1 to 60

a(i) = int(rnd * 101 + 100)

picture1.print a(i);

if a(i) mod 2 = 0 then

num1 = num1 + 1

o(num1) = a(i)

else

num2 = num2 + 1

ji(num2) = a(i)

end if

if i mod 10 = 0 then picture1.print

next

print num1, num2

for i = 1 to num1 - 1

for j = i + 1 to num1

if o(i) > o(j) then

temp = o(i)

o(i) = o(j)

o(j) = temp

end if

next

next

for i = 1 to num1

picture2.print o(i);

if i mod 10 = 0 then picture2.print

next

for i = 1 to num2 - 1

for j = i + 1 to num2

if ji(i) < ji(j) then

temp = ji(i)

ji(i) = ji(j)

ji(j) = temp

end if

next

picture3.print ji(i);

if i mod 10 = 0 then picture3.print

next

picture3.print ji(num2)

end sub

2樓:路偉房嘉美

rnd函式

返回一個包含隨機數值的

single。

語法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

是不會得到重複的隨機數序列的。

VB隨機數問題,VB隨機數的問題。

private sub command1 click randomize text3.text int rnd val text2.text val text1.text 0.5 val text1.text 隨機 上線 下線 下線 如果不用 0.5 就永遠不會產生上限值,因為 rnd永遠 0 1 ...

vb問題 關於隨機數,一個vb問題 關於隨機數

放置一個label一個command然後把form的boarderstyle設定成3後貼上下面的 dim invalue dim arr as integer private sub command1 click 產生隨機數字 randomize dim rndnum as integerrndnu...

vb程式設計如何產生1到1000的隨機數

不知道你要如何顯示,以下是在窗體上顯示的 private sub form click dim i as integer dim x as integer dim s as string for i 1 to 3 randomize x int rnd 1000 1 1 1 s s x next i...