CONTINUE - Basicsoftのうぃき
ープの次の発生にジャンプします。BREAK.の反対。ExamplesFor I As Integer = 1 To 10 If I = 1 ThenPrint "One";ContinueEndifIf I = 2 ThenPrint " Two&q
ープの次の発生にジャンプします。BREAK.の反対。ExamplesFor I As Integer = 1 To 10 If I = 1 ThenPrint "One";ContinueEndifIf I = 2 ThenPrint " Two&q
ExamplesDim k As IntegerFor k = 1 To 10 If k < 5 Or If k > 5 ThenPrint k;;ElsePrintPrint "5 has been reached!" End IfNext
If / Then ( ステートメント )INPUT “MARKS”, M IF M<75 THEN PRINT “ADMIT” END IFFormatif boolean_expression then statement
ction Calcmean(fSum As Float, fCount As Float) As Float If fCount = 0 ThenPrint "Division by 0 in function Calcmean" QuitEndifRetu
2 22:31:30 -> 4 If WeekDay("6/8/2008") = 0 ThenPrint "It is a Sunday"ElsePrint "It is not a Sunday
er Name:";Input UserNameIf Comp(UserName, "Akiti") = 0 ThenPrint "You Can Enter"ElsePrint "Sorry, You Cannot E
Dim A, B As BooleanA = 10 < 20B = 20 > 30If A And B ThenPrint "Both A and B are TRUE"ElsePrint "Either A or
39;イベントを開催しますbResult = Raise BeforeSend("MyData")If bResult ThenPrint "Canceled !"EndifEvent Handlerデフォルトでは、Name_EventNa
Confirm (Function)Formatconfirm ( prompt )confirm ( prompt, boolean_expression)returns boolean_expression説明この関数は、「はい」および「いいえ」ボタンのあるメッセージボックス
-4;; -9 Mod -41 -1 1 -15による除数の検定Dim N As IntegerN = 563If N Mod 5 = 0 ThenPrint "The number " & N & " is divisible by
Try to acquire the lockTry hLock = Lock "~/my-lock"If Error ThenPrint "Locked is already acquired. Try again later." Ret
= 2Sub PrintOn(Where As Integer, What As Variant)If Where = ON_STDOUT ThenPrint WhatElse If Where = ON_MESSAGE ThenMessage(Str$(What))EndifE