编写程序求解下述韩信点兵问题：有一对士兵,从1至5依次报数时,最后1人报1,；从1至6依次报数时,最后一人报5；从1至7依次报数时,最后一人报4；从1至11依次报数时,最后一人报10；求出该对士

Question

编写程序求解下述韩信点兵问题：
有一对士兵,从1至5依次报数时,最后1人报1,；从1至6依次报数时,最后一人报5；从1至7依次报数时,最后一人报4；从1至11依次报数时,最后一人报10；求出该对士兵人数.

Answer 1

‘2111个士兵
’vb代码
Private Sub Command1_Click()
Dim i As Long
Do
i = i + 1
If i Mod 5 = 1 And i Mod 6 = 5 And i Mod 7 = 4 And i Mod 11 = 10 Then Exit Do
Loop
Print i
End Sub