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

来源:学生作业帮助网 编辑:作业帮 时间:2024/07/20 23:13:09
1到30怎么摆横竖斜加起来都等于111
x)3|ڱYCߓ&=[iϦyڵ.}ټ' mIԡ_`gC-66=|w]@Z~Y`̲ĒT$ Mpta璯VM[~B&k`sN)1Jxh(h)(h+teR+J ,h6yvаs XlzlgC';zXt]Own~6m'Pά

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