请问高手,chr$(236)这样的语句是无法执行的。返回字符的ASCII码是0,因为236大于127,属于
机器字符。
那么,我怎样获得236这个字符呢?谢谢!

解决方案 »

  1.   

    Private Sub Command1_Click()
    X = 236
    Char1 = ChrB(236)
    n = AscB(Char1)
    Cls
    Print nEnd Sub
    结果:
    236n = 236
      

  2.   

    支持楼上的!相关函数介绍:
    Function Chr(CharCode As Long)
        VBA.Strings 的成员
        返回包含与指定字符模式相关联的字符串。Function Chr$(CharCode As Long) As String
        VBA.Strings 的成员
        返回包含与指定字符模式相关联的字符串。Function ChrB(CharCode As Byte)
        VBA.Strings 的成员
        返回一个包含指定单字节的字符串Function ChrB$(CharCode As Byte) As String
        VBA.Strings 的成员
        返回一个包含指定单字节的字符串Function ChrW(CharCode As Long)
        VBA.Strings 的成员
        返回一个包含指定本机字符的字符串(Unicode 或 ANSI)Function ChrW$(CharCode As Long) As String
        VBA.Strings 的成员
        返回一个包含指定本机字符的字符串(Unicode 或 ANSI)Function Asc(String As String) As Integer
        VBA.Strings 的成员
        返回一个字符串中第一个字符的 ANSI 字符代码Function AscB(String As String) As Byte
        VBA.Strings 的成员
        返回字符串中第一个字节的值Function AscW(String As String) As Integer
        VBA.Strings 的成员
        返回字符串中第一个字符的本机字符代码 (Unicode 或 ANSI)