用VB制作小程序

Option?Explicit

Private?Sub?Form_Load()

Randomize

Label1.Caption?=?Int((Rnd?*?(999999?-?100000?+?1))?+?100000)'生成100000-999999之间的随机数

Timer1.Interval?=?1000'一秒一次

Timer1.Enabled?=?True

End?Sub

Private?Sub?Timer1_Timer()

Static?n?As?Integer

n?=?n?+?1

If?n?=?60?Then'一秒一次，累加到60此即60秒

n?=?0

Randomize

Label1.Caption?=?Int((Rnd?*?(999999?-?100000?+?1))?+?100000)

End?If

End?Sub

有问题请追问，满意请采纳，加油！