1樓：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
2樓：匿名使用者
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個兩位整數，找出其中最大，最小值
3樓：聽不清啊
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個兩位整數的一維陣列，求這10個數的最大值，最小值以及平均值。
4樓：匿名使用者
執行結果：
生成的陣列為
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個0~100的整數，求出最大值、最小值和平均值。
vb程式設計：隨機產生10個兩位隨機奇數，求其中的最大值、最小值和平均值 10
5樓：希莉婭
private sub form_load()dim a(10) as single
dim i, j as single
for i = 0 to 9 '產生10個隨機數j = 0
do until j < 100 and j mod 2 = 1randomize
j = int(rnd * 100) + 10loop
a(i) = j
next i
label1.caption = "這10個數為："
for i = 0 to 9
label1.caption = label1.caption & a(i) & " "
next i
j = a(0) '求最大數for i = 1 to 9
j = iif(j > a(i), j, a(i))next i
label2.caption = "最大數為：" & jj = a(0) '求最小數for i = 1 to 9
j = iif(j < a(i), j, a(i))next i
label3.caption = "最小數為：" & jj = 0 '求平均值for i = 0 to 9
j = j + a(i)
next i
j = j / 10
label4.caption = "平均值為：" & jend sub
編一vb程式,隨機產生10個30~100(包括30,100)的正整數,求最大值,最小值和平均值,並顯示整個陣列的值和結果
6樓：匿名使用者
private sub command1_click()dim a(10)
randomize
dim sum as integer, min as integer, max as integer
sum = 0: min = 100: max = 30for i = 0 to 9
a(i) = int(30 + (71 * rnd))sum = sum + a(i)
if a(i) < min then min = a(i)if a(i) > max then max = a(i)print a(i),
next i
print vbcrlf & "最大值:"; maxprint "最小值:"; min
print "平均值:"; sum / 10end sub
vb程式設計 隨機產生n個10-100的整數，求其中的最大值，最小值，總和及平均值 20
誰能幫我解一下這道題？謝謝，誰能幫我解一下這道題？謝謝！
如果乙個數的末兩位數能被4整除 那麼，這個數就一定能被4整除 例如內1832 18 100 32 由於100能被4整除，100的倍容數也一定能被4整除，1800與32均能被4整除，它們的和也必然能被4整除 因此，因此，乙個數只要末兩位數字能被4整除，這個數就一定能被4整除 由於25 4 100，所以...
誰可以幫我解這道數學題，誰能幫我解一下這道數學題？
設實際生產x臺 則計畫生產x 1200臺 實際每天是500 60 560臺 所以計畫 x 1200 500天，實際x 560天所以 x 1200 500 x 560 3560 x 1200 500x 3 560 50060x 672000 840000 60x 1512000 x 25200 所以實...
哪位學霸幫我解解，哪位學霸幫我解一下這道題，謝謝！
問題答案是 15 16 33 裘珍解法錯誤 sabc 1 2 saed 所以 1 2 得 1 2 sin 6a sin 2a 1 2 解 見下圖，依題意 設 adb dbc 內錯角 a abc 3a sabc 1 2 bc ah bh ah absin 3a abcos 3a 1 2 ab 2sin...