您的位置:首页 > 其它

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

2012-05-31 14:03 295 查看
代码编写:

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
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签:  command
相关文章推荐