如何用VB统计汉字个数rt

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/06 14:09:43

如何用VB统计汉字个数rt
如何用VB统计汉字个数
rt

如何用VB统计汉字个数rt
Dim num As Integer
Dim text As String
text = "如何用VB统计汉字个数"

For i = 1 To Len(text)
    If Asc(Mid(text, i, 1)) < 0 Then        
    If AscB(StrConv(Mid(text, i, 1), vbFromUnicode)) - 160 > 15 Then num = num + 1    End If
Next i

Msgbox "共有" & num & "个汉字."