纳税金额计算
来源:互联网 发布:djay pro for mac 编辑:程序博客网 时间:2024/05/01 16:11
代码如下:
Private Sub Command1_Click()
Dim n As Single, w As Single
Dim s As Single, m As Single
n = Val(Text1.Text)
w = n - 500
Select Case w
Case Is <= 500
s = 0.05
Case Iw < 2000
s = 0.1
Case Is <= 5000
s = 0.15
Case Is <= 20000
s = 0.2
Case Is <= 40000
s = 0.25
Case Is <= 60000
s = 0.3
Case Is <= 80000
s = 0.35
Case Is <= 100000
s = 0.4
Case Is > 100000
s = 0.45
End Select
m = w * s
Text2.Text = m
End Sub
Dim n As Single, w As Single
Dim s As Single, m As Single
n = Val(Text1.Text)
w = n - 500
Select Case w
Case Is <= 500
s = 0.05
Case Iw < 2000
s = 0.1
Case Is <= 5000
s = 0.15
Case Is <= 20000
s = 0.2
Case Is <= 40000
s = 0.25
Case Is <= 60000
s = 0.3
Case Is <= 80000
s = 0.35
Case Is <= 100000
s = 0.4
Case Is > 100000
s = 0.45
End Select
m = w * s
Text2.Text = m
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text1.Text = ""
Text2.Text = ""
End Sub
- vb计算纳税金额
- vb计算纳税金额
- 计算纳税金额
- 纳税金额计算
- 计算纳税金额
- 计算纳税金额
- 纳税金额
- 纳税金额
- 个人纳税计算程序
- 个人纳税计算系统论文
- 金额计算
- 设计一个个人纳税计算程序
- 设计一个个人纳税计算程序
- 根据收入计算纳税和税后所得
- C语言 收入与纳税计算
- 合计金额计算
- 自定计算金额
- 金额计算精度问题
- 小技巧
- 怎样设计出能算出你出生时是星期几
- IMA ADPCM
- 读懂云计算技术和产业
- MySQL更新行和插入列的语句
- 纳税金额计算
- 云计算概念股,上市公司
- 揭开正则表达式的神秘面纱
- 数据透视表之排序
- 【二分】关押罪犯
- 比较两个数的大小
- Delaunay三角形网格的构建描述
- 《第十二周实验报告任务3》
- DOM方式解析XML