1，
Private Sub Command1_Click()
Text1.Text = "祝你考试成功"
End Sub
Private Sub Command2_Click()
Text1.Text = ""
End Sub
2，
Private Sub Command1_Click()
Dim a As Integer
If Text1.Text = "vb1234" Then
a = MsgBox("欢迎使用本系统", vbInformation, "提示")
Else
a = MsgBox("密码错误，请重新输入", vbInformation, "提示")
Text1.Text = ""
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024