Private Sub Command1_Click()un = InputBox("请输入 用户名")If un = "张三" Then' VBA接受张三并进行下一步处理End IfEnd SubPrivate Sub Form_Load()Command1.Caption = "登陆"End Sub
x = InputBox("请输入 用户名")