纳税金额
来源:互联网 发布:乌鲁木齐网络赛 编辑:程序博客网 时间:2024/04/27 21:11
Private Sub Command1_Click()
Dim a, x As Single
a = Val(Text1.Text)
If a <= 800 Then
x = 0
Else
a = a - 800
If a <= 500 Then
x = a * 0.05
Else
x = 500 * 0.05
a = a - 500
If a <= 1500 Then
x = x + a * 0.1
Else
x = x + 1500 * 0.1
a = a - 1500
If a <= 3000 Then
x = x + a * 0.15
Else
x = x + 3000 * 0.15
a = a - 3000
If a <= 15000 Then
x = x + a * 0.2
Else
x = x + 15000 * 0.2
a = a - 15000
If a <= 20000 Then
x = x + a * 0.25
Else
x = x + 20000 * 0.25
a = a - 20000
If a <= 20000 Then
x = x + a * 0.3
Else
x = x + 20000 * 0.3
a = a - 20000
If a <= 20000 Then
x = x + a * 0.35
Else
x = x + 20000 * 0.35
a = a - 20000
If a <= 20000 Then
x = x + a * 0.4
Else
a = a - 100000
x = x + a * 0.45 + 100000 * 0.45
End If
End If
End If
End If
End If
End If
End If
End If
End If
Text2.Text = Str(x)
End Sub
Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
End Sub
- 纳税金额
- 纳税金额
- vb计算纳税金额
- vb计算纳税金额
- 计算纳税金额
- 纳税金额计算
- 计算纳税金额
- 计算纳税金额
- RFID 纳税
- 纳税计算器
- 纳税申报
- 纳税情况说明报告
- 个人纳税计算程序
- 依法纳税,逃税可耻!!!!
- 纳税,坚持不懈...switch
- 教你如何纳税
- 增值税的纳税筹划
- 【20111208】年终奖纳税
- 实验报告<幻方,数组的排序和向数组中插入某个数>
- 解析linux根文件系统的挂载过程
- 【转】C++ string CString详解
- 知道生日算星期
- 学习笔记二,vc++创建多线程服务器(二)
- 纳税金额
- 学习
- 50个必备的实用jQuery代码段
- 比较俩个数的大小
- 大学生职业生涯规划讲座
- 比较三个数的大小
- 时实在线经纬度查询
- 摄氏华氏温标转换
- Computer vision with iOS Part 1: Building an OpenCV framework