12345=(111+a)(111-b)111(a-b)-ab=24111(a-b)=ab+24>0a>b>0不妨设a=x+y,b=x-y ,( x>y>0),得x^2=y^2+222y-24经VB程序验证 x=404,y=308a=712,b=96附VB程序Option ExplicitDim y As LongDim S As LongDim xPrivate Sub Command1_Click()For y = 1 To 1000S = y^ 2 + 222 * y - 24x = Sqr(S)If x - Fix(x) = 0 ThenText1.Text =