Private Sub Command1_Click()
Dim a(0 To 2, 0 To 3) As Integer
Dim i, j As Integer
Dim sum, mean
sum = 0
Randomize Now
For i = 0 To 2
For j = 0 To 3
a(i, j) = Int(Rnd() * 100)
sum = sum + a(i, j)
Next j
Next i
mean = sum / 3 / 4
Print sum, mean
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024