编写一个窗体程序，窗体中有一个文本框，要求文本框输入的字符窜长度必须为6否则焦点不能离开文本框

试过了，没问题
Private Sub Text1_LostFocus()
Dim a As Integer
If Len(Text1.Text) <> 6 Then
Text1.SetFocus
MsgBox "必须6个字符！！", vbOKOnly, "提示"

Else
Exit Sub
End If
End Sub

假定你会写代码在窗体Load事件中使用SetFocus为文本框设置焦点 然后在文本框的焦点离开事件中判断使用函数len()判断文本框中的字符串长度是否为6 否则使用SetFocus设置焦点到文本框 这样的话 除了你关闭程序 否则 焦点是不会离开文本框的.