1个回答
展开全部
Private Sub Command1_Click()
For a = 1 To 9
For b = 0 To 9
For c = 0 To 9
If a * a * a + b * b * b + c * c * c = 100 * a + 10 * b + c Then Print a & "^3+" & b & "^3+" & c & "^3=" & a * a * a & "+" & b * b * b & "+" & c * c * c & "="; a & b & c
Next c, b, a
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询