case.vb

脚本处理控件源码,支持的脚本格式有:Pascal,C++,JScript,Basic

' FastScript v1.0          
' 'Case' operator demo    


  dim i = 0, j

  select case i
    case 1: j = 1
    case 2..10: j = 2: Inc(j)
    case else: j = 10
  end select
  ShowMessage(j)