韓信點兵問題是我們大家都比較熟知一個問題，從他點兵的方法來說我們不得不佩服他的智慧，那麼我們能不能用程式設計的方法解決韓信點兵問題呢？答案是肯定的，現在就把解決問題的步驟及其截圖分享出來，希望對你有所幫助。
工具/原料
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 "點兵最少人數為："; Y
End Sub
點選工具欄裡的啟動按鈕編譯程式，點選求解按鈕，檢視是否能夠出現結果，如果不能出現正確的結果，根據錯誤提示修改程式。
將程式中的label2.print修改為label2.caption=y，接著重新點選啟動按鈕再次進行測試。
雙擊退出按鈕在其中輸入程式碼為end，接著進行測試退出功能是否正常。
所有功能均能實現後，執行檔案-生成工程命令，在彈出的對話方塊中輸入名稱為“韓信點兵”後，點選確定按鈕。
接著在桌面上找到“韓信點兵.exe”檔案，雙擊該檔案進行執行檢視結果。
