※ 引述《kyle421 (放羊的橘子)》之銘言：
: 請輸入專案類型(網站專案或者應用程式專案)：
: Dim x As Integer = 10000
: Dim y, z, i As Integer
: Dim sum As Double
: sum = x * 0.15 * z + x
: y = CInt(TextBox1.Text)
: For z = 1 To i
: sum = sum - y * z
: If sum <= 0 Then
: Label1.Text = z & "個月還完"
: End If
: Next z
: Label1.Text &= sum
: x本金
: y每個月還的金額
: sum總金額
: 題目是
: 希望輸入第2個月後還款金額..然後自動計算幾個月後可以還完
: 我這樣寫哪邊有錯嗎
: 怎麼都沒反應??
: 謝
感覺有問題的地方還滿多的.
1.z沒有設定值,預設值應該是0,所以sum其實應該是10000.
2.i沒有設定值,預設值應該是0,所以您的for迴圏根本沒有執行.
3.小弟認為您應該用3個textbox,(1)本金(2)利率(3)月還款金額.
4.label1.text &= sum 是字串連結的語法,結果出現label1.text內原本的字串+10000.
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 115.80.47.171