Private Sub Form_Load() Dim x, y As Double For x = 1 To 10000000 If Sqr(13 * x * x + 1) = Int(Sqr(13 * x * x + 1)) Then y = 13 * x * x + 1 Form1.Caption = y Exit Sub End If Next x End Sub
【毛利蘭在大作中谈到:】 > >【xiaojun在大作中谈到:】 >> > >Private Sub Form_Load() >Dim x, y As Double >For x = 1 To 10000000 >If Sqr(13 * x * x + 1) = Int(Sqr(13 * x * x + 1)) Then >y = 13 * x * x + 1 >Form1.Caption = y >Exit Sub >End If >Next x >End Sub > >=========== >421201 5625 454阵形,中间的方阵,有一部分兵是由另12方阵提供的,平均108/12=9.