2楼对,3楼判断有错。窗体放两个标签:用户名及密码,后跟两个文本框。外加一个确定按钮privateSubCommand1_Click()Iftext1.text<>"123"ortext2.text<>"123456"thenmsgbox"对不起,您输入账号或密码错误"Elsemsgbox"成功登陆"EndifEndSub