End Sub 4. Private Sub Command1 Click( If Text1. Text="1111"Then 采用IF语句对输入密码正确与否进核对 Form1 Caption="欢迎进入本系统 如正确,则窗体的标题设为"欢迎进入本系统 Forml Back Color=vb Yellow 窗体的背景颜色设为黄色 Labell visible= True 设"欢迎进入本系统"的红色标签为可见状态 Command l visible= False 设 Command l和 Command2为不可见 Command2. Visible= False Text1. Visible= False 设Tetl为不可见 Else Form1. Caption="密码错,请重新输入" 如密码错,窗体标题设为"密码错,请重新输入 End lf End Sub Private Sub Command2 Click( End End SubEnd Sub 4. Private Sub Command1_Click() If Text1.Text = "1111" Then '采用 IF 语句对输入密码正确与否进核对 Form1.Caption = "欢迎进入本系统" '如正确，则窗体的标题设为"欢迎进入本系统" Form1.BackColor = vbYellow '窗体的背景颜色设为黄色 Label1.Visible = True '设"欢迎进入本系统"的红色标签为可见状态 Command1.Visible = False '设 Command1 和 Command2 为不可见 Command2.Visible = False Text1.Visible = False '设 Text1 为不可见 Else Form1.Caption = "密码错，请重新输入" '如密码错，窗体标题设为"密码错，请重新输入" End If End Sub Private Sub Command2_Click() End End Sub