从数字1-35中随机输出6个数,从数字1-16中随机输出1个数,用VF怎么编程序?

***以下是6个1-35的随机数***
clea
for i=1 to 6
int(rand()*(35-1)+1)
endfor
***以下是1个1-16的随机数***
int(rand()*(16-1)+1)
***如果用来买彩票,1-35的随机数中可能产生重号,当然有另外的解决办法
下面是改正程序：
***以下是6个1-35的无重号的随机数***
clea
a=int(rand()*(35-1)+1)
b=int(rand()*(35-1)+1)
do whil b=a
b=int(rand()*(35-1)+1)
enddo
c=int(rand()*(35-1)+1)
do whil c=a.or.c=b
c=int(rand()*(35-1)+1)
enddo
d=int(rand()*(35-1)+1)
do whil d=a.or.d=b.or.d=c
d=int(rand()*(35-1)+1)
enddo
e=int(rand()*(35-1)+1)
do whil e=a.or.e=b.or.e=c.or.e=d
e=int(rand()*(35-1)+1)
enddo
f=int(rand()*(35-1)+1)
do whil f=a.or.f=b.or.f=c.or.f=d.or.f=e
f=int(rand()*(35-1)+1)
enddo
a,b,c,d,e,f
***以下是1个1-16的随机数***
int(rand()*(16-1)+1)