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程式設計隨機產生不重複的英文字母
給你個思路 字母的ascii值 大寫 65 90 小寫 97 122 隨便你隨機產生 15個之間的不同數字 然後轉換成 字母 即可 一個判斷是否存在的函式，一個迴圈生成的函式就行了 隨機生成字母的方法為 c chr int rnd 26 65 給你一個完整程式吧 dim c 1 to 15 as s...
怎樣用vb做隨機產生1 100以內的整型數，求出其的最
這樣才對 初始化應加在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 j...
求用vb實現1到100的和加上1到50的平方和加上1到
private sub command1 click dim s as double s 0 for i 1 to 100 s s i next for i 1 to 50 s s i 2 next for i 1 to 10 s s 1 i next msgbox s end sub 現在視窗畫一...