控 件 属 性设置的值 Label1 Caption ″请输入限定时间（分钟）： ″ Text1 Text ″″ Command1
Caption ″确认″ Timer1 Interval ６００００ Enabled
False 在窗体通用模块General里声明Ｎ、Ｔ两个变量，Ｎ作为计数器，Ｔ用来存放限定时间。 DIM N AS
Integer DIM T AS
String Command1_Click() T＝Text1.Text Timer1.Enabled＝True…… End
Sub Timer1－ Timer（ ） N＝N+1 if n＝val(T) Then Beep
Timer1.Enabled＝False End if End
Sub 将定时器的Interval属性值设为６００００，使得计数器每分钟加１，当然也可以设置为其他的值，如１０００，这样就使得计数器每秒钟加１，但这样要浪费较多的系统时间。
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
