条件句（3）Select Case结构

select case 结构是多分支控制结构.也叫多项判断,是从多个选项中选出一项执行，在功能上等于If then else语句.当列出内容较多时,用select case比用If.. then ...else更容易理解。

 

Select case 测试条件

   ［case 表达式1

     ［语句序列1］］

   ［case 表达式2］

      ［语句序列2］

  。

  。

  。

  

［case else］

       ［语句序列N］

End Select

 

 

 

 

 

 

如

...

static Index As Ingeger

  Index = Index + 1

Select Case Index                      

case 1                                 

  Form1.caption = "A"                  

case 2

  Form1.caption = "B"

Case 3

  Form1.caption = "C"

  Index = 0

Case else

  Index = 0

End Select

......