用Excel VBA解决爱因斯坦长阶梯问题

2019年6月30日 5点热度 0条评论 来源: qq_42732826

爱因斯坦长阶梯问题

有一个长阶梯 若每步上2阶,最后剩下1阶 若每步上3阶,最后剩2阶 若每步上5阶,最后剩下4阶 若每步上6阶,最后剩5阶 只有每步上7阶,最后刚好一阶也不剩

请问该阶梯至少有多少阶(正确结果:119)

Sub 爱因斯坦长阶梯( )  '直到条件成立退出循环
    Dim 阶梯 As Long
    阶梯 = 0
    Do
    		阶梯 = 阶梯 + 1
    Loop  Until (阶梯 Mod 2 = 1 And 阶梯 Mod 3 = 2 And _ 
		阶梯 Mod 5 = 4 And 阶梯 Mod 6 = 5 And 阶梯 Mod 7 = 0)
    MsgBox 阶梯
End Sub
注意:此处循环的结束条件是当Until后面表达式的值为True时,退出循环

 

    原文作者:qq_42732826
    原文地址: https://blog.csdn.net/qq_42732826/article/details/94362907
    本文转自网络文章,转载此文章仅为分享知识,如有侵权,请联系管理员进行删除。