求VFP程序编写方法

发布网友发布时间：2022-05-15 19:15

共3个回答

热心网友时间：2024-02-27 06:45

看起来还是有点不明白，已经有100行了，如果第2列一直不重复，那么00到99已经全用了，那再从哪来个不重复的2位数？
权当表里有重复值。程序如下：

USE abc.dbf
CLEAR
DIMENSION arr_sl(7) && 声明一个数列
STORE 0 TO arr_sl && 将数组赋值0
RAND(-1) && 以负值作为参数，以后可以获得随机数
DO WHILE .T. && 用于判断条件的死循环
FOR i=1 TO 7 && 循环获得随机数
DO WHILE arr_sl(i)=0 && 如果随机数=0，重新取随机数
arr_sl(i)=FLOOR(RAND()*100) && 获取随机数
ENDDO
ENDFOR
ASORT(arr_sl) && 按升序排列数组

LOCA FOR 第二列=arr_sl(1) OR 第三列=arr_sl(2)
**判断前两个数与2、3列是否重复

IF FOUND() &&如果有重复
STORE 0 TO arr_sl && 重置数组
ELSE
EXIT && 如果不重复，退出循环
ENDIF
ENDDO
FOR i=1 TO 7 &&循环将数组输出到屏幕
? arr_sl(i)
ENDFOR

我这段程序是得到按由小到大顺序排列的7个数，而且第一个数与abc表里的第二列全不同，第二个数与表里的第三列也全不同。不知道是不是你的意思。

热心网友时间：2024-02-27 06:46

我也不会

热心网友时间：2024-02-27 06:46

没有做不了的，只是逻辑要搞明白。
我没弄明白【这七个数中前两个数不能和这个表的第2、第3列数字重复】是什么意思
你在补充一下，我给你做