如何編程實現猴子吃桃問題
對于“猴子吃桃”問題，實際上是典型的遞歸算法的應用，對于這個問題如何使用編程來解決呢？現在我就有vb6來實現這個問題，同時把實現的步驟和截圖分享給大家，希望對你有所幫助。
工具/原料
- vb6
方法/步驟
- 1
雙擊桌面上的vb6的快捷方式，執行新建工程命令，在彈出的新建工程對話框中選擇標準的exe文件，點擊確定，進入窗體主界面。
- 2
調節窗體的大小，使其布局美觀，修改form1的caption屬性值為“猴子吃桃問題實現”，修改borderstyle屬性值為4-fiex，修改startupposition屬性值為“屏幕中心”。
- 3
在窗體上創建frame1對象，修改frame1的caption屬性值為空，同時調節其大小使其布局更加美觀統一。
- 4
在frame1上創建image1控件，點擊image1的picture屬性，彈出對話框，根據圖片所存放的位置找到圖片后，點擊打開按鈕。
- 5
接著創建兩個標簽控件，label1和label2，修改label1的caption屬性值為“第幾天”，修改其backcolor為白色，修改label2的caption屬性值為“桃子數”，同時修改backcolor為白色。
- 6
在frame1上創建兩個文本框控件，text1和text2，修改這兩個文本框的text屬性值為空，同時調節其大小和位置。
- 7
再接著創建兩個按鈕控件，修改commmand1的caption屬性值為“計算桃子數”，修改commmand2的caption屬性值為“退出”，調整他們的位置。
- 8
切換到代碼區域，在該區域內對象中選擇“通用”，然后輸入自定義函數：
Public Function tao(day As Integer) As Integer
If day = 10 Then
tao = 1
Else
tao = 2 * (tao(day + 1) + 1)
End If
End Function
自定義函數是解決問題的關鍵所在。
- 9
接著在對象中選擇commmand1，過程中選擇click，然后輸入代碼為：Text2.Text = tao(Text1.Text)。
- 10
重新選擇對象為commmand2，過程選項click輸入代碼為end，代表退出整個程序運行。
- 11
點擊啟動按鈕對整個編程進行編譯測試，在測試過程出現編譯錯誤則說明自定義函數有問題，根據提示進行必要的修改后再進行測試。
- 12
錯誤提示為編譯錯誤：變量為定義，經過檢查發現是輸入時產生的輸入錯誤，改正過來，所以在輸入代碼時一定要細心，否則會出現不必要的錯誤。
- 13
修改完直至無誤后，在屏幕中心位置出現一個窗體，在第幾天中輸入數字1-10進行測試，點擊計算桃子數就會出現結果。
- 14
執行文件-生成可執行文件命令，接著執行文件-保存工程，選擇一個合適的位置進行保存即可。
- 發表于 2018-02-02 00:00
- 閱讀 ( 885 )
- 分類：其他類型
0 篇文章
作家榜 ?
-
xiaonan123
189 文章
-
湯依妹兒
97 文章
-
luogf229
46 文章
-
jy02406749
45 文章
-
小凡
34 文章
-
Daisy萌
32 文章
-
我的QQ3117863681
24 文章
-
華志健
23 文章