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

简介: 用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)


20161029192827515.png


为这个程序默哀一下,生的错误,死的光荣-------

计算税收结果有错误。欢迎税收部门使用


正确版本代码:

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)
目录
相关文章
极态云中 2 行代码搞定流水账中的期初期末计算!
今天咱们就来聊聊如何用极态云这个神器来解决期初期末的计算!极态云 JIT 真的太强大了,只有你想不到,没有它做不到的。
|
机器学习/深度学习 算法 数据挖掘
日内交易套利系统程式开发编写规则解析
日内交易套利系统程式开发编写规则解析
|
数据采集 机器学习/深度学习 NoSQL
火车票被秒光,别慌!快用Python来抢票!
火车票被秒光,别慌!快用Python来抢票!
|
程序员 C语言 C++
电视剧里的代码真能运行吗?
虽然剧中说是“C语言期中考试”,但这位同学的代码名叫 draw2.py,一个典型的 Python 文件,再结合截图中的 pen.forward、pen.setpos 等方法来看,应该是用 turtle 海龟作图库来画爱心。
python小玩意——银行取钱程序
python小玩意——银行取钱程序
python小玩意——银行取钱程序
课外拓展1.模拟计算器的三种方法
回调函数的参数就是一个函数指针,这个指针便可以接收函数了,因为指针并没有指向,所以这个指针可以接收任意一个函数、
105 0
用autoIt自动制作AFP考试的理财案例(1)
用autoIt自动制作AFP考试的理财案例(1)
114 0
程序人生 - 为什么说车险千万不要提前买?真相原来在这里
程序人生 - 为什么说车险千万不要提前买?真相原来在这里
262 0
程序人生 - 为什么说车险千万不要提前买?真相原来在这里
Win系统 - 一键秒关所有程序,霸气侧漏!
Win系统 - 一键秒关所有程序,霸气侧漏!
313 0
Win系统 - 一键秒关所有程序,霸气侧漏!
|
移动开发 小程序 IDE
小程序测试全攻略,还学不会你来找我(含实操代码)
小程序测试全攻略,还学不会你来找我(含实操代码)
562 0