在表单form1中定义了七个文本框text1,text2,text3,text4,text5,text6,text7,一个开始按钮command1，一个关闭按钮command2

在command1的click事件有以下代码：
thisform.text1.value=int(rand()*33)
thisform.text2.value=int(rand()*33)
thisform.text3.value=int(rand()*33)
thisform.text4.value=int(rand()*33)
thisform.text5.value=int(rand()*33)
thisform.text6.value=int(rand()*33)
thisform.text7.value=int(rand()*33)

要求是按下开始按钮后，随机产生的七个数不能有相同的数字，也不能数字0的出现。如果有相同的数字就更改其中任何一个数字（再次通过int(rand()*33取值，直到不相同为止），有0出现也得重新取值。。

循环和IF语句都试过了，没有成功，知道的朋友指点一下，谢谢！

彩票？祝您中奖。
就是用循环和If语句做，每一个数字与前面的比对。其实80年代学Basic时老师就教过了。

题外话：
您根本就不用搞那么多的控件，把代码写在Init事件中，用一个有七个元素的数组或者七个变量保存所产生的数字，并用标签把它们显示出来就行了。

[此贴子已经被作者于2006-8-30 15:20:06编辑过]

大家研究研究?
DIMENSION A(7)
A=0
FOR I=1 TO 7
DO WHILE .T.
X=INT(RAND()*33+1)
DO CASE
CASE I=1
CASE I=2 AND X!=A(1)
CASE I=3 AND X!=A(1) AND X!=A(2)
CASE I=4 AND X!=A(1) AND X!=A(2) AND X!=A(3)
CASE I=5 AND X!=A(1) AND X!=A(2) AND X!=A(3) AND X!=A(4)
CASE I=6 AND X!=A(1) AND X!=A(2) AND X!=A(3) AND X!=A(4) AND X!=A(5)
CASE I=7 AND X!=A(1) AND X!=A(2) AND X!=A(3) AND X!=A(4) AND X!=A(5) AND X!=A(6)
OTHERWISE
LOOP
ENDCASE
A(I)=X
CI=STR(I,1)
THISFORM.TEXT&CI..VALUE=X
EXIT
ENDDO
ENDFOR

非常感谢!!我也发觉自己的程序太笨拙了...

这次运气忒好,,,中了3000块.