高考问答重生天龙之我为乔峰:求韩信点兵vb 程序
来源：百度文库 编辑：高考问答 时间：2024/04/27 23:49:33
用vb编写的一个小程序，可以解决“韩信点兵”的问题
可以运行通过的。
可以运行通过的。
暂时规划一下你的韩信点兵问题吧，4个人一队剩3个，7个人一队正好不剩，21个人一队剩7个，问韩信有多少兵。
这个题目解很多，如果不限制总数量的范围的话，会有很多个解，暂时定为（10～5000）之间吧，VB程序如下，很简单的：
Option Explicit
Dim I As Integer
For I = 10 To 5000
If I Mod 4 = 3 And I Mod 7 = 0 And I Mod 21 = 7 Then Text1 = Text1 & I & Chr(13) & Chr(10)
Next
答案共计59个：
91，175，259，343，427
511，595，679，763，847
931，1015，1099，1183，1267
1351，1435，1519，1603，1687
1771，1855，1939，2023，2107
2191，2275，2359，2443，2527
2611，2695，2779，2863，2947
3031，3115，3199，3283，3367
3451，3535，3619，3703，3787
3871，3955，4039，4123，4207
4291，4375，4459，4543，4627
4711，4795，4879，4963
韩信点兵问题到是清楚，可什么叫韩信点兵VB程序？
你多少要把你想要的整个程序要的输入输出说清楚吧。
===========================
为什么你就不能把问题讲清楚呢？要求的输入和输出是什么