用VB制作小程序

私人？Sub？Form_Load()

使不规则化

Label1。标题？=?Int((Rnd？*?(999999?-?100000?+?1))?+?100000)'生成一个介于100000-999999之间的随机数。

定时器1。区间？=?1000?每秒一次

定时器1。启用？=?真实的

结束？潜水艇

私人？Sub？定时器1 _定时器()

静电？n？作为？整数

n？=?n？+?1

如果？n？=?60?然后呢？一秒一次，加起来60，就是60秒。

n？=?0

使不规则化

Label1。标题？=?Int((Rnd？*?(999999?-?100000?+?1))?+?100000)

结束？如果

结束？如果你有任何问题，请提问。如果你满意，请采纳。加油！