EXIT-スクリプト構文(関数を抜ける):UWSC,

<制御文>  [ ] 内は省略可能
 
// 関数を抜ける
 EXIT

 // 直ちにプログラムを終了  
 EXITEXIT [終了コード]

 

【例:サンプル】
// 入力された数を階乗計算する
While True
 数 = input(“1~10の間の数を入力してください”)
 ifb VAL(数) = ERR_VALUE
   MsgBox(“数値を入れてください”)
   Continue
 endif
 ifb (数<1) or (数>10)
   MsgBox(“指定範囲内の数を入れてください”)
   Continue
 endif
 break
wend

print 数 + “の階乗の答えは” + Format(階乗計算(数), 10) + “です”  // 10桁分の幅を取り表示
// Mainプログラムはここまで

// 関数定義
function 階乗計算(値)
  ifb 値 = 0 then
    Result = 1
    Exit
  endif
  Result =値 *階乗計算(値-1)  // このように再帰計算もできるよ
fend

このエントリーをはてなブックマークに追加

コメントを残す