沉降观测点设置间距:VB产生几个不同的随机数字。怎么做到?

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/03 22:31:01
现在想产生5个随机数字,但如果用以下的语句
Text1.Text = Fix(Rnd * 90) + 10
Text2.Text = Fix(Rnd * 90) + 10
Text3.Text = Fix(Rnd * 90) + 10
Text4.Text = Fix(Rnd * 90) + 10
Text5.Text = Fix(Rnd * 90) + 10
不能保证产生的数字都不相同。
要产生都不相同的数字应该怎样做最简单?不要那种if条件句一个一个套起的!

使用每条Rnd前,加入Randomize Timer语句,作用是重新选择随机数种子