该过程是把字符数组移动m个位置，当Tag为True左移，则前m个字符移到字符数组尾
Public Sub MoveStr(a$(), m%, Tag As Boolean) ✀该过程是把字符数组移动m个位置，当Tag为True左移，则前m个字符移到字符数组尾。 Dim i%, j%, t$ Dim c If Tag Then For i = 1 To m c = a(0) for j=0 to ----1---- a(j) = a(j + 1) Next j -----2----- Next i Else For i = 1 To m ------3------ for j=Ubound(A) -----4------ a(j) = a(j - 1) Next j a(0) = c Next i End IfEnd Sub
