1到30怎么摆横竖斜加起来都等于111

求一组出来的程序：

Private Sub xxx()
[b1] = 0
Do While [b1] <> 111
[b1] = 0
For i = 1 To 7
Cells(i, 1) = Int(Rnd * 30 + 1)
[b1] = [b1] + Cells(i, 1)
Next
Loop
End Sub

30个数貌似无法摆，不是完全平方数