怎樣用VB做隨機(jī)產(chǎn)生10個(gè)1－100以內(nèi)的整型數(shù),求出其的最大值,最小值,平均值

其他人氣：443 ℃時(shí)間：2020-06-09 19:17:57

優(yōu)質(zhì)解答

這樣才對(duì) 初始化應(yīng)加在For 循環(huán)里 s要變?yōu)殡p精度（這樣平均數(shù)才有小數(shù)點(diǎn)后幾位）
樓主試我這個(gè)：
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
If j > max Then max = j
If j < min Then min = j
s = s + j
Print j;
Next
Print
Print "最大值,最小值,平均數(shù)分別為:"; max; min; Cdbl(s) / 10
End Sub