设计一个个人纳税计算程序
此次程序要求设计一个个人纳税计算程序。按规定:工资、薪金所得,使用超额累进税率。以每月的总收入减去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有了一定的兴趣,而且懂得了对于网络的充分利用,让资源得到充分的运用,也让自己的生活变得便利。