急求，简单问题想不出来

linzi

如图，需要每次运行某段程序后，在表格的第三列中随机插入1~10不重复的10个数字，请问程序怎么写？

linzi

zsp643295840 发表于 2015-6-11 11:22
9 g& }" h# h; U% l1 j" E0 i再来个简洁版的
- M% Z' W$ z) k3 A6 `is
# m9 D0 S7 R, E' X; I# Z6 l        i,j,num,val:integer;

非常感谢，可是程序上的obj.delete;这段话会把表格其他的数据都删除了，能只删除表格第3列的数据吗？
另外        你可以帮我解答下程序里的疑问吗？我找不出书本可以学习这些语句
. h  A, g0 Z  c+ k        for i:=1 to num loop
                isrepeat:=true;
                repeat
% j2 w6 w# y" P4 R* b                        val:=z_uniform(1,1,num+1);
- N" {( |6 \! A5 w; r# J                        obj.cursorx:=3;     这句和下句用法？我知道跟去重有关，可以不知道为什么这么用，为什么值为3和1
                        obj.cursorx:=1;
3 F. i" B! R8 U$ M. L% Z3 B                        if not obj.find({3,1}..{3,num},val) then
                                obj[3,i]:=val;
                                isrepeat:=false;
& X6 R. Y# A" M1 u0 @- ?9 n                        end;
% R  O5 d  n) q: B# L; I4 T                until not isrepeat;
) k9 o- D3 S. {& ], l        next;
% s$ D" R7 l. m5 |, ~/ t! I

JimDatawangzj

taoyifei2000 发表于 2015-6-11 16:51
纯交流

这个程序没问题，但是效率是需要考虑的，尤其是问题规模大的时候，repeat的时候会有很多无用 ...

厉害！！！

linzi

zsp643295840 发表于 2015-6-11 17:02
0 A/ i- X! a" A1 @$ a% j可以只删除第三列path.delete({3,1}..{3,*});
" ~! A  G/ p) s1 G至于cursor的问题，建议F1查看帮助
& p/ }6 j5 @* _5 j) L* X5 R" ?PS：建议采用4楼的方法 ...

( U, V4 R, v" P! p好的，非常感谢，收获很多