VB中判断后面是汉字怎么表示
答案:1 悬赏:20 手机版
解决时间 2021-11-24 06:59
- 提问者网友：我是女神我骄傲
- 2021-11-23 09:11
VB中判断后面是汉字怎么表示
最佳答案
- 五星知识达人网友：渡鹤影
- 2021-11-23 10:17
Private Sub Command1_Click()
Dim Sum&
Sum = 0
For c = 1 To Len(Text1.Text)
Char = Mid(Text1.Text, c, 1)
If (AscW(Char) > -40870 And AscW(Char) < -19967) Or (AscW(Char) < 40870 And AscW(Char) > 19967) Then
Sum = Sum + 1
End If
Next c
MsgBox "汉字总数为" & Sum, vbOKOnly, "提示"
End Sub
'因为汉字ascw可能大于0
Dim Sum&
Sum = 0
For c = 1 To Len(Text1.Text)
Char = Mid(Text1.Text, c, 1)
If (AscW(Char) > -40870 And AscW(Char) < -19967) Or (AscW(Char) < 40870 And AscW(Char) > 19967) Then
Sum = Sum + 1
End If
Next c
MsgBox "汉字总数为" & Sum, vbOKOnly, "提示"
End Sub
'因为汉字ascw可能大于0
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯