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

来源:学生作业帮助网 编辑:作业帮 时间:2024/06/01 05:51:35
A B C D - C D C _____________ A B C 求A、B、C、D的值.用VB编程完成ABCD-CDC=ABC,其中每个字母表示一个数字,请用VB编程解决,
xS]KP+(̬@xh.;RvVtiQTE]$Y%ms6e/z}y| I>KP]0:qH8divI^y=wOr$'%Yz{98;{1|h{O߃^ +a+2|~tN>tJ-ԗ/ sf6m"{[naTJYɖOp`"*&.arkDEFGHb0pYc2:.Z֨n z4eW$fcF`E`G`Zep)dmAF9{q_}lsd%G^8شCsȆoOiA^R%5vK)ڬYv

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