这样才对 初始化应加在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
If j > max Then max = j
If j < min Then min = j
s = s + j
Print j;
Next
Print
Print "最大值,最小值,平均数分别为:"; max; min; Cdbl(s) / 10
End Sub