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

有如图所示的窗体。程序执行时先在Text1文本框中输入编号，当焦点试图离开Text1时，程序检查编号的合法性，若编号合法，则焦点可以离开Text1文本框；否则，显示相应错误信息，并自动选中错误的字符，且焦点不能离开Text1文本框(见图)。合法编号的组成是：前2个字符是大写英文字母，第3个字符是“．”，后面是数字字符(至少1个)。下面程序可实现此功能．请填空。

Private Sub Text1_LostFocus()
Dim k%．n%
n=Len( 【1】 )
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&“个字符必须是数字!”)
SetPosition k
Exit For
End If
End Select
Next k
End Sub
Private Sub SetPosition(pos As Integer)
Text1．SelStart=pos-1
Text1．SelLength=【2】
Text 1．【3】
End Sub