VB判断字符串中汉字个数/判断汉字个数:
Public Function CLen(S As String) As Integer '判断汉字个数
Dim I, Tmp
For I = 1 To Len(S)
Tmp = Mid(S, I, 1)
If Asc(Tmp)
Next
End Function文章来源于lcx.cc:【VB技巧】VB判断字符串中汉字个数
简介： 红色代码 (Code Red，2001年) “红色代码”病毒是2001年一种新型网络病毒，其传播所使用的技术可以充分体现网络时代网络安全与病毒的巧妙结合，将网络蠕虫、计算机病毒、木马程序合为一体，开创了网络病毒传播的新路，可称之为划时代…
免责声明:文章中涉及的程序(方法)可能带有攻击性，仅供安全研究与教学之用，读者将其信息做其他用途，由读者承担全部法律及连带责任，本站不承担任何法律及连带责任；如有问题可邮件联系(建议使用企业邮箱或有效邮箱,避免邮件被拦截，联系方式见首页)，望知悉。
- 左青龙
- 微信扫一扫
-
- 右白虎
- 微信扫一扫
-
评论