填空题：有如图所示的窗体。程序执行时先在Text1文本框中输入编号，当焦点试图离开Text1时，程序检查编号的合法性，若编号合法

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

合法编号的组成是：前2个字符是大写英文字母，第3个字符是“_”，后面是数字字符 (至少1个)。下面程序可实现此功能，请填空。
PrivateSubText1_LostFocus()
Dim k％，n％
N=Len(【13】)
For k=1 TO IIf(n>3，n，4)
C=Mid(Textl.Text，k，1)
Select Case k
Case 1，2
Ifc<“A”Or C>“Z”Then
MsgBox(”第”& k & “个字符必须大写字母!”)
SetPosition k：Exit For
End lf
Case 3
Ifc<>“_” Then
MsgBox(“第”& k & “个字符必须是字符““_””)
SetPosition k：Exit For
End If
Case Else
Ifc<“0”Or c>“9” Then
MsgBox(“第”& k & “个字符必须是数字!”)
SetPosition k：Exit For
End If
End Select
Next k
End Sub
Private Sub SetPosition (pos As Integer)
Textl.SelStart=Pos-1：Textl.SelLength=【14】：Textl.【15】
End Sub