算了,还是写出代码吧:
Global iClick As Integer,iSec As Integer
Private Sub Form_Load()
Timer1.Interval = 1000
Next
Private Sub Form_Click()
iClick = iClick + 1
Cls: Print "你已经点了 "; iClick; " 次"
End Sub
Private Sub Timer1_Timer()
iSec = iSec + 1
If iSec = 60 Then
Timer1.Enabled = False
MsgBox "时间到!", vbInformation, "提示"
End If
End Sub
[此贴子已经被作者于2005-10-9 22:54:57编辑过]