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 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 "最大值,最小值,平均數分別為:"; 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 "最大值,最小值,平均數分別為:"; 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
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...