VB用print输出一个4位数,满足abcd=dcba*9?
发布网友
发布时间：2024-10-23 22:54
共1个回答
热心网友
时间：2024-11-06 04:08
Private Sub Command1_Click()
For a = 1 To 9
For b = 0 To 9
For c = 0 To 9
For d = 1 To 9
x = a * 1000 + b * 100 + c * 10 + d
y = d * 1000 + c * 100 + b * 10 + a
If x = 9 * y Then Print x; "="; y; "*9"
Next d
Next c
Next b
Next a
End Sub
