VB编程-韩信点兵代码

时间：2022-05-19 16:12:11 阅读：最新文章文档下载

说明：文章内容仅供预览，部分内容可能不全。下载后的文档，内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的，是否完整无缺。

韩信点兵的编程问题解答：

韩信点兵，多多益善。韩信点兵是3个一组，最后余1,5个一组，最后余2,7个一组，最后余4，符合以上的条件的最小的数是多少？

我们编写一个VB小程序很快就能解答。此为韩信点兵的VB代码

Dim x As Integer, y As Integer x = 1 y = 0 Do

If x Mod 3 = 1 Then If x Mod 5 = 2 Then If x Mod 7 = 4 Then y = x End If End If End If Loop Until y > 0

Print "韩信统御士兵数："; y

打开VB，新建一个按钮，双击按钮进入代码界面，复制粘贴以上代码，运行，即可解答。