及Case子句一起使用Is的方法.pdfVIP

和Case⼦句⼀起使⽤Is的⽅法 有时候，作决定是基于测试表达式的条件，例如它是否⼤于，⼩于，等于或使⽤⼀些 其它的 系运算符 （参见表5-1）。 键字Is使你能够在Case⼦句⾥使⽤条件表达式。 使⽤ 键字Is的SelectCase语句的语法如下： 表5-1 VBA 中的 系运算符 Select Case 测试表达式 Case Is 条件1 如果条件1为真时执⾏的语句 Case Is 条件2 如果条件2为真时执⾏的语句 Case Is 条件N 如果条件N为真时执⾏的语句 End Select 例如，我们来⽐较⼏个数字： Select Case myNumber Case Is 10 MsgBox The number is less than 10 Case 11 MsgBox You entered ele en. Case Is =100 MsgBox The number is greater than or equal to 100. Case Else MsgBox The number is between 12 and 99. End Select 假设变量myNumber为120 ，那么第三个Case⼦句为真，并且只有Case Is = 100和Case Else之间的语句会被执⾏。 确定Case⼦句⾥数值的范围 在前⾯的例⼦⾥，你看到了在每个Case⼦句⾥使⽤⼀个简单表达式。然⽽，很多时候，你可 能需要在Case⼦句⾥确定⼀个数值范围。可以通过 键字To⽤于表达式的数值之间来实现 它，如下所⽰： Select Case unitsSold Case 1 to 100 Discount = 0.05 Case Is = 500 Discount = 0.1 Case 501 to 1000 Discount = 0.15 Case Is 1000 Discount = 0.2 End Select 我们来分析⼀下上⾯的Select Case代码块，假设变量un tsSold当前值为99 。VB将变量 un tsSold的值与Case⼦句的条件表达式进⾏⽐较。第⼀和第三条Case⼦句⽰范如何通 过使⽤ 键字To在条件表达式⾥使⽤数值范围。因为un tsSold=99 ，第⼀个Case⼦句 ⾥的条件表达式为真，因此，VB将0 .05赋给变量D scount 。第⼆个Case⼦句如何呢？ 它也为真。尽管，很明显99⼩于等于500 ，VB不会执⾏相 的语句D scount=0 .1。原因 是，⼀旦VB找到了⼀个真条件的Case⼦句，它就不会去管其它的Case⼦句，它将跳过 那些代码，继续执⾏End Select语句后⾯可能有的语句。 我们来练练使⽤Select Case语句，在函数过程⾥使⽤它。回想在前⾯的章节⾥，函数过程允 许你将结果返回给⼀个⼦过程。假设该⼦过程必须根据销售的套数来显⽰⼀个折扣，你可以 从⽤户那⾥获得销售套数，然后允许⼀个函数来确定需要的折扣： 1. 在模块SelectCase⾥输⼊下列⼦过程： Sub DisplayDiscount() Dim unitsSold As Integer Dim myDiscount As Single unitsSold = InputBox(Enter the number of sold units:) myDiscount = GetDiscount(unitsSold) MsgBox myDiscount End Sub 2. 输⼊下列函数过程： Function GetDiscount(unitsSold As Integer) Select Case unitsSold Case 1 To 200 GetDiscount = 0.05 Case Is =500 GetDiscount = 0.1