Visual Basic .NET在某些条件为真时进行while循环迭代