如何制作时间停止器

不能，因为时间是连续的，即便能回溯到过去的某个点（传说中的时光传说机），也是从那个点继续延续，而不是停止不动。

我来回答一下时间暂停的原理。如果时间是连续的，你的反应速度也是连续的，那么你就发感受到周围的万物都是静止的。进一步讲，在此基础上，你能够用有限而非无限的自己可以感知的时间完成一个有效动作，那么时间就是暂停的。对你而言，有限的时间长度有无限个点“在线”，1秒的时间就像切分细致到无限张底片的电影，用有限的速度一张一张的播放永远放不完。

以后能

点击--开始----找到控制面板----外观和个性化------更改屏幕保护程序，根据自己的需要填写时间，确定就好了。

在窗体内加入timer1控件，然后复制下面代码，运行即可：
Option Explicit

Dim x As Long
Dim h As Long, m As Long, s As Long, ms As Long
Dim cjlh As Long, cjlm As Long, cjls As Long
Dim cjlms As String

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 13
Timer1.Enabled = True
Case 32
Timer1.Enabled = False
x = 0
Me.Caption = "运行了" & IIf(Len(Trim(Str(h))) < 2, "0" & Trim(Str(h)), Trim(Str(h))) & "小时" & IIf(Len(Trim(Str(m))) < 2, "0" & Trim(Str(m)), Trim(Str(m))) & "分" & IIf(Len(Trim(Str(s))) < 2, "0" & Trim(Str(s)), Trim(Str(s))) & "秒" & cjlms & "毫秒"
Case 114, 82
Me.Cls
End Select
End Sub

Private Sub Form_Load()
Me.Font.Size = 14
Me.AutoRedraw = True
Form1.Caption = "真正的动态秒表（小时：分：秒.毫秒）"
Print "00:00:00.000"
Timer1.Interval = 10
Timer1.Enabled = False
x = 0
End Sub

Private Sub Timer1_Timer() '每1秒钟触发100次
x = x + 10 '单位是毫秒
cjlh = Int(x / 3600000)
h = cjlh '取得小时
cjlm = Int(((x Mod 3600000) / 60000)) '关键在这里，用INT取整，不用INT的话，每30秒进1,有点奇怪
m = cjlm '取得分钟
cjls = Int(((x Mod 3600000) Mod 60000) / 1000)
s = cjls '取得秒种
ms = (((x Mod 3600000) Mod 60000) Mod 1000)
If Len(Trim(Str(ms))) = 2 Then
cjlms = "0" & Trim(Str(ms))
End If
If Len(Trim(Str(ms))) >= 3 Then
cjlms = Trim(Str(ms))
End If
cjlms = Left(cjlms, 2) & Trim(Str(Int(Rnd * 9)))
Me.Cls
Print IIf(Len(Trim(Str(h))) < 2, "0" & Trim(Str(h)), Trim(Str(h))) + ":" + IIf(Len(Trim(Str(m))) < 2, "0" & Trim(Str(m)), Trim(Str(m))) + ":" + IIf(Len(Trim(Str(s))) < 2, "0" & Trim(Str(s)), Trim(Str(s))) + "." + cjlms
End Sub

1）
启动visual basic6.0 ，打开一个新的标准工程。
2）
在窗体上Form1上添加6个标签空间（Label） 2个命令按钮（CommandButton）和1个计时器（Timer）。命令按钮的Caption属性分别为“启动”“停止”
Timer1的Interval属性为1
Label1 Label2 Label3的Caption属性分别为“开始时间”“结束时间”“经过时间” Timer1的Enable属性为False
3）代码
Dim Starttime As Variant
Dim End time As Variant
Dim Elapsed As Variant

Private Sub cmdStart_Click()
'显示开始时间
lblStart.Caption=Time$
Starttime=Now
'启动时钟控件
Timer1.Enabled=Ture
End Sub
Private Sub cmdStop_Click()
'记录停止时间
Endtime=Now
'关闭时钟控件
Timer1.Enabled=False
'显示经过时间
lblApaed.Caption=Format(Endtime-Starttime,"hh:mm:ss"
End Sub
Private Sub Timer1_Timer()
lblStop.Caption=Time$
End Sub
以上是用VB6.0实现的

先找到答案再答,停不掉的

不太明白你的意思，给出网址

一种电影的后期制作技巧。
首先排下一个人在该场景下的动作，包括走路什么的。然后拍下没有这个人时的该场景，把这两部分在电脑上一结合就OK了很容易理解

那是拍摄的效果,科幻片吧?时间已经运行了几亿年从来没有停止过.

你该不会以为那是真的吧

那个其实就是那种片子的
系列之一啊，这个系列名字就叫做《时间停止器》，你要知道片子编号才可以具体去查那个女人

多角度拍摄