编写VB应用程序，当用户输入的一串由字母、数字等字符组成的字符串，统计其中每个字母出现的次数（不分大小写）．程序运行时界面如图1所示．

（1）设计应用程序界面时，为添加标签对象“输入字串：”，应使用图2所示的“控件工具箱”中的

1

1

（填写相应编写），并在图3所示的“属性窗口”中，将

Caption

Caption

属性设置为“输入字串：”．

（2）程序运行时，在Text1中输入字符串，单击“统计”按钮，在List1中显示统计结果．请在横线处填入合适代码．
‘函数IsLetter（x）功能，若x是字母，则返回值为字母x在字母序列“A”～“Z”中的序号，如字母“A”的序号为0，字母“D”的序号为3．若x不是字母，则返回值为-1．
Function IsLetter（x As String） As Integer
If“A“＜=x And x＜=“Z“Then
IsLetter=Asc（x）-Asc（“A“）
ElseIf“a“＜=x And x＜=“z“Then
IsLetter=Asc（x）-Asc（“a“）
Else

IsLetter=-1

IsLetter=-1

End If
End Function
Private Sub Command1_Click

（　　）

（　　）

Dim f（25）As Integer,m As Integer,n As Integer
Dim s As String,c As String
List1．Clear
For m=0To 25‘初始化数组f
f（m）=0
Next m
s=Text1．Text
For m=1To Len（s）‘依次读取字符串中的每个字符进行判断
c=Mid（s,m,1）
n=IsLetter（c）
If n＜＞-1Then f（n）=f（n）+1
Next m
For m=0To 25‘输出统计结果，没有出现的字母不输出
If

f（m）＜＞0

f（m）＜＞0

Then
List1．AddItem （Chr（m+Asc（“a“）） &“：“& f（m））
End If
Next m
End Sub.