作者luludo (林小猴)
站内Visual_Basic
标题[VB6 ] 关於所得税计算系统
时间Sat Apr 22 00:02:56 2006
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
1F：→ rocksan:最後两个运算式怪怪的!!! 不过小弟只会vb.NET语法!! 04/22 01:18
2F：推 fumizuki:执行有问题可以设中断点，逐行执行，查看执行情行啊 04/22 08:51
3F：→ tpjobp:把你的"a <"和"a >"换成"Is <" 和"Is >" 即可正常执行 04/24 12:51