导读：操作步骤/方法1首先启动visualbasic6.0，按ctrl+n组合键打开新建工程窗口，选择标准exe文件后，点击确定按钮，进入窗体主界面。2选择form1，拖拽窗体周边正方形调整窗体的大小，修改boderstyle属性值为0-none，修改startupposition属性值为屏幕中心。3在工具箱里双击标签工具在窗体上创建一个label1，修改其caption属性值为韩信点兵，并调节其大小和...
操作步骤/方法
1
首先启动visualbasic6.0，按ctrl+n组合键打开新建工程窗口，选择标准exe文件后，点击确定按钮，进入窗体主界面。
2
选择form1，拖拽窗体周边正方形调整窗体的大小，修改boderstyle属性值为0-none，修改startupposition属性值为屏幕中心。
3
在工具箱里双击标签工具在窗体上创建一个label1，修改其caption属性值为韩信点兵，并调节其大小和位置，修改字体，字体可以修改为自己喜欢的字体。
4
在窗体上再创建一个标签，修改其caption属性值为空，并调节其大小和位置。
5
连续两次在工具箱里双击按钮控件，在窗体上创建commmand1和commmand2按钮，并修改他们的caption属性值一个为求解，一个为退出。
6
接着双击求解按钮进入代码区域，对象选择commmand1，过程选择click，然后输入代码为
7
PrivateSubCommand1_Click()
8
DimXAsInteger,YAsInteger
9
X=1:Y=0
10
Do
11
If(XMod3=2)And(XMod5=3)And(XMod7=2)ThenY=x
12
X=X+1
13
LoopUntilY>0
14
Label
15
Print"点兵最少人数为：";Y
16
EndSub
17
点击工具栏里的启动按钮编译程序，点击求解按钮，查看是否能够出现结果，如果不能出现正确的结果，根据错误提示修改程序。
18
将程序中的label
19
print修改为label
20
caption=y，接着重新点击启动按钮再次进行测试。
21
双击退出按钮在其中输入代码为end，接着进行测试退出功能是否正常。
22
所有功能均能实现后，执行文件-生成工程命令，在弹出的对话框中输入名称为“韩信点兵”后，点击确定按钮。
23
接着在桌面上找到“韩信点兵.exe”文件，双击该文件进行运行查看结果。
END
以上就是小编为大家介绍的如何用编程解决韩信点兵问题的全部内容，如果大家还对相关的内容感兴趣，请持续关注上海建站网！
标签：
内容声明：网站所展示的内容均由第三方用户投稿提供，内容的真实性、准确性和合法性均由发布用户负责。上海建站网对此不承担任何相关连带责任。上海建站网遵循相关法律法规严格审核相关关内容，如您发现页面有任何违法或侵权信息，欢迎向网站举报并提供有效线索，我们将认真核查、及时处理。感谢您的参与和支持！
