VFP程序编译

来源：百度知道 编辑：UC知道 时间：2024/06/03 15:12:26
我刚开始学习VFP。我想完成一个字符串不分顺序排列。而答案可以是同一个。比如ABCDEFG等于ABC。BACDEFG等于ABC，CAB。DEFG等于ABC.........的程序语句。是用于查询的。而且我还想问一下。VFP的编程必须要围绕着表来进行吗。？有没精通的教我一下。！
如果有人愿意帮我解决问题。而看不懂我的题目。请留下个联系方式。或者联系本人QQ183164565。谢谢！

你那应该是一个简单的排序，原理很简单，无论你输入怎么样的字符串，都按特定的顺序输出，方法如下：
1、检测整个字符串的长度，并将 其保存在一个变量中
2、逐次取出子串，并与其他子串比较大小
3、顺次输出结果

例子如下：
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

accept '原串' to yc &&相当于问题 ABCDEFG等
accept '比较串' to BJC &&相当于问题 ABC
L=ALLTRIM(BJC)
K=.t. &&用于判断是否相等，初值相等
FOR I=1 TO L
A=SUBSTR(BJC,I,1) &&从比价串中取一个字符
if at(a,yc)=0
k=.f.
endif
endfor
if k
messagebox('原串与比较串相等',0)
else
messagebox('原串与比较串不等',0)
endif

还学什么VFP嘛,浪费时间嘛,VFP真得不行

不是必须围绕表，但你的问题实在看不懂。