zsp643295840 发表于 2015-6-11 11:22 
- ~' t2 O' G; p' T3 h, i& x E再来个简洁版的- k- c' [* b' k# S9 t1 ]0 y
is( p6 e* y5 w" g( m- P3 G) J
i,j,num,val:integer;
, W4 l6 z7 C4 f. [' [( P( s2 F非常感谢，可是程序上的obj.delete;这段话会把表格其他的数据都删除了，能只删除表格第3列的数据吗？
3 E2 L; X1 T) v7 s* a- ^' T3 T7 e另外 你可以帮我解答下程序里的疑问吗？我找不出书本可以学习这些语句6 N+ H+ |0 V4 T& ?: C: c& G
for i:=1 to num loop( a& i' z$ M6 [1 i- k8 ^1 \
isrepeat:=true; 7 m$ U# @7 x. O/ p
repeat" ?8 E; j/ M! W2 i
val:=z_uniform(1,1,num+1);
* q0 {- ~, A) |! ?" T obj.cursorx:=3; 这句和下句用法？我知道跟去重有关，可以不知道为什么这么用，为什么值为3和1
- S8 h0 S) j3 Y& `1 y2 r" B obj.cursorx:=1;
% P# l5 j7 ~3 V9 ~9 U if not obj.find({3,1}..{3,num},val) then" v3 }2 v C: H, Q
obj[3,i]:=val;1 Y9 G+ I+ }- F9 C, k5 i5 m6 t
isrepeat:=false;" |9 `; P% l: \# I8 d3 K ^, |
end;' O$ z* i: j/ q+ }
until not isrepeat;9 |5 X8 g3 S2 G* [4 S( U6 `
next;
( U5 [1 z% S$ y( s' Y- d |
[复制链接]
发表于 2015-6-11 09:57:59
楼主