[VB6 ] 關於所得稅計算系統

看板Visual_Basic作者 (林小猴)時間18年前 (2006/04/21 23:58), 編輯推噓1(1推 0噓 2→)
留言3則, 3人參與, 最新討論串1/1
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
→
04/22 01:18, , 1F
最後兩個運算式怪怪的!!! 不過小弟只會vb.NET語法!!
04/22 01:18, 1F
推
04/22 08:51, , 2F
執行有問題可以設中斷點，逐行執行，查看執行情行啊
04/22 08:51, 2F
→
04/24 12:51, , 3F
把你的"a <"和"a >"換成"Is <" 和"Is >" 即可正常執行
04/24 12:51, 3F
‣ 更多 luludo 的文章
文章代碼(AID): #14IG4TdN (Visual_Basic)