VB编写统计数字

来源：百度知道 编辑：UC知道 时间：2024/05/26 20:50:32
首先 我用的是VB 2005 程序，要求是： 做出的程序要像在WORD中统计字数一样的。 请高手 帮忙啊

Dim c As Long, e_word As Long '中英文字数

Dim Num As Long, s As Long '数字及全部字符数

'统计——

Private Sub Command1_Click()

Dim Str As String '总字符

Dim k As Long '计数器

Dim tmpStr As String '逐一检测的字符

c = 0: e_word = 0: Num = 0: s = 0 '清空变量

Str = Text1.Text & " " '加一空格便于意外时计算最后一个字符

For k = 1 To Len(Str) - 1

tmpStr = Mid$(Str, k, 1)

If Asc(tmpStr) >= 65 And Asc(tmpStr) <= 90 Then '小写字母

If Asc(Mid$(Str, k + 1, 1)) <= 64 Then e_word = e_word + 1

If Asc(Mid$(Str, k + 1, 1)) > 90 And Asc(Mid$(Str, k + 1, 1)) < 97 Then e_word = e_word + 1

If Asc(Mid$(Str, k + 1, 1)) > 122 Then e_word = e_word + 1

If Asc(Mid$(Str, k + 1, 1)) = 39 Or Asc(Mid$(Str, k + 1, 1)) = 45 Then e_word = e_word - 1 '是符号'或-时

ElseIf Asc(tmpStr) >= 97 And Asc(tmpStr) <= 122 Then '大写字母