猴子吃桃子問題 需要用VB語言編寫代碼

Private Sub 計算按鈕_Click(sender As Object, e As EventArgs) Handles 計算按鈕.Click

Dim 所有桃子數 As Integer

Dim 吃了幾天 As Integer = CInt(吃了幾天框.Text)

Dim 最後剩下幾個 As Integer = CInt(剩下桃子數框.Text)

Dim 上壹天的桃子數 As Integer = 最後剩下幾個

For 壹天 As Integer = 1 To 吃了幾天 Step 1

上壹天的桃子數 = 最後剩下幾個 * 2 + 2

最後剩下幾個 = 上壹天的桃子數

Next

MsgBox("猴子第壹天摘得桃子：" & 上壹天的桃子數)

End Sub

上一篇:大唐杯仿真題300分有幾個題目

下一篇:買機票時，K艙位 L艙位M艙位等等艙位，除了價錢不同，其他方面什麽區別的嗎？