【x的平方加y的平方加z的平方=55的平方,x>y>z,xyz是方程的一个解,求所有整数解中x的绝对值加y的绝对值加z的绝对值中的最大值,要用vb的编.可以不用msgbox吗,有个绝对值的函数是abs,可以就用最简】
1人问答
问题描述：
x的平方加y的平方加z的平方=55的平方,x>y>z,xyz是方程的一个解,求所有整数解中x的绝对值加y的绝对值加z的绝对值中的最大值,要用vb的编.
可以不用msgbox吗,有个绝对值的函数是abs,可以就用最简单的一个单击command得结果吗?
罗修波回答：
DimA,B,CAsInteger
DimMax,MaxA,MaxB,MaxCAsInteger
Max=-1
ForA=1To55
ForB=1To55
ForC=1To55
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
EndIf
NextC
NextB
NextA
'在这里输出a,b,c和max
MsgBox"A="+Trim(Str(A))+"B="+Trim(Str(B))+"C="+Trim(Str(C))+"Max="+Trim(Str(Max))
数学推荐
数学推荐
最新更新
精品分类
优秀数学推荐
热门数学