x的平方加y的平方加z的平方=55的平方,x>y>z,xyz是方程的一个解,求所有整数解中x的绝对值加y的绝对值加z的绝对值中的最大值,要用vb的编.可以不用msgbox吗,有个绝对值的函数是abs,可以就用最简

Question

x的平方加y的平方加z的平方=55的平方,x>y>z,xyz是方程的一个解,求所有整数解中x的绝对值加y的绝对值加z的绝对值中的最大值,要用vb的编.
可以不用msgbox吗,有个绝对值的函数是abs,可以就用最简单的一个单击command得结果吗?

Answer 1

Dim A,B,C As Integer
Dim Max,MaxA,MaxB,MaxC As Integer
Max = -1
For A = 1 To 55
For B = 1 To 55
For C = 1 To 55
If (A > B) And (B > C) And (A + B + C > Max) And (A * A + B * B + C * C = 55 * 55) Then
Max = A + B + C
MaxA = A
MaxB = B
MaxC = C
End If
Next C
Next B
Next A
'在这里输出a,b,c和max
MsgBox "A=" + Trim(Str(A)) + "B=" + Trim(Str(B)) + "C=" + Trim(Str(C)) + "Max=" + Trim(Str(Max))