Private Sub Command1_Click()Dim zm As Integer, i As Integer, n As Integer '定义个变量类型Dim str1 As String, char As StringDim hz As Integer
str1 = Text1.Text: n = Len(str1)
For i = 1 To nchar = Mid(str1, i, 1)If Asc(char) >= 65 And Asc(char) <= 90 Or Asc(char) >= 97 And Asc(char) <= 122 Then '大小写字母的ASCIIzm = zm + 1 End IfIf 0 <= Asc(char) And Asc(char) <= 64 Or 91 <= Asc(char) And Asc(char) <= 96 Or 123 <= Asc(char) And Asc(char) <= 127 Then '各种符号的数目hz = hz + 1End IfNext i
Print "共有字母" & zm & "个"Print "共有汉字" & n - hz - zm & "个" '汉字数=总的字符串数-字母数-各种符号数End Sub
str1 = Text1.Text: n = Len(str1)
For i = 1 To nchar = Mid(str1, i, 1)If Asc(char) >= 65 And Asc(char) <= 90 Or Asc(char) >= 97 And Asc(char) <= 122 Then '大小写字母的ASCIIzm = zm + 1 End IfIf 0 <= Asc(char) And Asc(char) <= 64 Or 91 <= Asc(char) And Asc(char) <= 96 Or 123 <= Asc(char) And Asc(char) <= 127 Then '各种符号的数目hz = hz + 1End IfNext i
Print "共有字母" & zm & "个"Print "共有汉字" & n - hz - zm & "个" '汉字数=总的字符串数-字母数-各种符号数End Sub
