1樓：匿名使用者
private sub command1_click()
dim tt(100), s(10), temp1, temp2, te***, i
randomize '隨機,不使用時,rnd()函式是有規律的
for i = 1 to 100
tt(i) = i '用tt陣列存放100個數,不直接用s陣列是為了避免出現重複的數字
next i
for i = 1 to 10
1 s(i) = tt(int(rnd() * 99 + 10)) '迴圈10次得到陣列s,存放10個隨機數
if s(i) <> "" then '如果得到的s陣列值不為空
te*** = te*** + s(i) '把10個數相加
tt(s(i)) = "" '把tt陣列已取出的值賦予空值
else
goto 1 '如果取出的值為空,則跳轉到1,重新取值
end if
next i
te*** = te*** / 10 '用10個數相加的和除以10,求出平均數
'彈出對話方塊,顯示10個隨機數
msgbox s(1) & chr(13) & s(2) & chr(13) & s(3) & chr(13) & s(4) _
& chr(13) & s(5) & chr(13) & s(6) & chr(13) _
& s(7) & chr(13) & s(8) & chr(13) & s(9) & chr(13) & s(10)
temp2 = 100 'temp2用於存放最小值,需設定乙個最大值,否則temp2無法得到資料
for i = 1 to 10
if s(i) >= temp1 then temp1 = s(i) '如果當前值大於temp1,則temp1取當前值
if s(i) <= temp2 then temp2 = s(i) '如果當前值小於temp2,則temp2取當前值
next i
for i = 1 to 10 '求總和
sum = sum + s(i)
next i
'彈出對話方塊,顯示最大值,最小值,平均值,總和
msgbox "最大值:" & temp1 & chr(13) & "最小值:" & temp2 & chr(13) & "平均值:
" & te*** & chr(13) & "總和:" & sum
end sub
2樓：匿名使用者
private sub command1_click()dim a as integer
randomize timer
for i = 1 to 10
a = int(rnd * 99) + 10print a;
s = s + a
next
print vbcrlf & "總和=" & sprint "平均數=" & s / 10end sub
需要最大最小值就這樣
private sub command1_click()dim a as integer
dim min as integer, maxmin = 100
randomize timer
for i = 1 to 10
a = int(rnd * 90) + 10print a;
if a > max then max = aif a < min then min = as = s + a
next
print vbcrlf & "總和=" & sprint "平均數=" & s / 10print "最大值：" & max
print "最小值：" & min
end sub
3樓：匿名使用者
private sub command1_click()dim a(10)
for i=1 to 10
a(i)=int(rnd*90)+10
print a(i);
s=s+a(i)
next
print "總和=" & s
print "平均數=" & s/10
end sub
4樓：百川
private sub command1_click()text1.text = " "
dim i as integer
dim sum as single
dim v as single
sum = 0
for i = 1 to 10 step 1sum = int(rnd * 10)
sum = sum + sum
next i
text1.text = str(sum)v = sum / 10
text2.text = str(v)
end sub
有幾道vb題想請教 1.隨機生成10個1～100之間的整數，求出它們的總和及平均數。
vb題，用隨機函式生成包含10個兩位整數的一維陣列，求這10個數的最大值，最小值以及平均值。
5樓：匿名使用者
執行結果：
生成的陣列為
73 58 62 36 37 79 11 78 83 73排序後的陣列為
83 79 78 73 73 62 58 37 36 11該陣列元素各個元素的和是 590 最大元素是 83 最小元素是 11
vb題隨機生成10個兩位數整數,並統計出最大者,最小者及平均值顯示出來
6樓：匿名使用者
private sub command1_click()randomize
dim sum as integer, a(10) as integer, mas as integer, min as integer
min = 100
for i = 1 to 10
a(i) = int(rnd * (90) + 10)sum = sum + a(i)
if max < a(i) then max = a(i)if min > a(i) then min = a(i)next i
print "平均值："; sum / 10; "最大值："; max; "最小值："; min
end sub
vb程式設計**:利用隨機函式產生並顯示10個兩位正整數，計算其平均值（保留三位小數）找出其中大於平均
幫我解一下這道vb程式設計題：「隨機產生10個兩位整數，找出其中的最大值、最小值和平均值」幫幫忙啦！
7樓：time張士強
望採納private sub command1_click()randomize
max = 0
min = 100
print "10個隨機整數為："
for i = 1 to 10
x = int(rnd * 90) + 10print x;
if x > max then max = xif x < min then min = xnext i
print "最大值："; max
print "最小值："; min
end sub
8樓：匿名使用者
private sub command1_click()randomize
max = 0
min = 100
print "10個隨機整數為："
for i = 1 to 10
x = int(rnd * 90) + 10print x;
if x > max then max = xif x < min then min = xnext i
print "最大值："; max
print "最小值："; min
end sub
vb生成10個兩位隨機數，求出其中最大值、最小值、平均值
9樓：寒信
dim a(9) as integer,i as integer ,max as integer,min as integer , s as integer
for i=0 to 9
randomize
a(i)=rnd* 1)*90+10
if i=0 then or a(i)>max then max=a(i)
if i=0 or a(i) print a(i); next i print print "最大數為"& max & "，最小數為" & min & "，平均值為" & (s/10) 望採納private sub command1 click randomize max 0 min 100 print 10個隨機整數為 for i 1 to 10 x int rnd 90 10print x if x max then max xif x min then min xnext i... 什麼時候要，我可以寫 如何用vb設計乙個程式，隨機產生二十個三位整數 sub s randomize 初始化隨機變數 for i 1 to 20 做20次迴圈debug.print int 100 rnd 900 輸出隨機數到立即視窗 next end sub 樓上連陣列都沒有定義，也沒有把產生的數... 如三秋 根據目的判斷，需要調取到的函式有randi mod mean find，分別用於產生隨機整數 判斷是否為偶數 計算平均數 尋找滿足條件元素的下標。如下 clc clear n randi 10,99 1,20 產生隨機數，在10到99之間的均勻隨機數 a mean n 計算平均數 n fin...幫我解一下這道VB程式設計題 「隨機產生兩位整數，找出其中的最大值 最小值和平均值」幫幫忙啦
vb程式設計題 隨機產生兩個2位整數，使用choose函式隨機產生操作符給使用者出一道算
怎麼編寫程式MATLAB,產生兩位隨機整數,輸出其中小