Function Main() As Integer
Dim i As Integer, a As Integer = 0, b As Integer = 2
For i = 1 To 7
If a = i Then
While a
If a = b Then
Console.Write("a")
Return 0
Else
Console.Write("b")
Return 1
End If
Return 2
End While
End If
Next i
End Function