程序入门案例：设置登录界面密码的程序
代码
登录界面，三次输入密码机会。

Option Explicit
Const UserName As String = "聚力"
'定义用户名
Const PassWord As Double = 2020#
'定义口令变量
Private Const MAXNCS = 3
'定义用户名和密码输入错误次数
Private ShuRuCS As Integer
'定义用户名和密码输入次数
Private Sub Command1_Click()
If Text1.Text <> UserName Or Text2.Text <> PassWord
Then '密码及口令判断是否正确语句
ShuRuCS = ShuRuCS + 1
If ShuRuCS <= MAXNCS Then
MsgBox "用户名或密码输入错误，请重新输入！" '密码输入错误消息盒
ExitSub '退出sub过程
Else
MsgBox "密码输入错误超过三次，您无法使用该软
件，请联系开发者，谢谢！" '密码输入错误超次数
End '退出整个程序
End If
Else
MsgBox "登录成功！" '提示登录成功并出现form2
Form2.Show
End If
End Sub。