Dim i As Integer
Set i = 1
Do While i
    If flag(i) = 1 Then
        i = i + 1
    Else
        'here type you what you want to execute in i<>1
    End If
Loop

引用:

原帖由 sambfish 于 2009-9-2 00:04 发表
VB......VB的语句结构基本都忘记了....内牛满面.....

使用GOTO语句是非常不好的事情....VB太不严谨了....

我虽然也不是expert，但是也不用goto好多年了。