下列程序的功能是求方程:x2+y2=1000的所有整数解。请在空白处填入适当的语句,使程序完成指定的功能。Pr...
未知题型下列程序的功能是求方程:x2+y2=1000的所有整数解。请在空白处填入适当的语句,使程序完成指定的功能。
Private Sub Command 1_Click()
Dim x as intege,y as integer
For x=-34 To 34
For y=-34 To 34
If______Then
Debug.print x,Y
End If
Next y
Next x
End Sub