vb select case 基本语句用法
今天我们学习 select case 这个语句的用法 也给出了个 例子来 用下 这个 基本语句的 方法
看 以下的 解释
以下是引用片段: Option Explicit '************************************************************************* Private Sub Command1_Click() Dim i As Long i = Val(InputBox("请输入利润:")) Select Case i Case Is <= 100000 bonus = i * 0.1 Case Is <= 200000 bonus = 100000 * 0.1 + _ Case Is <= 400000 bonus = 100000 * 0.1 + _ Case Is <= 600000 bonus = 100000 * 0.1 + _ Case Is > 600000 bonus = 100000 * 0.1 + _ End Select MsgBox ("利润为" + Str$(i) + ",奖金为" + Str$(bonus)) End Sub |