税率金额
来源:互联网 发布:慵懒气质 知乎 编辑:程序博客网 时间:2024/06/10 19:45
税率金额
(2012-04-24 20:23:54)[编辑][删除]Private Sub Command1_Click()
Dim x As Double
Dim y As Single
x = Val(Text1.Text)
y = Val(Text2.Text)
Select Case x
Case Is <= 500
y = x * 0.05
Case Is <= 2000
y = x * 0.1
Case Is <= 5000
y = x * 0.15
Case Is <= 20000
y = x * 0.2
Case Is <= 40000
y = x * 0.25
Case Is <= 60000
y = x * 0.3
Case Is <= 80000
y = x * 0.35
Case Is <= 100000
y = x * 0.4
Case Else
y = x * 0.45
End Select
Text2.Text = Format(y, "0")
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Dim x As Double
Dim y As Single
x = Val(Text1.Text)
y = Val(Text2.Text)
Select Case x
Case Is <= 500
y = x * 0.05
Case Is <= 2000
y = x * 0.1
Case Is <= 5000
y = x * 0.15
Case Is <= 20000
y = x * 0.2
Case Is <= 40000
y = x * 0.25
Case Is <= 60000
y = x * 0.3
Case Is <= 80000
y = x * 0.35
Case Is <= 100000
y = x * 0.4
Case Else
y = x * 0.45
End Select
Text2.Text = Format(y, "0")
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
看着老师演示了一遍自己可以模仿个大概,但某些方面还要自己去查书,自己去搞明白
- 税率金额
- 税率金额
- 税率
- 税率
- 取税率
- 取税率
- 计算税率
- 计算税率
- 退税率
- 个人所得税税率
- 税率计算
- 计算税率
- 取得税率Code和税率的值
- 个人所得税税率简介
- 消费税税率表[zhuan]
- 个人所得税的税率
- 最新个人所得税税率表
- 个人所得税税率表
- 在 MyEclipse 10 Blue Edition 下安装 ADT 插件
- Erlang——cowboy源码剖析
- 博客三条纪律
- 简单实用的makefile
- 两个数乘运算
- 税率金额
- 单精度与双精度
- 第一次程序课
- 计算出生日是星期几
- 1000—2000能同时被17和37整除的数
- 程序员与厨师
- ubuntu 下 vim 的配置
- 黑马程序员——交通灯管理系统
- crontab命令的用法(Linux)