养生 装修 购物 美食 感冒 便秘 营销 加盟 小吃 火锅 管理 创业 搭配 减肥 培训 旅游

如何用编程解决韩信点兵问题

时间:2024-11-15 10:54:49

韩信点兵问题是我们大逛罹为垴家都比较熟知一个问题,从他点兵的方法来说我们不得不佩服他的智慧,那么我们能不能用编程的方法鞅瓞慈玢解决韩信点兵问题呢?答案是肯定的,现在就把解决问题的步骤及其截图分享出来,希望对你有所帮助。

如何用编程解决韩信点兵问题

工具/原料

vb6

方法/步骤

1、首先启动visualbasic6.0,按ctrl+n组合键打开新建工程窗口,选择标准exe文件后,点击确定按钮,进入窗体主界面。

如何用编程解决韩信点兵问题

2、选择form1,拖拽窗体周边正方形调整窗体的大小,修改boderstyle属性值为0-none,修改startupposition属性值为屏幕中心。

如何用编程解决韩信点兵问题

3、在工具箱里双击标签工具在窗体上创建一个label1,修改其caption属性值为韩疙熳阊涓信点兵,并调节其大小和位置,修改字体,字体可以修改为自己喜欢的字体。

如何用编程解决韩信点兵问题

4、在窗体上再创建一个标签,修改其caption属性值为空,并调节其大小和位置。

如何用编程解决韩信点兵问题

5、连续两次在工具箱里双击按钮控件,在窗体上创建commmand1和commmand2按钮,并修改他们的caption属性值一个为求解,一个为退出。

如何用编程解决韩信点兵问题

6、接着双击求解按钮进入代码区域,对象选择com葡矩酉缸mmand1,过程选择click,然后输入代码为PrivateSubComm锾攒揉敫and1_Click()DimXAsInteger,YAsIntegerX=1:Y=0DoIf(XMod3=2)And(XMod5=3)And(XMod7=2)ThenY=xX=X+1LoopUntilY>0Label2.Print"点兵最少人数为:";YEndSub

如何用编程解决韩信点兵问题

7、点击工具栏里的启动按钮编译程序,点击求解按钮,查看是否能够出现结果,如果不能出现正确的结果,根据错误提示修改程序。

如何用编程解决韩信点兵问题

8、将程序中的label2.print修改为label2.caption=y,接着重新点击启动按钮再次进行测试。

如何用编程解决韩信点兵问题

9、双击退出按钮在其中输入代码为end,接着进行测试退出功能是否正常。

如何用编程解决韩信点兵问题

10、所有功能均能实现后,执行文件-生成工程命令,在弹出的对话框中输入名称为“韩信点兵”后,点击确定按钮。

如何用编程解决韩信点兵问题

11、接着在桌面上找到“韩信点兵.exe”文件,双击该文件进行运行查看结果。

如何用编程解决韩信点兵问题

© 一点知识