问题标题:
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
查看更多
八字精批 八字合婚 八字起名 八字财运 2024运势 测终身运 姓名详批 结婚吉日
已出生未出生
数学推荐
热门数学推荐
付费后即可复制当前文章
《VB求满足下列条件的所有四位数ABCD的个数,该四位数是11的倍数,且A=B+C,即第2位数加上第3位数等于第1位|小学数学问答-字典翻译问答网》
限时特价:5.99元/篇原价:20元