[填空題] 有如圖7所示的窗體。程序執(zhí)行時(shí)先在Text1文本框中輸入編號(hào)，當(dāng)焦點(diǎn)試圖離開Text1時(shí)，程序檢查編號(hào)的合法性，若編號(hào)合法，則焦點(diǎn)可以離開Text1
[填空題] 有如圖7所示的窗體。程序執(zhí)行時(shí)先在Text1文本框中輸入編號(hào)，當(dāng)焦點(diǎn)試圖離開Text1時(shí)，程序檢查編號(hào)的合法性，若編號(hào)合法，則焦點(diǎn)可以離開Text1文本框；否則，顯示相應(yīng)錯(cuò)誤信息，并自動(dòng)選中錯(cuò)誤的字符，且焦點(diǎn)不能離開Text1文本框(見圖7)。
合法編號(hào)的組成是：前兩個(gè)字符是大寫英文字母，第三個(gè)字符是“-”，后面是數(shù)字字符(至少一個(gè))。下面程序可實(shí)現(xiàn)此功能，請?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
End If
Case Else
If c＜"0" Or c＞"9" Then
MsgBox("
正確答案：(13)Text1.Text (14)1 (15)SetFocus
參考解析：根據(jù)題中代碼，第一個(gè)空所在行要獲得文本框中文本的長度，所以第一個(gè)空填寫Text1.Text；而SetPosition過程用于設(shè)置文本框的相關(guān)屬性，SelStart表示選中文本的起始位置，返回的是選中文本的第一個(gè)字符的位置，SelLength表示選中文本的長度，返回的是選中文本的字符串個(gè)數(shù)，本題需要逐個(gè)檢查編號(hào)的合法性，所以第二個(gè)空填寫1；第三個(gè)空所在行用于保證編號(hào)不合法時(shí)焦點(diǎn)不能離開Text1文本框，所以第三個(gè)空填寫SetFocus。
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。