vb程序编写
发布网友
发布时间:2022-04-28 21:58
我来回答
共1个回答
热心网友
时间:2022-06-23 15:32
dim
myval
as
currency
'定义货币类型变量
select
case
myval
case
is
myval
<=
200
text
=
0
case
is
myval
<=400
text
=
(myval
-
200)
*
0.03
case
is
myval
<=
5000
text
=
(myval
-
400)
*
0.04
case
is
myval
>
5000
text
=
(myval
-
5000)
*
0.05
end
select
以上计算出来的是个人所得税,如果要算实际工资的话,就把工资再减掉myval。