有一个标题为“登录”的用户登录窗体,窗体上有两个标签,标题分别为“用户名:”和“密码:”,用于输入用户名的文本框名为“UserName”,用于输入密码的文本框名为“User-PassWOrd”,用于进行倒计时显示文本框名为“Tnum”窗体上有一个标题为“确认”的按钮名为“OK”,用于输入完用户名和密码后单击按钮确认。 输入用户名和密码,如用户名或密码错误,则给出提示信息;如正确,则显示“欢迎使用!”信息。要求整个登录过程在30秒中完成,如果超过30秒还没有完成正确的登录操作,则程序给出提示自动终止整个登录过程。 OptionCompare SatabaseDim Second As Integer PrivateSub Form_Open(Cancel As Integer) Second=0 End Sub PrivateSub Form. Timer( ) If Second>30 Then MsgBox”请在30秒中登录”,vbCrcal,”警告” Doemd.Close Else Me!Tnum=30-Second倒计时 End If Second=__________ End Sub PrivateSub OK Click( ) If Me.UsetName$amp;