使用 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