if.vb

来自「脚本处理控件源码,支持的脚本格式有:Pascal,C++,JScript,Bas」· VB 代码 · 共 21 行

' FastScript v1.0          
' 'If' operator demo       


dim i

  i = 10
  if i = 10 then i = 1

  if i = 1 then 
    ShowMessage(1)
  elseif i = 2 then 
    ShowMessage(2)
  elseif i = 3 then 
    ShowMessage(3)
  elseif i = 4 then 
    ShowMessage(4)
  elseif i = 5 then 
    ShowMessage(5)
  end if