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年一种新型网络病毒,其传播所使用的技术可以充分体现网络时代网络安全与病毒的巧妙结合,将网络蠕虫、计算机病毒、木马程序合为一体,开创了网络病毒传播的新路,可称之为划时代…
- 左青龙
- 微信扫一扫
- 右白虎
- 微信扫一扫
评论