利用穷举法,代码见下。
但是,这个题是无解的。
因为XYZ+YZZ=YZ(X+Z),相当于三个整数相乘,且其中两个整数为0到9,一个为0到18
而532=2×2×7×19,=4×7×19
如果有解,则X+Z=19,但X+Z最大只能为18,所以此题无解。
代码如下:
Private Sub Command1_Click()
For i = 0 To 9
For j = 0 To 9
For k = 0 To 9
If y * z * (x + z) = 532 Then
Print x & "×" & y & "×" & z & "+" & y & "×" & z & "×" & z & "=532"
End If
Next k
Next j
Next i
End Sub
用程序解,那还要什么算式,穷举就是了,都是一秒钟出结果。