VB求满足下列条件的所有四位数ABCD的个数,该四位数是11的倍数,且A=B+C,即第2位数加上第3位数等于第1位

题目

VB求满足下列条件的所有四位数ABCD的个数,该四位数是11的倍数,且A=B+C,即第2位数加上第3位数等于第1位

答案

Private Sub Command1_Click()
Dim i,a,b,c,d
For i = 1000 To 9999
a = CLng(Mid(i,1,1))
b = CLng(Mid(i,2,1))
c = CLng(Mid(i,3,1))
d = CLng(Mid(i,4,1))
If (a * 1000 + b * 100 + c * 10 + d) Mod 11 = 0 And a = b + c Then
Debug.Print i
End If
Next
End Sub