Question

请在这里概述您的问题设计一个程序，统计某个文本文件中英文字母的个数，并将统计结果写入另一个文本文件

用VB编写呀！谢谢！

Answer 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