www.pudn.com > FastScript15.rar > for.vb

' FastScript v1.0           
' 'For' operator demo       
 
 
dim i 
 
  for i = 0 to 9 
    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 
  next