[填空题] 有如图所示的窗体。程序执行时先在Text1文本框中输入编号，当焦点试图离开Text1时，程序检查编号的合法性，若编号合法，则焦点可以离开Text1文本框；否则，显示相应错误信息，并自动选中

[填空题] 有如图所示的窗体。程序执行时先在Text1文本框中输入编号，当焦点试图离开Text1时，程序检查编号的合法性，若编号合法，则焦点可以离开Text1文本框；否则，显示相应错误信息，并自动选中

[填空题] 有如图所示的窗体。程序执行时先在Text1文本框中输入编号，当焦点试图离开Text1时，程序检查编号的合法性，若编号合法，则焦点可以离开Text1文本框；否则，显示相应错误信息，并自动选中错误的字符，且焦点不能离开Text 1文本框。

合法编号的组成是：前2个字符是大写英文字母，第3个字符是"-"，后面是数字字符(至少1个)。下面程序可实现此功能，请填空。

Private Sub Text1_LostFocus()

Dim k%.n%。

n=Len( (13) )

For k=1 To IIf(n＞3，n，4)

c=Mid(Text1.Text,k,1)

Select Case k

Case 1.2

If c＜"A" Or c＞"Z" "Then

MsgBox("第" ＆k＆"个字符必须大写字母!")

SetPosition k：Exit For

End If

Case 3

If c＜＞"_ "Then

MsgBox"第"＆k＆"个字符必须是字符""-"""

SetPosition k：Exit For

End If

Case Else

If c＜"0" Or c＞"9" Then

MsgBox("第"＆k

正确答案：

Text1.Text(或Text1)