急求vb程序高手

显示全部楼层 · 2009-12-30 23:01:02

Option ExplicitPrivate Sub Command1_Click()Dim i As Longi = Val(InputBox("请输入！"))time.Text = iTimer1.Enabled = TrueEnd SubPrivate Sub Form_Load()Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()If time.Text > 0 Thentime.Text = time.Text - 1ElseMsgBox "倒计时完毕!"Timer1.Enabled = FalseEnd IfEnd Sub

千问 · 2009-12-30 23:01:02

把输入的时间减去当前的时间得到时间差（秒数）然后timer触发比较差值直计数结束然后show另外一个窗口

急求vb程序 高手

急求vb程序高手