设计一个程序，统计某个文本文件中英文字母的个数，并将统计结果写入另一个文本文件中 5
1个回答
展开全部
Private Sub Command1_Click()
Dim s As String
s = ""
Open "C:\Users\Asus\Desktop\word.txt" For Input As #1 'word.txt为需统计的文件
Do While Not EOF(1)
Input #1, x
s = s + x
Loop
Close #1
For i = 1 To Len(s)
If Asc(Mid(s, i, 1)) >= 65 And Asc(Mid(s, i, 1)) <= 122 Then
n = n + 1 '统计英文个数
Else
m = m + 1 '统计中文个数
End If
Next
Open "C:\Users\Asus\Desktop\result.txt" For Output As #2 '输出统计结果文件
Print #2, "英文个数：" & n
Print #2, "中文个数：" & m
Close #2
End Sub
Dim s As String
s = ""
Open "C:\Users\Asus\Desktop\word.txt" For Input As #1 'word.txt为需统计的文件
Do While Not EOF(1)
Input #1, x
s = s + x
Loop
Close #1
For i = 1 To Len(s)
If Asc(Mid(s, i, 1)) >= 65 And Asc(Mid(s, i, 1)) <= 122 Then
n = n + 1 '统计英文个数
Else
m = m + 1 '统计中文个数
End If
Next
Open "C:\Users\Asus\Desktop\result.txt" For Output As #2 '输出统计结果文件
Print #2, "英文个数：" & n
Print #2, "中文个数：" & m
Close #2
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
博思aippt
2024-07-20 广告
作为深圳市博思云创科技有限公司的工作人员，对于Word文档生成PPT的操作，我们有以下建议：1. 使用另存为功能：在Word中编辑完文档后，点击文件->另存为，选择PowerPoint演示文稿（*.pptx）格式，即可将文档内容转换为PPT...
点击进入详情页
本回答由博思aippt提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
