遍历每一个字符，看是全角还是半角的。半角的字符总数 +1，全角的字符总数 +2。
创新互联建站专注于长安网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供长安营销型网站建设，长安网站制作、长安网页设计、长安网站官网定制、微信平台小程序开发服务，打造长安网络公司原创品牌,更为您提供长安网站排名全网营销落地服务。
参考：
Public Function GetByteLength(ByVal value As String) As Long
Dim i As Long = 0
For Each c As Char In value
If (c.ToString().Length = System.Text.Encoding.Default.GetByteCount(value.ToString())) Then
i = i + 1
End If
i = i + 1
Next
Return i
End Function
Len(String) 返回的是 String 的字符数。
Len(Integer（或其他数值类型）) 返回的是这个数值类型的字节长度。
Trim(100)，Trim() 后的结果已经转换成 String 字符串类型了。
而 100 这是一个 Integer 类型的数，Len 返回的是一个 Integer 所占的字节数，也就是4。
你要是想返回 100 这个字符串的字符长度，应该用双引号引上，Len("100")=3。
str(22)把数字22转化为字符串后，系统自动在22前增加一个空格，即符号位（因为正号只占位），如果是负数则用－号占用符号位，所以str(22)的结果是“ 22”，长度为3。
后面的str(3)=" 3"，str(2)=" 2"，它们的字符串的长度都是2（包括了一个符号位空格）。
所以：Len(Str(22) + Str(3) + Str(2))＝len(" 22"+" 3"+" 2")=len(" 22 3 2")=7
拆开来看：
显示Mid函数，Mid(字符串，截取开始位置，字符串长度：若省略则表示从开始位置后面所有字符）
Mid("abcdefgh",4)
因为省略了截取的字符串长度这个数值，所以：Mid("abcdefgh",4) = "defgh"
那么 : Len("defgh") = 5
所以，答案是：5
引号“在VB中用来括入文本字串，因此对于文本字串中的引号，只能进行转义，即用两个引号来表示一个引号。因此，原句应改为：
"Len(“"arc”")=";Len("arc")
另一个方法是用chr()函数来表示对应的字符，引号的ASCII码是34，因此也可以写为
"Len("
Chr(34)
"arc"
Chr(34)
")=";
Len("arc")
或
"Len(";
chr(34);
"arc";
chr(34);
")=";Len("arc")
答案是2,是因为x 是Integer类型,虽然用了n = Str(n),在Str(n)返回了一个字符串" 1234"后,在赋值给n时又被自动类型转换为Integer型。
这时用Len()函数去求Integer型n的长度,即是求Integer类型的内存中所占的字节数正是2。
拓展资料
VB-PowerWrap 允许开发者在发布他们的程序时不需要再加入一大堆的 OCX 与 DLL 文件。该程序可以帮助 Visual Basic 程序员在发布他们的 可执行文件时不需要再担心关于其他链接库与 OCX 的问题了。VB-PowerWrap 允许你将程序所必需的所有 .dll 文件与 .ocx 文件打包到你的 VB 程序内部，并且不需要用户安装，直接就可以运行。并且 VB-PowerWrap 可以自动注册所必需的 .dll 与 .ocx 文件！
VB-PowerWrap 通过扫描一个 Visual Basic 的工程文件，并将该工程所需要的文件进行打包，然后创建一个包含所有必要文件的 可执行文件供程序员发布。VB-PowerWrap 使用了超强的压缩模块，这样可以创建出最小的 .exe 文件。