RT,代码如下:Public Function BuildSC(strCode As String) As String
    Dim strResult As String
    Dim intLen As Integer
    Dim intX As Integer
    
    intLen = Len(strCode)
    
    strResult = ""
    For intX = 1 To intLen Step 2
        strResult = strResult & Trim(Chr(Asc(Mid(strCode, intX, 1)) - 9))
    Next intX
    For intX = 2 To intLen Step 2
        strResult = strResult & Trim(Chr(Asc(Mid(strCode, intX, 1)) - 5))
    Next intX
    BuildSC = strResult
    
End Function谢谢!

解决方案 »

  1.   

    Public String BuildSC(String strCode)
    {
        String strResult;
        String intlen;
        String intX;
         
        intLen = Len(strCode);
         
        strResult = ""; 
        for(int X=0;i<=intLen;i=i+2)
        {
            strResult = strResult + Trim(Chr(Asc(Mid(strCode, intX, 1)) - 9)); 
        }
        for(int X=2;i<=intLen;i=i+2)
        { 
            strResult = strResult + Trim(Chr(Asc(Mid(strCode, intX, 1)) - 5)) ;
        }
        return strResult;
    }
      

  2.   

    c# 什么时候有   strResult = strResult + Trim(Chr(Asc(Mid(strCode, intX, 1)) - 5)) ;