15问答网 > vb编程，随机产生20个0~100之间的整数，求这组随机数的方差D和标准差S

vb编程，随机产生20个0~100之间的整数，求这组随机数的方差D和标准差S

2025-04-04 20:32:57

推荐回答（2个）

回答1：

Private Sub Command1_Click()
 Randomize Timer
 Dim D As Single, S As Single, A(1 To 20) As Integer
 Dim Avg As Single, n As Integer, i As Integer
 For i = 1 To 20
  A(i) = Int(Rnd * 101)
  Avg = Avg + A(i)
  Print A(i);
 Next
 Avg = Avg / 20
 For i = 1 To 20
  D = D + (A(i) - Avg) ^ 2
 Next
 D = D / 20
 S = Sqr(D)
 
 MsgBox D & vbCr & S
 
End Sub

回答2：

同义词《西游记》一般指西游记（中国古典四大名著之一）