在表单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语句都试过了，没有成功，知道的朋友指点一下，谢谢！

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

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