主题：数字算几个字符？

 不理解你什么意思，输入完成以后，根据我之前给你的代码，判断有多少个字符即可。不够或者多出你就提示或者做其它操作

为什么要转，这样做是因为英文、数字只占半个位置，文字是1个位置，排版好看点

Dim str As String = "abc中A国8就"
Dim str1 As String = ""
Dim count As Integer = 0
For Each s As Char In str
    If Char.IsDigit(s) OrElse s >= "A" AndAlso s <= "Z" Then
        str1 &= s & " "
    Else
        str1 &= s
    End If
Next
msgbox(str & vbcrlf & str1)

 你现在到想怎样？这样？

 

Dim str As String = "abc中A国8就"
Dim str1 As String = ""
Dim count As Integer = 0
For Each s As Char In str
    If Char.IsDigit(s) OrElse s >= "A" AndAlso s <= "Z" Then
        str1 &= s & " "
    Else
        str1 &= s
    End If
Next
msgbox(str & vbcrlf & str1)

比如输入3个英文其它45个是文字，若每个英文算1个字符的话，就是48个字符，只时排版时它比全都是48个文字的要短，所以要转一下，让系统对英文的一个字母只算半个字符，我可以加字，让排版长短一致，

转为半个字符是排版的需要

 不是给了你检测有多少个字符的代码了吗？自己编写代码检测字符长度啊

检测结果是英文、数字为1个字符，和文字一样，因而有英文、数字的行，比全都是文字的行要短。将英文、数字作为1个字符的是狐表系统中先行设置的，现在要改变这种设置，可以吗？其实我不是要测试，我要的是要系统将英文、数字认作半个字符。

 回复29楼，没有办法当成半个字符。既然原来的不准确，那么，我的意思是叫你自己写代码区检测字符个数。