怎么样才可以做3*3的阵列,让每行每列的数相加都相等,

Question

怎么样才可以做3*3的阵列,让每行每列的数相加都相等,
每行每列的数都是随机的.

Answer 1

Private Sub Command1_Click()
Dim num As Single, x(2, 2) As Double, s As Variant
s = Array(2, 7, 6, 9, 5, 1, 4, 3, 8)
Randomize
num = Format(Rnd * 100, "0.00")
For i = 0 To 8
If i Mod 3 = 0 Then Print
x(i \ 3, i Mod 3) = Format(s(i) * num, "0.00")
Print num * s(i);
Next
End Sub