我是一个VB菜鸟,请帮我想想这个问题.就是怎样设计一个简单的计时器?
其实,问题不在于怎么设计,是在与怎样才能占内存少.
以下是我设计的,但运行到一半,就死了......
Dim begintime As Variant, nowtime As Variant
Dim lasttime As Integer,temp As Integer
Private Sub Command1_Click()
lasttime = inputbox("输入计时时间(单位s):")
begintime = Time()
begintime = Minute(begintime) * 60 + Second(begintime) + lasttime 
'求出停止时的时间
Do
nowtime = Time()
nowtime = Minute(nowtime) * 60 + Second(nowtime)
Cls
Print begintime - nowtime '注意,要求必须输入所剩时间.
Loop Until nowtime = begintime
temp = MsgBox("时间到!")
End Sub