→ rocksan:最後兩個運算式怪怪的!!! 不過小弟只會vb.NET語法!! 04/22 01:18
推 fumizuki:執行有問題可以設中斷點，逐行執行，查看執行情行啊 04/22 08:51
→ tpjobp:把你的"a <"和"a >"換成"Is <" 和"Is >" 即可正常執行 04/24 12:51
Private Sub Command1_Click()
a = Val(InputBox("請輸入一年所得"))
Select Case a
Case a < 300000
t = a * 0.06
Label3.Caption = t
Case 300000 To 800000
t = (300000 * 0.06) + (a - 300000) * 0.13
Label3.Caption = t
Case 800000 To 1500000
t = (300000 * 0.06) + (500000 * 0.13) + (a - 800000) * 0.21
Label3.Caption = t
Case 1500000 To 3000000
t = (300000 * 0.06) + (500000 * 0.13) + (800000 * 0.21) + (a - 1500000) * 0.3
Label3.Caption = t
Case a >= 3000000
t = (300000 * 0.06) + (500000 * 0.13) + (800000 * 0.21) + (1500000 * 0.3) + (a - 3000000) * 0.4
Label3.Caption = t
End Select
為什麼我執行的時候都沒有反應
請各位幫我解答一下吧
謝謝^^
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.225.164.222