Private Sub Command1_Click() If Text1.Text=″″ Then′没有输入用户 MsgBox ″请输入用户名!″,vbOKOnly+vbCritical,″错误″ Exit Sub′退出这个过程 Else′输入用户名 If Text1.Text=″记忆″ And Text2.Text=″糜稽″ Then ′输入的用户名是″记忆″且密码为″糜稽″ MsgBox ″欢迎进入!″,vbOKOnly+vbInformation,″欢迎进入″ next do for "记忆"<=3个月 …………………… (此刻小糜稽脑中响起:警报警报,超过承受限度,判定为恶意程序,系统自动进行防卫,防卫等级A!~~~~轰,CPU运行过量,警报警报~~~~~警~~~~~~~~~~~~~报~~~~~~~~~~)《=这就是死机的经过啊~~ msgbox "wrong!!!" loop Else ′如果不是″记忆″或密码不是″糜稽″ MsgBox ″用户名或密码错误!″,vbOKOnly+vbCritical,″错误″ Text1.Text=″″ ext2.Text=″″ ′清空Text1及Text2控件中的文本内容,重新输入 End If End If End Sub