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 |
原文地址:https://www.jb51.cc/vb/261643.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。