韩信点兵问题是我们大逛罹为垴家都比较熟知一个问题,从他点兵的方法来说我们不得不佩服他的智慧,那么我们能不能用编程的方法鞅瓞慈玢解决韩信点兵问题呢?答案是肯定的,现在就把解决问题的步骤及其截图分享出来,希望对你有所帮助。
工具/原料
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”文件,双击该文件进行运行查看结果。