全角2，半角1的计算方法

向Ascii中，全角字符认为是?（63），于是利用这个特点进行判断全角半角。

Dim n As New ASCIIEncoding

Dim b As Byte() = n.GetBytes(strTempString)

Dim a As Integer

Dim m As Integer = 0

For a = 0 To b.Length - 1

If b(a) = 63 Then

                        m += 2

        Else

                        m += 1       '半角 

        End If

Next