最恨_VB 原创,流峪圩改进。
Dim a
Dim b
Dim c
MsgBox "准备开始计算CPU运行速度,请关闭其他应用程序以免影响效果。" & vbcrlf & "准备好了请点击确定。",32,"CPU运算速度测试"
msgbox "开始计算整数运算时间",32,"CPU运算速度测试"
a = Timer
For i = 1 To 999999
c = i+C
Next
b = Timer
MsgBox "计算时间为:" & b - a & "秒" ,32,"CPU运算速度测试"
if b-a >0.7 then
msgbox "你的机器真的很烂!",32,"CPU运算速度测试 "
elseif b-a <0.7 and b-a >0.5 then
msgbox "一般般啦!",32,"CPU运算速度测试"
elseif b-a <0.5 and b-a >0.3 then
msgbox "强劲电脑的心!",32,"CPU运算速度测试"
else
msgbox "神机,膜拜了!",32,"CPU运算速度测试"
end if
将上面的复制到文本文件里面 保存为 1.VBS
再次鸣谢 @最恨_VB
Dim a
Dim b
Dim c
MsgBox "准备开始计算CPU运行速度,请关闭其他应用程序以免影响效果。" & vbcrlf & "准备好了请点击确定。",32,"CPU运算速度测试"
msgbox "开始计算整数运算时间",32,"CPU运算速度测试"
a = Timer
For i = 1 To 999999
c = i+C
Next
b = Timer
MsgBox "计算时间为:" & b - a & "秒" ,32,"CPU运算速度测试"
if b-a >0.7 then
msgbox "你的机器真的很烂!",32,"CPU运算速度测试 "
elseif b-a <0.7 and b-a >0.5 then
msgbox "一般般啦!",32,"CPU运算速度测试"
elseif b-a <0.5 and b-a >0.3 then
msgbox "强劲电脑的心!",32,"CPU运算速度测试"
else
msgbox "神机,膜拜了!",32,"CPU运算速度测试"
end if
将上面的复制到文本文件里面 保存为 1.VBS
再次鸣谢 @最恨_VB