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

最新推荐文章于 2024-03-11 08:18:37 发布

原创最新推荐文章于 2024-03-11 08:18:37 发布 · 455 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#command

代码编写：

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