Question

vb RND 函数，每次运行程序生成的随机数都一样，为什么？？

Answer 1

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

Private Sub Command1_Click()
Randomize
Text1.Text = Rnd
End Sub

Answer 2

randomize（）在随机前面加这一句就行了