用autoIt写一个计算税收的程序

先下载安装好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)