问题标题：
VB求满足下列条件的所有四位数ABCD的个数,该四位数是11的倍数,且A=B+C,即第2位数加上第3位数等于第1位
问题描述：
VB求满足下列条件的所有四位数ABCD的个数,该四位数是11的倍数,且A=B+C,即第2位数加上第3位数等于第1位
李丹宁回答：
PrivateSubCommand1_Click()
Dimi,a,b,c,d
Fori=1000To9999
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)Mod11=0Anda=b+cThen
Debug.Printi
EndIf
Next
EndSub
点击显示
数学推荐
热门数学推荐