题目

韩信点兵问题,士兵人数在100到200之间,3人排队余1人,5人排队余2人,7人排队余5人,求总人数的vb设计
希望各位在2周内能帮我做出来.

提问时间：2021-03-31

答案

看来你是新手啊,你在窗体上添加一个command 和一个text,其它什么也不用管了,然后输入以下代码就可以了.
Dim 士兵人数 As Integer
Private Sub Command1_Click()
For 士兵人数 = 100 To 200
If 士兵人数 Mod 3 = 1 And 士兵人数 Mod 5 = 2 And 士兵人数 Mod 7 = 5 Then
Text1.Text = "满足条件的士兵数为：" & 士兵人数
End If
Next
End Sub
Private Sub Form_Load()
Command1.Caption =
Text1.Text = ""
End Sub