doloop.vb

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

' FastScript v1.0          
' 'do-loop' operator demo   


dim i, j

  j = 1
  i = 0
  do
    j = j + 1
    Inc(i)
  loop while i <> 10

  ShowMessage(j)