小李編寫(xiě)了一個(gè)VB 程序，功能如下：在文本框 Text1 中依次輸入各個(gè)區(qū)間的起點(diǎn)和終點(diǎn)（數(shù)據(jù)均為小于100的正整數(shù)，都用逗號(hào)分隔并以逗號(hào)結(jié)尾），單擊“查找”按鈕 Command1后，在 Label2上顯示最短區(qū)間長(zhǎng)度。例如，三個(gè)區(qū)間為（1，10），（15，23），（26，29），輸入格式及程序運(yùn)行界面如第11題圖所示。

（1）要使窗體Form1標(biāo)題顯示“最短區(qū)間長(zhǎng)度”，則需修改該窗體的

C

C

（單選，填字母：A.Font/B.Text/C.Caption）屬性。
（2）實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)跈M線(xiàn)處填入合適的代碼。
Private Sub Command1_Click

（　　）

（　?。?/div>
Dim s As String,ch As String
Dim i As Integer,k As Integer
Dim L As Integer,R As Integer
Dim temp As Integer,min As Integer
s=Text1.Text
i=1：k=0：temp=0：min=100
Do While i＜=Len（s）
ch=Mid（s,i,1）
If ch＞=“0“And ch＜=“9“Then
temp=①

①temp*10+Val（ch）或Val（Str（temp）+ch）或其他等價(jià)表達(dá)式

①temp*10+Val（ch）或Val（Str（temp）+ch）或其他等價(jià)表達(dá)式

Else
k=k+1
If ②

kMod2=1或kMod2＜＞0

kMod2=1或kMod2＜＞0

Then
L=temp
Else
R=temp
If R-L+1＜min Then min=R-L+1
End If
temp=0
End If
i=i+1
Loop
Label2.Caption=“最短區(qū)間長(zhǎng)度是“+Str（min）
End Sub
（3）運(yùn)行程序，若文本框 Text1 中輸入內(nèi)容的結(jié)束符缺失（即輸入內(nèi)容為 1，10，15，23，26，29），單擊“查找”按鈕，標(biāo)簽Label2中顯示的內(nèi)容是

最短區(qū)間長(zhǎng)度是9

最短區(qū)間長(zhǎng)度是9

。