税率金额
来源:互联网 发布:mac bootcamp 驱动删除 编辑:程序博客网 时间:2024/06/10 19:09
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]
- 个人所得税的税率
- 最新个人所得税税率表
- 个人所得税税率表
- RHEL5.4下Apache+php+MySQL+Snort+acid安装配置NIDS笔录
- UBuntu中出现xxx is not in the sudoers file解决方法
- asp.net mvc3 css/js压缩合并 --- combres
- 如何使窗体 Showmodal 后可以操作其他窗体
- USACO Training Section 1.3 Barn Repair 解题报告&AC代码
- 税率金额
- [转]有关Android线程的学习
- UAC---用户账户管理数据重定向
- Spring的HibernateDaoSupport DaoSupport用HibernateTemplate,JdbcTemplate详解
- QTableView 得到选中行
- .NET如何利用timer组件实现每天定时执行某项任务
- MYSQL主从同步故障一例及解决
- 计算出生日是不是周末
- 使用jbpm出现异常 java.lang.NoClassDefFoundError: de/odysseus/el/ExpressionFactoryImpl