这样才对 初始化应加在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 Su