Private Sub Command1_Click() '这是减法计算的竖式啊
Print " A "; " B "; " C "; " D "
For a = 1 To 9
For b = 0 To 9
For c = 0 To 9
For d = 0 To 9
If a * 1000 + b * 100 + 10 * c + d - (b * 1000 + 110 * a + c) = 110 * d + a Then Print a; b; c; d
Next d
Next c
Next b
Next a
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024