纳税金额
来源:互联网 发布:php public static 编辑:程序博客网 时间:2024/05/01 19:18
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】年终奖纳税
- android 音乐播放器----歌词在线下载
- 比较两个数的大小
- Linux下find命令的用法
- Handling ORA-1403 ora-12801 on logical standby app
- java.lang.IllegalStateException: getOutputStream() has already been called for t
- 纳税金额
- android 音乐播放器----获取专辑封面图片
- validateJarFile jar not loaded. See Servlet Spec 2.3, section 9.7.2. Offending c
- USACO 1.4.1解题报告
- 无线Trace脚本(旧格式)-平均延时
- home键监听
- matlab把图片pgm格式转换成png格式
- 知道生日算日期
- 无线Trace脚本(旧格式)-吞吐量