小林編寫了一個(gè)實(shí)現(xiàn)英文句子每個(gè)單詞首字母大寫功能的VB程序，運(yùn)行界面如圖所示．文本框Text1顯示原文內(nèi)容，單擊“首字母大寫”按鈕Command1后，Text2顯示首字母大寫的結(jié)果．
實(shí)現(xiàn)上述功能的VB程序如下，但加框處代碼有錯(cuò)，請(qǐng)改正．
Private　Sub　Command1_Click （　?。?br />Dim a（1 To 1000）As String
Dim s As String  result As String
s=Text1．Text：n=Len（s）
For i=1 To n
a（i）=Mid（s,i,l）
Next i
If a（i）＞''a''And a（1）＜=“z“Then a（1）=Chr（Asc（a（1））-32）
result=a（1）
For i=2 To  n-1
If Then'（1）
If a（i+1）＞=''a''And a（i+1）＜=''z''Then
a（i+1）=Chr（Asc（a（i+1））-32）
result=result+a（i）
End If
Eslse
result=result+a（i）
End If
Next i
'（2）
End Sub.