主题：如何随机不重复填入一定范围的数字序列

在XH中1—10行填入：1.5.9.7.4.6.3.8.2.10（随机）
11--20行填入：10.2.5.7.8.1.3.6.9.4（随机）
以此类推。
XH是数字型，其余字符型。
我想设计个窗口。输入数字10就填入1-10的数字，输入20就填入1-20的数字。egd文件下载

第一个运行没反应。第二个可以运行，但会产生重副的数字。

输入数字10的情况

我用的是老版本，没有Import命令，怎么修改？
egd文件下载

用了无import的。
但是无import按钮中提示表达式中存在语法错误。

SetLabel("  ","计算中--") And AddCol(Grid,"q",1, False ) And EvalFor(Grid,"q","Mod(Row-1,[%a%])+1") And EvalFor(Grid,"班级","Quotient(Row+[%a%]-1,[%a%])") And CreateGrid("p","T",0,"A",0) And ClearGrid("p") And AddRows("p",[%a%]-1) And Eval("EvalFor(""p"",""T"",""Row"") And EvalFor(""p"",""A"",""Rand(8)"") And SortCol(""p"",""A"",1) And EvalFor(Grid,""座位"",""Eval(""""Split(""""""""""""+ListFor(""""p"""",""""T"""")+"""""""""""",""""""""|"""""""",[q])"""")"",""班级"",""="","+Substitute(ListFor(Grid,"班级",1),"|",") And EvalFor(""p"",""T"",""Row"") And EvalFor(""p"",""A"",""Rand(8)"") And SortCol(""p"",""A"",1) And EvalFor(Grid,""座位"",""Eval(""""Split(""""""""""""+ListFor(""""p"""",""""T"""")+"""""""""""",""""""""|"""""""",[q])"""")"",""班级"",""="",")+")") And DeleteCol(Grid,"q") And RemoveGrid("p") And SetLabel("  ","计算结束!")