有空的帮助测试下两段时间的速度

andysky · 发表于 2009-5-4 21:43

两段非常简单代码，想测试下段代码的时间更长，好像与某些书的理论不一致.
Sub 一()
Dim tim As Long
tim = Timer
For i = 1 To 1000
      Range("A1").Font.Name = "黑体"
      Range("A1").Font.FontStyle = "加粗倾斜"
      Range("A1").Font.Size = 11
      Range("A1").Font.Underline = xlUnderlineStyleNone
      Range("A1").Font.Color = 192
Next i
MsgBox "程序共运行了" & Format(Timer - tim, "0.00") & "秒"
End Sub

Sub 二()
Dim tim As Long
tim = Timer
For i = 1 To 1000
      With Range("A1").Font
         .Name = "黑体"
         .FontStyle = "加粗倾斜"
         .Size = 11
         .Underline = xlUnderlineStyleNone
         .Color = 192
      End With
Next i
MsgBox "程序共运行了" & Format(Timer - tim, "0.00") & "秒"
End Sub

linpansheng · 发表于 2009-5-4 21:49

第一段代码的时间：

第二段代码的时间：

据说我的电脑的速度比人家的要慢不少，以前测试过代码的速度的。

zgwei050 · 发表于 2009-5-4 22:02

第1段：1.16秒
第2段：0.97秒
忧闷：图片不能上传（无效的图片文件）

走在最后瞧 · 发表于 2009-5-4 22:06

测了十次：

程序一共运行了0.88秒
程序二共运行了0.84秒

程序一共运行了0.97秒
程序二共运行了0.73秒

程序一共运行了0.58秒
程序二共运行了1.06秒

程序一共运行了1.34秒
程序二共运行了0.88秒

程序一共运行了0.59秒
程序二共运行了1.08秒

程序一共运行了0.50秒
程序二共运行了0.42秒

程序一共运行了0.69秒
程序二共运行了1.20秒

程序一共运行了1.27秒
程序二共运行了0.64秒

程序一共运行了0.91秒
程序二共运行了0.98秒

程序一共运行了0.77秒
程序二共运行了0.69秒

linpansheng · 发表于 2009-5-4 22:06

原帖由 zgwei050 于 2009-5-4 22:02 发表
第1段：1.16秒
第2段：0.97秒
忧闷：图片不能上传（无效的图片文件）

050,应该用Jpg图片的格式。
嘿嘿，还是你的电脑比我的好，
上次的作业我就知道我的电脑肯定很差的了。

zgwei050 · 发表于 2009-5-4 22:27

原帖由 linpansheng 于 2009-5-4 22:06 发表

050,应该用Jpg图片的格式。
嘿嘿，还是你的电脑比我的好，
上次的作业我就知道我的电脑肯定很差的了。

哈哈，换电脑吧，小7！

ningyuanchao · 发表于 2009-5-5 07:40

用我的祖爷级破电脑测试，第一段代码大于7秒，第二段代码小于7秒。

andysky · 发表于 2009-5-5 07:51

看来是第二段代码快于第一段了

jymao · 发表于 2009-5-5 08:13

请看结果......

		自动登录	找回密码
密码			免费注册

[讨论] 有空的帮助测试下两段时间的速度

三年前装的电脑了...