请按照下表记录中数字顺序(斜线规则)，用“－”连接成一字符串，二维数组把我整蒙啦，哈哈，请帮忙，谢谢！

最后的结果是什么

结果是不是这样：
A1-A2-AB3-DD4-XY5-XR6-TW7-FF8-BT9-XZ10-QR11-RR12-AD13-BB14-NN15-WQ16-AT17-AS18-B19-B20
USE bb
COPY TO ARRAY arr
nLen = ALEN(arr)
DIMENSION arr[nLen,1]
s = TRIM(arr[1])
i = 7
DO WHILE i < nLen
    s = s + "-" + TRIM(arr[i])
    IF i%5 == 0
        i = i+1
        s = s + "-" + TRIM(arr[i])
    ENDIF
    i = i+6
    IF i > nLen
        i = i - nLen
    ENDIF
ENDDO
s = s + "-" + TRIM(arr[i])
? s

是不是这样的结果

最后结果就是字符串中最后的数字从1开始，直到20结束。谢谢两位版主。

吹水版主，你把这个关系理得很清楚，结果完全正确，我把脑袋整蒙都没有理清，非常感谢！

[此贴子已经被作者于2019-11-9 00:18编辑过]

两位版主，若用二维数组获取这些值，好办么？谢谢！

CLEAR
SELECT * FROM bb INTO ARRAY aa
LOCAL bb[ALEN(aa)]
FOR i = 1 TO ALEN(aa, 1)
    FOR ii = 1 TO ALEN(aa, 2)
        nValue = VAL(CHRTRAN(aa[i, ii], "ABCDEFGHIJGLMNOPQRSTUVWXYZ", ""))
        bb[nValue] = TRIM(aa[i, ii])
    ENDFOR
ENDFOR  
cStr = bb[1]
FOR i = 2 TO ALEN(bb)
    cStr = cStr + "-" + bb[i]
ENDFOR
?cStr

非常感谢两位版主！结题！

CLEAR 
USE bb
COPY TO ARRAY arr
DIMENSION arr[ALEN(arr)]
LOCAL larr[ALEN(arr, 1), 2]
FOR lnj = 1 TO ALEN(arr, 1)
    larr[lnj, 1] = arr[lnj]
    larr[lnj, 2] = VAL(CHRTRAN(arr[lnj], "ABCDEFGHIJGLMNOPQRSTUVWXYZ", ""))
ENDFOR
ASORT(larr, 2)
? RTRIM(arr[1])
FOR lnj = 2 TO ALEN(arr)
    ?? "-" + ALLTRIM(larr[lnj, 1])
ENDFOR