看板 Visual_Basic 關於我們 聯絡資訊
請輸入專案類型(網站專案或者應用程式專案): 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個月後還款金額..然後自動計算幾個月後可以還完 我這樣寫哪邊有錯嗎 怎麼都沒反應?? 謝 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 118.166.66.78
petitcuckoo:i=0 12/30 17:40
Peruheru:問題是在於你的i到執行時還是沒有給它值吧,好像沒看到 12/30 18:11
Peruheru:你要用i當迴圈的終點,至少要給它一個值 12/30 18:12