Private Sub command1_click()For i = -30 To 30 For j = -40 To 40 If 2 * i ^ 2 + j ^ 2 = 1000 Then Print i, jNext j, iEnd Sub此方程无整数解
