使用 While... Wend

在 BSL 中提供了 While...Wend 陳述式，方便熟悉其用法的使用者使用。不過，由於 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