怎样在0-10个数中选三个数(不重复)并显示出来.

dimension a(3)
a(1)=int(rand()*10)
for i=2 to 3
do while .t.
b=int(rand()*10)
ok=1
for j=1 to i
if a(j)=b
ok=0
endif
endfor
if ok=1
exit
endif
enddo
a(i)=b
endfor
for i=1 to 3
?a(i)
endfor

谢谢版主！
我运行出现以下现象：
if a(j)=b 处出现 程序错误 提示：操作符/操作类型不匹配

怎样才能发截图？

将“for j=1 to i”修改为“for j=1 to i-1”

发截图的办法：
(1)生成截图：运行程序——直至出现你要的界面——按屏幕硬拷贝(PrintScreen键)——打开画图工具——编辑该图——另存为jpg格式——结束画图工具。
(2)发到论坛上：打开帖子——在任何帖子下方都有“引用、回复、编辑、帖子操作”，选择回复——根据回复界面的提示进行操作——发表回复。

谢谢楼主，真厉害！怎样能把“排列三”组选6号码，全部显示出来？宣传资料上说有
120乘6＝720注！

从1-10这10个号码中找出3个进行全排列，共有10*9*8=720个排列。需要全部显示的话，程序是
set talk off
for i=1 to 10
for j=1 to 10
if j=i
loop
endif
for k=1 to 10
if k=i or k=j
loop
endif
?str(i,3)+str(j,3)+str(k,3)
endfor
endfor
endfor

谢谢楼主，真厉害！学习了，辛苦了