VFP程序设计

来源：百度知道 编辑：UC知道 时间：2024/07/04 11:01:00
有没师你能都我下。在VFP里面怎么完成。A。B。C。D。E。F。G。H这几个字母不分顺序排列。而答案等于同一个答案。如等于ABC的程序语句。有知道的请不吝赐教！联系本人QQ183164565也可以！谢谢
对不起。急了点。打的有错字。我的意思是在VFP编程里。怎么可以完成一个数列不分顺序排列。而答案可以是同一个。比如ABCDEFG等于ABC。BACDEFG等于ABC，CAB。DEFG等于ABC..........有没高手可以教教我！ 二楼的视频教程太多。看不懂。麻烦能说的仔细点吗？

accept '原串' to a1 && 如：BACDEFG
accept '比较串' to a2 && 如：ABC
L=len(alltrim(a2))
x=.t.
for i=1 to L
c=substr(a2,i,1)
if at(c,a1)=0
x=.f.
endif
endfor
? iif(x,'原串等于比较串','原串不等于比较串')

例子如下：
L=len(alltrim(thisform.text1.value))
dime A(L)
for I=1 to L
A(I)=SubStr(alltrim(thisform.text1.value),I,1)
endfor

for J=1 to L-1
for m=J to L
if A(J)>A(m)
T=A(J)
A(J)=A(m)
A(m)=T
endif
endfor
endfor

for K=1 to L
thisform.text2.value=thisform.text2.value+A(K)
endfor

什么啊,看不明白