计算纳税金额
来源:互联网 发布:淘宝超市怎么开 编辑:程序博客网 时间:2024/05/01 12:23
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
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
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 = ""
End Sub
心得体会:这类问题要强加记忆,属于重点易望问题。
- vb计算纳税金额
- vb计算纳税金额
- 计算纳税金额
- 纳税金额计算
- 计算纳税金额
- 计算纳税金额
- 纳税金额
- 纳税金额
- 个人纳税计算程序
- 个人纳税计算系统论文
- 金额计算
- 设计一个个人纳税计算程序
- 设计一个个人纳税计算程序
- 根据收入计算纳税和税后所得
- C语言 收入与纳税计算
- 合计金额计算
- 自定计算金额
- 金额计算精度问题
- ListView滚动时加载图片(只加载当前屏幕图片)
- 把经纬度显示定位在google地图 (精简)
- NAT,ARP之”混战
- bit
- PROTEL常用元件封装列表
- 计算纳税金额
- 原来PATH的菜单效果如此简单。布局+TranslateAnimation搞定
- 遇到的计算机日语总结(待续)
- gedit显示行号
- 两个多位数相乘
- Sharepoint 2007 权限开发(二)
- CString类型
- 百度之星 2005年 初赛题目一 java 版本
- PPT超链接字体颜色修改方法