先下载安装好autoIt,然后新建一个au3文件,把代码复制进去,保存,然后编译文件成exe,这样就可以在任意一台电脑中使用了。
看了一两个小时教程,发现这个脚本语言很简单,适合编程基础薄弱的人。其实,我更想说的是,也许,我适合编写软件。Ye
代码:
Dim $k=3500 Dim $m,$s $m=InputBox("税收计算","请输入你的月工资收入:") If @error=1 Then Exit If $m="" Then Exit if $m<=3500 Then $s=0 else if 3500<=$m<5000 Then $s=($m-3500)*0.03 else if 5000<=$m<8000 Then $s=($m-3500)*0.1-105 Else if 8000<=$m<13500 Then $s=($m-3500)*0.2-555 Else if 13500<=$m<38500 Then $s=($m-3500)*0.25-1005 Else if 38500<=$m<58500 Then $s=($m-3500)*0.3-2775 Else if 58500<=$m<83500 Then $s=($m-3500)*0.35-5500 Else if $m>=83500 Then $s=($m-3500)*0.45-13505 EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf MsgBox(0,"应缴纳税收",$s)
为这个程序默哀一下,生的错误,死的光荣-------
计算税收结果有错误。欢迎税收部门使用
正确版本代码:
Dim $k=3500 Dim $m,$s $m=InputBox("税收计算","请输入你的月工资收入:") If @error=1 Then Exit If $m="" Then Exit if $m>=83500 Then $s=(($m-3500)*(0.45)-13505) else if $m<83500 Then $s=(($m-3500)*(0.35)-5500) else if $m<58500 Then $s=(($m-3500)*(0.3)-2775) Else if $m<38500 Then $s=(($m-3500)*(0.25)-1005) Else if $m<13500 Then $s=(($m-3500)*(0.2)-555) Else if $m<8000 Then $s=(($m-3500)*(0.1)-105) Else if $m<5000 Then $s=(($m-3500)*(0.03)) Else if $m<=3500 Then $s=0 EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf MsgBox(0,"应缴纳税收:",$s)