用vb编写 韩信点兵:7人排队余3人,10人排队余4人,13人排队余5人,求10000以内满足条件的士兵人数

这个问题芹灶用编程来解答很方便，直接用穷举法，对每一个数进行验证。对于程序本身来说，这个需要的时间可能只需要几毫秒

For i = 1 To 10000‘凳前穷举从1-10000之间所有的数字

If i Mod 7 = 3 Then'假如i除以7,余数为3，则往下执枣首清行，否则验证下一个数字

If i Mod 10 = 4 Then '假如i除以10,余数为4，则往下执行，否则验证下一个数字

If i Mod 13 = 5 Then '假如i除以13,余数为5，则此数符合要求

Print i’打印该数字

End If

End If

End If

Next

Private sub form_load() dim q as integer for q=1 To 100 if q mod 4=3 and q mod 3=2 Then print q end sub 你可以自己更改、这个是计算从1到100之内、韩信点兵，4个一喊余3、派手3个陪手一喊余2。最后输出芦羡嫌有多少人。

Private Sub Command1_Click()

For i = 100 To 500

If (i Mod 3) = 1 And (i Mod 5) = 2 And (i Mod 7) = 5 Then

Text1.Text = Text1.Text &i &", "

End If

Next i

End Sub

---