vb统计在一个文本框内各英文单词出现的次数

'把下面代码复制到窗体,添加1个list 和一个command按钮运行就可以了,和一个文本框,数据输入在文本框里Private Type Englishword As Stringcount As LongEnd Type'判断是不是英文Private Function En(ByVal s As String) As BooleanIf s = "" Then En = False:Exit Functions = LCase(s)For i = 1 To Len(s)a = Asc(Mid(s,i,1))If a < 97 Or a > 122 Then En = False:Exit FunctionNextEn = TrueEnd Function'统计数组内各个英文出现次数Private Function TongJi(ByVal T_txt As String) As English()s = Split(T_txt," ")n = 0Dim English() As EnglishReDim English(0)For i = 0 To UBound(s)If s(i) "" And En(s(i)) = True Thentemp = FalseFor j = 0 To UBound(English)If English(j)。word = "" ThenEnglish(j)。word = s(i):English(j)。count = 1:Exit ForElseIf English(j)。word = s(i) Thentemp = True:English(j)。count = English(j)。count + 1:Exit ForEnd IfNextIf temp = False ThenReDim Preserve English(n):English(n)。word = s(i):English(n)。count = 1:n = n + 1End IfEnd IfNextTongJi = EnglishEnd FunctionPrivate Sub Command1_Click()Dim e() As Englishe = TongJi(Text1)ClsFor i = 0 To UBound(e)If e(i)。count > 0 Then List1。AddItem e(i)。word & " 出现过：" & e(i)。count & " 次"NextEnd Sub 再问： 怎么加list呀 再答： list就是列表框控件ListBox，如果你连这个都不知道，那就不要问这么难的问题好吗？