Label1.Caption = CStr( Int( Rnd() * 10 ) ) 在0到9这10个数数中取一个随机数