A B C D - C D C _____________ A B C 求A、B、C、D的值.用VB编程完成ABCD-CDC=ABC,其中每个字母表示一个数字,请用VB编程解决,

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/30 15:20:53
A B C D - C D C _____________ A B C 求A、B、C、D的值.用VB编程完成ABCD-CDC=ABC,其中每个字母表示一个数字,请用VB编程解决,

A B C D - C D C _____________ A B C 求A、B、C、D的值.用VB编程完成ABCD-CDC=ABC,其中每个字母表示一个数字,请用VB编程解决,
A B C D - C D C _____________ A B C 求A、B、C、D的值.用VB编程完成
ABCD-CDC=ABC,其中每个字母表示一个数字,请用VB编程解决,

A B C D - C D C _____________ A B C 求A、B、C、D的值.用VB编程完成ABCD-CDC=ABC,其中每个字母表示一个数字,请用VB编程解决,
Private Sub Command1_Click()
Dim i, j, k, l, iABCD, iCDC, iABC As Integer
Dim si, sj, sk, sl, sItem As String
For i = 0 To 9
For j = 0 To 9
For k = 0 To 9
For l = 0 To 9
si = Str(i)
sj = Str(j)
sk = Str(k)
sl = Str(l)
sItem = si & sj & sk & sl
iABCD = Val(sItem)
sItem = sk & sl & sk
iCDC = Val(sItem)
sItem = si & sj & sk
iABC = Val(sItem)
If iABCD - iCDC = iABC Then Print i, j, k, l
Next l
Next k
Next j
Next i
End Sub