A.B.I.S

B.B.I.S.S

C.B.S.I

D.B.S.I.I

A.B.I.S

B.B.I.S.S

C.B.S.I

D.B.S.I.I

A.B.I.S

B.B.I.S.S

C.B.S.I

D.B.S.I.I

A.全场太子

B.美容师

C.全场最佳母犬

D.全场最佳公犬

A.单犬种展单一组别冠军

B.犬种群优胜犬奖

C.全场最佳幼犬奖

D.最佳单犬种奖

A.单犬种展单一组别冠军

B.犬种群优胜犬奖

C.全场最佳幼犬奖

D.最佳单犬种奖

A.单犬种展单一组别冠军

B.犬种群优胜犬奖

C.全场最佳幼犬奖

D.最佳单犬种奖

， 程序检查编号的合法性 ， 若编号合法 ， 则焦点可以离开 Text1 文本框 ； 否则 ， 显示相应错误信息 ， 并自动选中错误的字符，且焦点不能离开 Text1 文本框 （见图）。

合法编号的组成是：前 2 个字符是大写英文

字母，第 3 个字符是 “ - ” ，后面是数字字符

（至少 1 个）。下面程序可实现此功能，请

填空。

Private Sub Text1_Lostfocus()

Dim k%,n%

n=Len([13] )

For k=1 to if (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

Text.SelLength= [14]

Text1. [15]

End Sub

A.CDV

B.CPV

C.CUV

D.CRV

A.CDV

B.CPV

C.CUV

D.CRV

A.FCI

B.AKC

C.KC

D.WCI