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...