给个韩信点兵的标准算法给你参考下Private Sub Cmd_OK_ClickDim x As Integer ,y as integer X = ValiNumTexty=0 Do While X Mod 3=0 and x mod 5=0 and x mod 7=0 then y=x X = X + 1 l。
软糖找到了完整题目韩信点兵韩信有一队兵,他想知道有多少人,便让士兵排队报数按从1至5报数,最末一个士兵报的数为1按从1至6报数,最末一个士兵报的数为5按从1至7报数,最末一个士兵报的数为4最后再。
iStartiEnd iEnd = iStart=iEnd?iStartiEnd forindexlt=iEnd++index if2==index%33==index%52==index%7 printfquot %dquot,index ++iCount if0=。