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

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/28 01:29:59
1到30怎么摆横竖斜加起来都等于111

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

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个数貌似无法摆,不是完全平方数