VB编程时，如何产生一个随机数，把它赋值给一个变量，然后这个变量不再改变

Question

如题所述

Answer 1

把变量设为全局变量，然后在Form_Load事件中把这个变量赋值为随机数即可，这样的话在程序运行过程中这个变量的值就不再改变了，除非在其他事件中再次改变它的值，或者关闭程序后再次运行。
如果你的目的是这个随机数产生后就永远不再改变（也就是说程序再次运行时它的值也不变），那么就必须在变量赋值为随机数后（或者程序将要结束运行的时候），要把这个值保存起来，比如存到文本文件、INI设置文件、注册表、数据库或者网络上，总之任何你觉得方便的地方，然后在程序再次运行时再到这个地方读取所储存的值后赋值给变量。当然，如果未找到值，就说明程序是首次运行，这时就可以执行给变量赋值的程序了。

Answer 2

Dim N As Integer
Randomize
N = Int(Rnd*100 + 0) ''0到100的随机数
这个触发一次就变一次，不触发就不会变了