来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/10/03 19:22:52
如何用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 & "个汉字."