联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
dim d c(6) for i=0 To UBound(d)-1 msgbox d(i) next function c(x) for a=0 to 9 for b=0 to 9 if a-x=0 or b-x=0 then d=d&a&b&"/" end if next next d = split(d,"/") end function