サンプル・スクリプト

このスクリプトには、次の情報が含まれます:

• 呼出しルーチンで記述されたサンプル文。

• 呼出しルーチンに設定され、Units_Rates関数に渡される変数。

• Units_Rates関数と同一になるように設定された呼出しルーチンの変数名。

  Sub Calculate()
  Dim Destination
  Dim Units      
  Dim Rates      
  Destination = "A#Sales"
  Units = "A#UnitsSold"
  Rates = "A#Price"
  Call Units_Rates(Destination,Units,Rates)
  End Sub
  ' Beginning of the Units_Rates function
  Sub Units_Rates(Destination,Units,Rates)
  HS.EXP Destination & " = " & Units & " * " & Rates
  End Sub