While... Wendの使用

While...Wend文は、その使用方法をよく理解しているユーザー向けにBSLで提供されます。ただし、While...Wendは柔軟性が欠けるため、かわりにDo...Loopを使用することをお薦めします。

次の例は、while wendループの使用方法を示しています:

例1:

Sub BasicWhileWend()
    Dim counter, myNum
            counter = 0
            myNum = 5
            While myNum > 0
                myNum = myNum - 1
                counter = counter + 1
            Wend
            'This loop made 5 repetitions
        End Sub