Private Sub Form_click()
Dim n(1 To 20) As Integer
Dim i,j,ave,temp
Randomize
For i = 1 To 20
n(i) = Int((51 * Rnd) + 50)
Print n(i)
Next i
For j = 1 To 19
For i = j + 1 To 20
If n(i) >= n(j) Then
temp = n(i)
n(i) = n(j)
n(j) = temp
End If
Next
Next
ave = 0
For i = 1 To 20
ave = ave + n(i)
Next
ave = ave / 20
Print "最大值為："; n(1)
Print "最小值為："; n(20)
Print "平均值為："; ave
End Sub
VB方面的:利用隨機(jī)函數(shù)產(chǎn)生20個50--100范圍內(nèi)的隨機(jī)數(shù),顯示它們的最大值,最小值,和平均值
VB方面的:利用隨機(jī)函數(shù)產(chǎn)生20個50--100范圍內(nèi)的隨機(jī)數(shù),顯示它們的最大值,最小值,和平均值
其他人氣：420 ℃時間：2019-11-07 22:25:47
優(yōu)質(zhì)解答
我來回答
類似推薦
- 用vb編程：利用隨機(jī)函數(shù)產(chǎn)生50-100范圍內(nèi)的20個隨機(jī)數(shù),顯示其中的最大值、最小值和平均值.
- 利用隨機(jī)函數(shù)產(chǎn)生50-100范圍內(nèi)的20個隨機(jī)數(shù),顯示其中最大值,最小值和平均值
- 用VB程序?qū)懗觥袄秒S機(jī)函數(shù)產(chǎn)生20個50~100范圍內(nèi)的隨機(jī)數(shù),顯示他們的最大值、最小值和平均值.”怎么寫
- 利用隨機(jī)函數(shù)產(chǎn)生50-100范偉內(nèi)的20個隨機(jī)數(shù),顯示其中的最大值,最小值和平均值
- 利用VB如何設(shè)計下面問題：利用隨機(jī)數(shù)產(chǎn)生10個1~100之間的隨機(jī)數(shù),顯示出最大值,最小值及平均值.
- 多項式
- 描寫樹的形容詞（可以是描寫它的品質(zhì) 精神 也可以是樣子）
- 在動物體內(nèi)糖原和脂肪都是儲能物質(zhì),但為什么是脂肪作為主要的儲能物質(zhì)呢?
- 0.3比0.45比0.1 4比6比16
- 在某塔塔底所在平面上一點仰角為a,由此點向塔直走30米后,測得仰角為2a,再沿直線走15(根號3—1）米后,又
- 12和20這兩個數(shù)的最大公因數(shù)是,最小公倍數(shù)是
- 如圖，在△ABC中，AC=BC，D是BC上的一點，且滿足∠BAD=1/2∠C，以AD為直徑的⊙O與AB、AC分別相交于點E、F． （1）求證：直線BC是⊙O的切線；（2）連接EF，若tan∠AEF=4/3，AD=4，求BD的長．
猜你喜歡
- 1已知a小于0,負(fù)b大于0,且負(fù)b的絕對值小于a的絕對值,c是負(fù)b的相反數(shù),試比較a,負(fù)b,c的大小,并用小于號連接.
- 2your performance是什么意思?
- 3英語同義句I spend an hour reading English every day
- 4青蛙是怎樣發(fā)聲的?
- 5錯在課外閱讀 作文 按要求寫句子
- 6已知向量a=（sinωx+cosωx,sinωx),向量b=（sinωx-cosωx,2√3cosωx)
- 7六（2）班第一次數(shù)學(xué)測試，及格的有48人，不及格的有2人．則這次數(shù)學(xué)測試的及格率為_．
- 8甲乙丙丁4個數(shù)都能不是0,甲除乙是0.5,丁除乙是1.1,丙除0.4等于乙,甲除1.25等于丙,比較甲乙丙丁大小
- 9如圖，已知空間四邊形ABCD，E，F(xiàn)分別是AB，AD的中點，G，H分別是BC，CD上的點，且BG/GC＝DH/HC＝2，求證：EG，F(xiàn)H，AC相交于同一點P．
- 10How are you feeling now? I'm feeling even ____.
- 11為了鼓勵人們節(jié)約用水,思源市今年四月份頒布了居民用水收費(fèi)新標(biāo)準(zhǔn),具體收費(fèi)標(biāo)準(zhǔn)如下：
- 12家里人都在看電視,只有我一人在寫作業(yè).(修改病句)