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

来源：学生作业学帮网 编辑：学帮网 时间：2024/05/30 03:36:19

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

1到30怎么摆横竖斜加起来都等于111 1到9一排三个数,横竖斜加起来都等于15 1到9一排三个数.横竖斜加起来都等于15 一共有几种 横竖斜加起来都等于34,数字1—16 1.3.5.7.9.11.6个数,其中一个数字可以重复用,横竖加起来都等于15,怎么摆?而且斜着两边加起来都要等于15 1-16数字放在十六个方格里横竖斜加起来都等于34,应该怎么放 8-16的数字横竖斜怎么加起来才都等于36 求九宫格算发,即1到9填到格子里,横竖斜加起来等于15 把数了从11到19这9数放在九个格子里让它横竖斜加起来都等于45怎么做. 1至16横竖撇捺加起来都等于34最好能请教到所有的九宫图 123456789怎么摆横竖斜数字相加都相同 请问“1—16这十六个数,怎么排序才能让横竖斜加起来都等于34啊?每个数只能用一次”急…! 1到9,横竖斜相加都等于15,怎么排列 1到49 七行七列,横竖斜相加都等于一个数,怎么排列 1到49,横竖斜相加都等于175,怎么排列排列成正方形 从1到25组成横竖斜都等于65怎么做 1到49横竖斜相加都等于165,怎么排列 1到8数字横竖斜相加都等于18