Private Sub 考生姓名_BeforeUpdate(Cancel As Integer) Dim c1 c1 = 考生姓名.Text If Len(LTrim(Trim(c1))) < 2 Then MsgBox ("请输全您的真实姓名。") ElseIf Asc(c1) > 0 And Asc(c1) < 255 Then MsgBox ("请输入中文姓名。") End IfEnd Sub