如何用VB设计一个程序算随机20个数［20,50］的平均值

更新时间2018-08-25 14:21:24

Private Sub Command1_Click()
 Randomize
   For i = 1 To 20
      a = Int(Rnd * 31) + 20
      Sum = Sum + a
   Next
   Print Sum / 20
End Sub