1、首先启动visual basic6.0,按ctrl+n组合键打开新建工程窗口,选择标准exe文件后,点击确定按钮,进入窗体主界面。
2、选择form1,拖拽窗体周边正方形调整窗体的大小,修改boderstyle属性值为0-none,修改startupposition属性值为屏幕中心。
3、在工具箱里双击标签工具在窗体上创建一个label1,修改其caption属性值为韩疙熳阊涓信点兵,并调节其大小和位置,修改字体,字体可以修改为自己喜欢的字体。
4、在窗体上再创建一个标签,修改其caption属性值为空,并调节其大小和位置。
5、连续两次在工具箱里双击按钮控件,在窗体上创建commmand1和commmand2按钮,并修改他们的caption属性值一个为求解,一个为退出。
6、接着双击求解按钮进入代码区域,对象选择commmand1,过程选择click,然后输入代码为Private Sub Comm锾攒揉敫and1_Click()Dim X As Integer, Y As Integer X = 1: Y = 0 Do If (X Mod 3 = 2) And (X Mod 5 = 3) And (X Mod 7 = 2) Then Y = x X = X + 1 Loop Until Y > 0 Label2.Print "点兵最少人数为:"; YEnd Sub
7、点击工具栏里的启动按钮编译程序,点击求解按钮,查看是否能够出现结果,如果不能出现正确的结果,根据错误提示修改程序。
8、将程序中的label2.print修改为label2.caption=y,接着重新点击启动按钮再次进行测试。
9、双击退出按钮在其中输入代码为end,接着进行测试退出功能是否正常。
10、所有功能均能实现后,执行文件-生成工程命令,在弹出的对话框中输入名称为“韩信点兵”后,点击确定按钮。
11、接着在桌面上找到“韩信点兵.exe”文件,双击该文件进行运行查看结果。