case.vb

来自「FastScript 1.94 Full Source」· VB 代码 · 共 14 行

' 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)