从前有个国王，检阅他的军队，发现他的军队组成了31个大小相同的方阵，国王很高兴，便下去和他的军队站在一起，大家发现他们又可以组成一个巨大的方阵。请问国王的军队有多少人？
（楼主高兴时会公布答案）

沙发自坐

Dim x As Integer, y As Integer
For i As Integer = 1 To 1000
x = i ^ 2 * 31
y = x + 1
Dim s As String = (Math.Sqrt(y)).ToString
If s.Contains(".") = False Then MsgBox(x)
Next
得到 x = 2310399

2310399小兵+1国王