第6讲 选择结构.pptVIP

Private Sub Command1_Click() Dim a As String a = abcd If Len(a) 6 Then Print 6 ElseIf Len(a) = 5 Then Print 5 ElseIf a = abcd Then Print * Else Print # End If End Sub 例3：验证用户密码 程序要求： 用户从“用户姓名”文本框(Text1)中输入用户姓名，从“用户密码”文本框(Text2)中输入密码，单击“登陆”按钮(command1)，进入用户欢迎界面（Form2）；若密码连续三次输入错误，则弹出对话框显示“密码错误”。 “登陆”按钮程序代码： Private Sub Command1_Click() Static count As Integer If Text1.Text = 管理员 And Text2.Text = 1234 Then Unload Me Form2.Show Else count = count + 1 If count = 3 Then Text1.Enabled = False Text2.Enabled = False