如何用VFP编写一个程序,实现对10个数随机分成5组,要详细步骤,谢谢啦

如何用VFP编写一个程序,实现对10个数随机分成5组,要详细步骤,谢谢啦

以下代码供参考，这里的10个数没有提前定义而是随机产生，请根据你的实际修改。
public N(10,2)
rand(0) &&为了得到最大的随机性序列，先执一下rand函数
tmp1="第一组："
tmp2="第二组："
for i= 1 to 10
*为了方便分组，先随机产生10个数，这里取10以内的10个随机整数
N(i,2)=int(rand*10)
*随机的将数分到第一组或第二组
if rand()>=0.5
N(i,1)=1
else
N(i,1)=2
endif
endfor
*输出结果
?"十个数："
for y=1 to 10
??alltrim(str(N(i,2)))+"，"
if N(i,1)=1
tmp1=tmp1+"，"+alltrim(str(N(i,2)))
else
tmp2=tmp2+"，"+alltrim(str(N(i,2)))
endif
endfor
?
?tmp1
?tmp2