編寫(xiě)VB程序，實(shí)現(xiàn)如下功能：程序運(yùn)行時(shí)，在文本框Text1中輸入任意字符串，單擊按鈕Command1，刪除字符串中的非字母后，新字符串顯示在Text2中，并找出ASCII碼最小的字母，將其ASCII碼顯示在Text3中。程序運(yùn)行界面如圖所示。
（1）將命令按鈕Command1中顯示的文本“Command1”修改為“查找”，可在其屬性窗口中將

Caption

Caption

屬性的屬性值改為“查找”。
（2）實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)跈M線處填入合適的代碼。
Private Sub Command1_Click （　　）
Dim result As String,s As String,c As String
Dim n As Integer,i As Integer,j As Integer
s=Text1．Text
Text2．Text=““
For i=1To Len（s）
①

n=ASC（Mid（s,i,1））

n=ASC（Mid（s,i,1））

If n＞=65And n＜=90Or n＞=97And n＜=122Then
②

result=result+Mid（s,i,1）

result=result+Mid（s,i,1）

End If
Next i
Text2．Text=result
j=2
c=Mid（result,1，1）
Do While j＜=Len（result）
If Mid（result,j,1）＜c Then c=Mid（result,j,1）
③

j=j+1

j=j+1

Loop
Text3．Text=④

Str（Asc（c））

Str（Asc（c））

（3）如圖所示，在文本框Text3中的ASCII碼是Text2中第

5

5

個(gè)字符的ASCII碼。