您的位置：首页 > 编程语言 > VB

vb select case 基本语句用法

2010-11-04 16:49 330 查看

vb select case 基本语句用法

今天我们学习 select case 这个语句的用法也给出了个例子来用下这个基本语句的方法

看以下的解释

以下是引用片段：

Option Explicit

'*************************************************************************

'企业能发多少奖金？-----------条件值中带有Is关键字

'企业发放奖金要根据利润提成：

'利润中高于10万元时，奖金可提成10%

'利润中高于10万元，低于或等于20万元的部分，可提成7.5%

'利润中高于20万元，低于或等于40万元的部分，可提成5%

'利润中高于40万元，低于或等于60万元的部分，可提成3%

'利润中高于60万元的部分，可提成1.5%

'要求输入利润，计算出应发多少奖金

'*************************************************************************

Private Sub Command1_Click()

Dim i As Long

Dim bonus As Long

i = Val(InputBox("请输入利润："))

Select Case i

Case Is <= 100000

bonus = i * 0.1

Case Is <= 200000

bonus = 100000 * 0.1 + _

(i - 100000) * 0.075

Case Is <= 400000

bonus = 100000 * 0.1 + _

100000 * 0.075 + _

(i - 200000) * 0.05

Case Is <= 600000

bonus = 100000 * 0.1 + _

100000 * 0.075 + _

200000 * 0.05 + _

(i - 400000) * 0.03

Case Is > 600000

bonus = 100000 * 0.1 + _

100000 * 0.075 + _

200000 * 0.05 + _

200000 * 0.03 + _

(i - 600000) * 0.015

End Select

MsgBox ("利润为" + Str$(i) + "，奖金为" + Str$(bonus))

End Sub

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签： 职场休闲 ds

相关文章推荐

新的分享

章节导航