Question

D03、有一数学灯谜，求A、B、C、D(其中A、B、C、D都为一位数字)的值 ABCD-CDC=ABC 怎么编程

Private Sub Form_load()
Dim A, B, C, D As Integer
For A = 1 To 9
For B = 1 To 9
For C = 1 To 9
For D = 1 To 9
If (1000 * A + 100 * B + 10 * C + D) - (100 * C + 10 * D + C) = 100 * A + 10 * B + C Then
Print "A="; A
Print "B="; B
Print "C="; C
Print "D="; D
End If
Next D
Next C
Next B
Next A
End Sub

怎么错了
急！！！！！！！！！！！高中程度的

Answer 1

A、C是多位数的首位，不能为0，B、D是可以为0的，循环要从0开始。语法上就不帮你看了。
结果是
A=1
B=0
C=9
D=8

Private Sub Form_load()
Dim A, B, C, D As Integer
For A = 1 To 9
For B = 0 To 9
For C = 1 To 9
For D = 0 To 9
If (1000 * A + 100 * B + 10 * C + D) - (100 * C + 10 * D + C) = 100 * A + 10 * B + C Then
Print "A=" ; A
Print "B=" ; B
Print "C=" ; C
Print "D=" ; D
End If
Next D
Next C
Next B
Next A
End Sub

追问

没用啊
帮忙详细看看

追答

OK啊，语法也没问题，我在VBS里试运行了可以，跑出结果了。

追问

vb98没显示
要不然你发一下截图
Q：981021844
邮箱：981021844@qq.com

追答

Private Sub Form_load()
Dim A, B, C, D As Integer
这里加一行：
show

Answer 2

第三行

Answer 3

A=CD B=DA C=BA D=CD

Answer 4

A=CD B=DA C=BA D=CD

Answer 5

Private Sub Command1_Click()
Dim A As Integer, B As Integer, C As Integer, D As Integer
For A = 1 To 9
For B = 0 To 9
For C = 1 To 9
For D = 0 To 9
If (1000 * A + 100 * B + 10 * C + D) - (100 * C + 10 * D + C) = 100 * A + 10 * B + C Then
Print "A=" & A & " " & Chr(10) & " B = " & B & " " & Chr(10) & "C = " & C & " " & Chr(10) & " D = " & D; ""
End If
Next D
Next C
Next B
Next A
End Sub