求vb高手帮忙解答作品题！在这里先说声谢谢了。 答案满意可以追加

求vb高手帮忙解答作品题！在这里先说声谢谢了。 答案满意可以追加

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
追问太感谢了！还有2题怎么样？完成了给你再加20分