设计一个个人纳税计算程序

设计一个个人纳税计算程序
     此次程序要求设计一个个人纳税计算程序。按规定：工资、薪金所得，使用超额累进税率。以每月的总收入减去800元后的余额，为应纳税所得额。以下即为我根据题目要求编写的计算程序：

 

Private  Sub  Command1_click()

Dim  w  as Long    

Dim  s  as  Long

Dim  y  as  Long

w=Val(Text1.Text)

 

s=w-800

Select  case  s

Case  is<=500

y=s*5/100

Case  is<=2000

y=s*10/100

Case  is<=5000

y=s*15/100

Case  is<=20000

y=s*20/100

Case  is<=40000

y=s*25/100

Case  is<=6000

y=s*30/100

Case  is<=8000

y=s*35/100

Case  is<=100000

y=s*40/100

 

Case  Else

     通过对该程序的编写，我对vb有了较深一步的了解，对vb有了一定的兴趣，而且懂得了对于网络的充分利用，让资源得到充分的运用，也让自己的生活变得便利。