21、Visual Basic 2010 编程：循环与图形的奇妙世界（上）

Visual Basic 2010 编程：循环与图形的奇妙世界（上）

1. 登录程序与 Do Loop Until

用户登录计算机是 Do Loop Until 循环的一个典型示例。用户输入登录信息以访问计算机、网络或网站，至少需要一次尝试，如果出错可能需要两到三次。为了保证系统安全，必须防止重复的失败尝试。以下是登录程序的代码：

Do
    shoAttempts = shoAttempts + 1
    strLogin = InputBox("Enter your login", "System Access")
    strLogin = strLogin.ToUpper
    If strLogin <> strAccess Then
        MsgBox("Login failed", MsgBoxStyle.OkOnly)
    End If
Loop Until strLogin = strAccess Or shoAttempts >= 3

'If login isn't correct, then end the program
If strLogin <> strAccess Then
    End
Else
    MsgBox("Welcome!", MsgBoxStyle.OkOnly)
End If

这个循环至少会执行一次，执行完循环内的代码后，会检查是否需要重复循环。循环会一直重复，直到输入正确的登录信息或用户尝试次数超过限制。循环下方的 If 语句用于决定是否允许访