vb编程统计字频

来源：百度知道 编辑：UC知道 时间：2024/06/20 16:51:48
在文本框中输入要查询的单词,单击按钮统计出该单词在文章中的出现的频率

Private Sub Command1_Click() '如果文章贴在Text2中
Dim danci As String '单词
Dim wenzhang As String '文章
Dim temp As String
Dim cishu As Integer '出现次数

danci = LCase(Text1)
If Trim(danci) = "" Then Exit Sub
wenzhang = LCase(Text2)
temp = Replace(wenzhang, danci, "")
cishu = (Len(wenzhang) - Len(temp)) / Len(danci)
MsgBox "单词" & danci & "出现次数为：" & cishu
End Sub

Private Sub Command2_Click() '如果文章从文件中读取
Dim danci As String '单词
Dim wenzhang As String '文章
Dim temp As String
Dim cishu As Integer '出现次数

danci = LCase(Text1)
If Trim(danci) = "" Then Exit Sub
Open "带完整路径的文件名称，如：d:\abc\efg.txt" For Input As #1
wenzhang = LCase(StrConv(InputB$(LOF(1), #1), vbUnicode))
Close #1
temp = Replace(wenzhang, danci, "")
cishu = (Len(wenzhang) - Len(temp)) / Len(danci)
Ms