你可以给RND 一个随机种子，用计算机的系统时间做为这个种子，产生的随机数就不会每次都一样了。具体就是在调用Rnd前，先调用Randomize。 Private Sub Command1_Click()RandomizeText1.Text = RndEnd Sub
