大家可以帮我补充完这两道程序吗？

Question

各位晚上好：
    今天老师出了两道VB期未上机题给我们做，但这两道题，我都有一点不会做。题目如下
：
------------------------------------------------------------------------------
第一题：新建一个工程，添加两个窗体，在第一个窗体(Form1)上分别画标签框（Label1），
文本框（Text1），三个命令按钮：登录（Command1），重输(Command2)，退出(Command3)。
程序运行后，在文本框（Text1）中输入密码，如果密码为：password，则显示第二个窗
体（Form2），否则，用MsgBox（）函数提示密码错误，不能进入Form2。但如果连续三次输
入的密码都不对，则程序自动结速运行退出。
------------------------------------------------------------------------------
第二题：运行一个程序后，如果五秒内不对该程序进行操作，则自动退出程序。请问这道题
的代码如何编写？可以给出详细代码，并作下说明吗？
------------------------------------------------------------------------------
急切待复！
衷心感谢！--
互相学习，共同进步，携手共创美好明天！ 
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓 
Ｑ　 Ｑ：153060094 
E－mail：[email protected] 
主　 页：http://rsrmdnly.icpcn.com/

Answer 1

都是基础题自己做吧
第一题就一个if语句
第二题用timer控件，里面放个计数器。数到5就unload me就成了

Answer 2

是呀！第一题还是自己做比较好。
第二题只要加个timer 控件就可以了
设置五秒自动关闭
当检测到鼠标事件就设置timer1.enabled=false就好啦！

Answer 3

第一题：
Dim i As IntegerPrivate Sub Command1_Click()
If Text1 = "password" Then
Form2.Show
Form2.ZOrder 0
Else
MsgBox "密码错误！", vbCritical
i = i + 1
If i = 3 Then
MsgBox "输入超过三次，强行退出！！", vbCritical
End
End If
End If
End SubPrivate Sub Command2_Click()
Text1 = ""
End SubPrivate Sub Command3_Click()
End
End Sub

Answer 4

第二题：(timer1.Interval =1000)
Private Sub Timer1_Timer()
i = i + 1
If i > 5 Then
End
End If
End Sub

Answer 5

Dim n As IntegerPrivate Sub Command1_Click()
Timer1.Enabled = False     '设置timer控件无效
End SubPrivate Sub Form_Click()
Timer1.Enabled = False
End SubPrivate Sub Form_Load()
n = 1
End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = False
End SubPrivate Sub Timer1_Timer()
Timer1.Interval = 1000If n = 5 Then
   Unload Me        '超过5秒退出
Else
   n = n + 1
End IfEnd Sub

Answer 6

窗体上记得要添加一个timer控件
设置Timer1.Interval = 1000