窗体是密码检验程序。程序运行时，用户在文本框输入密码，单击确定按钮对密码进行检验。密码正确

后，标签label2显示“密码正确”;若密码不正确，标签显示“密码错误”，若密码输入错误达3次，将自动退出程序。

Private Sub Command1_Click() '确定按钮

Static n As Integer

----1----mypwd As String = "123456" '预设密码为自定义常量

n = n + 1

Label2.Visible = True

If ----2---- Then

Label2.Caption = "密码正确"

Else

If n ＜ 3 Then

Label2.Caption = "密码错误!"

Text1.Text = ""

Else

----3----

End If

End If

End Sub