设计vb程序计算税率
来源:互联网 发布:mac共享文件夹在哪 编辑:程序博客网 时间:2024/06/11 05:45
代码:
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 = ""
End Sub
心得体会:通过老师的讲解,明白了Select Case结构,并根据课本上的程序,自己慢慢的编出了合适的程序,感觉慢慢的懂得了一些编程技巧。
- 设计vb程序计算税率
- 计算税率
- 计算税率
- 税率计算
- 计算税率
- C#计算税率
- 税率计算公式
- 计算工资税率
- 根据税码取税率计算税额
- 税率
- 税率
- 2011税率改革 3500起征 个人所得税计算
- VB.Net程序计算程序运行时间
- N阶行列式计算程序(VB,递归)
- 二手车车辆购置税税率及过户费的计算
- 圆柱直齿轮设计程序-vb
- 常用水文预报算法和计算程序VB版
- 求助,用VB编写个计算程序 高手解答
- XMPP连接人人网
- SGU_106 The equation 同余方程
- 求1!+....+5!的和
- google使用列表2
- C++的句柄类思想
- 设计vb程序计算税率
- 关于openGl与CUDA协作的具体实现
- ant自动构建
- android面试题
- SQL2005附加数据库问题
- 安卓真机上UDP程序收不到PC机数据包的解决方法
- 设计模式之---Decorator 模式
- jna
- Dnode:基于Node.js给浏览器提供异步远程方法调用