VB 简单程序 求达人拯救~~~~~已知x、y、z 为0——9中的一个数，求x、y、z 的值，使xxz+yzz=532

Private Sub Command1_Click()
Me.AutoRedraw = True
Dim x, y, z As Integer
For x = 0 To 9
For y = 0 To 9
For z = 0 To 9
If 100 * x + 10 * x + z + 100 * y + 10 * z + z = 532 Then
Print x & y & z
End If
Next
Next
Next
End Sub

结果
x y z
2 3 1

Private Sub Form_Load()
For i = 0 To 9
For j = 0 To 9
For k = 0 To 9
If (100 * i + 10 * i + k * 1) + (100 * j + 10 * k + k * 1) = 532 Then
Debug.Print i & j & k
End If
Next
Next
Next
End Sub
答案：231

Private Sub Command1_Click()
For x = 0 To 9
For y = 0 To 9
For z = 0 To 9
If x * 100 + x * 10 + z + y * 100 + z * 10 + z = 532 Then
MsgBox ("xyz分别是" & x & y & z)
End If
Next z
Next y
Next x
End Sub
答案是231