怎麼用vb設計隨機產生100到200之間的數求出

時間 2021-08-30 10:29:00

1樓:刺友互

1、首先需要啟動vb6.0,新建一個標準exe工程。

2、開啟vb6.0之後,在窗體上繪製一個命令按鈕。

3、接下來需要雙擊命令按鈕進入**視窗。

4、接下來開始編輯按鈕的單擊事件。

5、最後就可以按f5執行測試。求出最大值與最小值。

2樓:指尖遊戲

dim a(9) as integer '定義一個整數變數陣列,大小為10

for i = 0 to 9

randomize '

a(i) = int(rnd * 100 + 100) '隨機生成10個數字

next

dim b as integer '定義一個臨時變數for i = 0 to 8

for j = i + 1 to 9

if a(j) < a(i) then '將9個數按照大小排序

b = a(j)

a(j) = a(i)

a(i) = b

end if

next

next

最大值為a(9),最小值為a(0)

3樓:瘋狂小鳥

如圖所示,望採納。。。。

4樓:

private sub form_load()dim n, a, max as integern = 1

max = int(rnd * 101 + 100)print max;

don = n + 1

a = int(rnd * 101 + 100)print a;

if a > max then max = aloop while n < 10

print

print max

end sub

應當可以

5樓:匿名使用者

如圖所示,望~~。。。。

怎樣用vb做隨機產生10個1-100以內的整型數,求出其的最大值,最小值,平均值

6樓:趙扶風

這樣才對 初始化應加在for 迴圈裡 s要變為雙精度(這樣平均數才有小數點後幾位)

樓主試我這個:

private sub command1_click()dim i%, j%, max%, min%,s%for i = 1 to 10

randomize

j = int(rnd * 100 + 1)if i = 1 then min = jif j > max then max = jif j < min then min = js = s + j

print j;

next

print

print "最大值,最小值,平均數分別為:"; max; min; cdbl(s) / 10

end sub

7樓:vb妮可

private sub command1_click()dim i%, j%, max%, min%, s%for i = 1 to 10

j = int(rnd * 100 + 1)if i = 1 then min = jif j > max then max = jif j < min then min = js = s + j

print j;

next

print

print "最大值,最小值,平均數分別為:"; max; min; s / 10

end sub

8樓:匿名使用者

這10個數怎麼每次都是一樣的?

9樓:天元必勝

在窗體讀取事件中加上randomize,然後再用vb妮可的**,出現的就是真正的隨機數而不是偽隨機數了

randomize的作用是初始化隨機數生成器也就是在vb妮可的**里加上下面的內容

private sub form_load()randomize

end sub

vb:編寫一程式 產生10個100~200間的隨機整數,找出其中的最大數和最小數。

10樓:一千館原創短**

private sub command1_click()dim a(1 to 10) as integerdim i, min, max as integerfor i = 1 to 10

a(i) = int((200 - 100 + 1) * rnd + 100)

next i

max = a(1)

min = a(1)

for i = 2 to 10

if max < a(i) then max = a(i)if min > a(i) then min = a(i)next i

print "最大數是" & max

print "最小數是" & min

end sub

下次再折騰人拒絕回答

private sub command1_click()dim a(1 to 10) as integerdim i, j, t as integerfor i = 1 to 10

a(i) = int((100 - 0 + 1) * rnd + 0)

next i

for i = 1 to 10

print a(i);

next i

print

for i = 1 to 9

for j = 1 to 9

if (a(j) > a(j + 1)) thent = a(j)

a(j) = a(j + 1)

a(j + 1) = t

end if

next j

next i

for i = 1 to 10

print a(i);

next i

end sub

利用vb製作一個「隨機生成十個數字(1-100之間的整數)求極值(最大最小值)和平均值」

設計程式vb隨機產生10到100之間(包括10和

private sub command1 click on error resume next dim a 5 as integer randomize int upperbound lowerbound 1 rnd lowerbound for i 0 to 3 b c 0 for j 1 to ...

利用vb隨機函式產生10到99的隨機整數存入一維

如果是病毒感染導致的發熱,是容易反 熱的,一般病程在一週左右。還是建議檢查血常規,瞭解感染情況,明確診斷,再對症用藥。注意多給孩子喝水。其次,還有一種情況,就是如果有血象的升高,抗生素不能控制感染,也是有可能導致發熱的。所以還是建議先檢查血常規,瞭解感染的情況,對症用藥。你好發燒是很多疾病都會有的症...

vb6 0中怎麼產生1到9的隨機數

option explicit private sub command1 click const bits 9 選出 9 組數 const mfor bits 1const jz 9 每個數是1位 dim a bits as long dim tabs as string dim i as long...