有一个byte类型数组:A(0 to max)然后创建了一个新的byte类型数组:B()
我想把其中的A(10 to max)赋值到B()中,即生成B(0 to max-10),请问如何实现?

解决方案 »

  1.   

    Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
    Sub main()
        Dim A() As Byte
        Dim B() As Byte
        Const MAX = 99
        
        ReDim A(0 To MAX)    '赋值语句略
        
        ReDim B(0 To MAX - 10)
        CopyMemory B(0), A(10), MAX - 10 + 1
    End Sub
      

  2.   

    晕哦 怎么标题是字符型 里面写的又是byte型
      

  3.   


    Private Sub Command1_Click()
       Const Max As Integer = 19
       
       Dim A(0 To Max) As Byte, i As Integer
       For i = 1 To 20
           A(i - 1) = i
       Next
       
       Dim B() As Byte
       ReDim B(UBound(A) - 10)
       
       For i = 0 To UBound(B)
           B(i) = A(i + 10)
       Next
       
    End Sub
      

  4.   

    B=mid(a,10,len(a)-10)
    B=midb(a,10,lenb(a)-10)
    不敢保证对,试试看吧。