Private Sub Command1_Click()
For x = 1 To 9
For y = 1 To 9
For z = 0 To 9
If 100 * x + 10 * y + z + 100 * y + 11 * z = 758 Then Print x, y, z
Next z, y, x
End Sub
两个组合:x = 1 y=5 z=9 和 x=6 y=1 z=4
程序这里贴不下啊 讲一下思路吧 x y 都在百位 所以x y都不会是0 三层循环 x(1-->9) y(1-->9) z(0-->9) 计算100 * x+10 * y+z+100*y+z*10+z 是不是为758