defparams.vb

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

' FastScript v1.0          
' Default params demo      


sub p1(i, j = 1)
  ShowMessage(IntToStr(i) + " " + IntToStr(j))
end sub

dim i

  p1(0)
  p1(1, 2)
  p1(0)
  i = 0
  Inc(i)
  Inc(i, 2)
  ShowMessage(i)