vb6
首先启动visual basic6.0，按ctrl+n组合键打开新建工程窗口，选择标准exe文件后，点击确定按钮，进入窗体主界面。
选择form1，拖拽窗体周边正方形调整窗体的大小，修改boderstyle属性值为0-none，修改startupposition属性值为屏幕中心。
在工具箱里双击标签工具在窗体上创建一个label1，修改其caption属性值为韩信点兵，并调节其大小和位置，修改字体，字体可以修改为自己喜欢的字体。
在窗体上再创建一个标签，修改其caption属性值为空，并调节其大小和位置。
连续两次在工具箱里双击按钮控件，在窗体上创建commmand1和commmand2按钮，并修改他们的caption属性值一个为求解，一个为退出。
接着双击求解按钮进入代码区域，对象选择commmand1，过程选择click，然后输入代码为Private Sub Command1_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
点击工具栏里的启动按钮编译程序，点击求解按钮，查看是否能够出现结果，如果不能出现正确的结果，根据错误提示修改程序。
将程序中的label2.print修改为label2.caption=y，接着重新点击启动按钮再次进行测试。
双击退出按钮在其中输入代码为end，接着进行测试退出功能是否正常。
所有功能均能实现后，执行文件-生成工程命令，在弹出的对话框中输入名称为“韩信点兵”后，点击确定按钮。
接着在桌面上找到“韩信点兵.exe”文件，双击该文件进行运行查看结果。