1到m倒数和的vb程序

vb写作倒计时程序跪求。vb如何组成一个倒数几个小时程序OptionExplicit 窗体需要一个Timer1控件和一个Label1控件，以及如何用VB -2设计一个倒计时/放一个textbox窗体，一个标签，一个定时器，一个Commandbutton双击窗体，粘贴下面的代码:private subcommand 1 _ click()Label 1 . caption text 1 . text Timer 1 . interval 1000 Timer 1 . enabledtrueendsubprivatesubform _ load()，定时器1，enabledfalseendservicesubtimer 1 _ timer()label 1。标题1，Caption0TheTimer1，使用时，在文本中输入倒计时秒数，然后单击按钮开始倒计时。

表单中有三个命令、三个标签和一个定时器控件。Form_Load过程中已经解释了该控件的用途，其中Label1是显示分钟数，Label2是显示秒数。代码如下:DimJSAsInteger 这里声明了一个全局变量。保存计时器private subcommand 1 _ Click()timer 1 . enabled false 停止计时器endsubprivatesubcommand 2 _ Click()timer 1 . enabled true 继续计时器EndSubPrivateSubCommand3_Click()。卸载时间表1。ShowendPrivateSubform _ load()命令1。标题暂停暂停按钮命令2。标题继续“继续”按钮命令3。标题“重新定时”重新定时按钮标签3。标题:“显示:分隔符定时器1。EnabledTrue 开始定时器1。Interval1000 定时间隔。

optionexplicitdimalltimeaslongdimctimeaslongprivatsubcommand 1 _ Click()all time text 1。text timer 1 . enabledtruetcimaltimetext 2 . back colortext 1 . back colorendupbrivatesubform _ Load()timer 1。EnableDFalstimer1。间隔1000Text1。文本文本2。textendsubprivatesubtimer 1 _ timer()ctimectime 1 text 2。短信和