[填空題] 有如圖所示的窗體。程序執(zhí)行時(shí)先在Text1文本框中輸入編號(hào)，當(dāng)焦點(diǎn)試圖離開(kāi)Text1時(shí)，程序檢查編號(hào)的合法性，若編號(hào)合法，則焦點(diǎn)可以離開(kāi)Text1文
[填空題] 有如圖所示的窗體。程序執(zhí)行時(shí)先在Text1文本框中輸入編號(hào)，當(dāng)焦點(diǎn)試圖離開(kāi)Text1時(shí)，程序檢查編號(hào)的合法性，若編號(hào)合法，則焦點(diǎn)可以離開(kāi)Text1文本框；否則，顯示相應(yīng)錯(cuò)誤信息，并自動(dòng)選中錯(cuò)誤的字符，且焦點(diǎn)不能離開(kāi)Text 1文本框。
合法編號(hào)的組成是：前2個(gè)字符是大寫英文字母，第3個(gè)字符是"-"，后面是數(shù)字字符(至少1個(gè))。下面程序可實(shí)現(xiàn)此功能，請(qǐng)?zhí)羁铡?/p>
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＆"個(gè)字符必須大寫字母!")
SetPosition k：Exit For
End If
Case 3
If c＜＞"_ "Then
MsgBox"第"＆k＆"個(gè)字符必須是字符""-"""
SetPosition k：Exit For
End If
Case Else
If c＜"0" Or c＞"9" Then
MsgBox("第"＆k
正確答案：A
詞條內(nèi)容僅供參考，如果您需要解決具體問(wèn)題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。