来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/09/19 19:37:59
如何用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 & "个汉字."
作业帮