'CPU 基准测试+信息查询，好玩又防奸商，去电脑城选电脑带上一个吧！CPU信息一目了然。
'BY: fastslz   http://bbs.cn-dos.net
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set CPUs = objWMIService.InstancesOf("Win32_Processor")
Set Caches = objWMIService.InstancesOf("Win32_CacheMemory")
For Each ObjCache In Caches
    Select Case objCache.Level
    case 3
    aUsage = "一级缓存: " & objCache.MaxCacheSize & "KB    (一级数据＋L1缓存)"
    case 4
    aUsage = aUsage & vbCrLf & "二级缓存: " & objCache.MaxCacheSize & "KB"
    case 5
    aUsage = aUsage & vbCrLf & "三级缓存: " & objCache.MaxCacheSize & "KB"
    End Select
Next
For Each ObjCPU In CPUs
Usage = "CPU 名称: " & ltrim(ObjCPU.Name)               & Chr(9) & vbCrLf _
      & "CPU 构架: " & ObjCPU.Description               & vbCrLf _
      & "制造厂商: " & ObjCPU.Manufacturer              & vbCrLf _
      & "接口规格: " & ObjCPU.SocketDesignation         & vbCrLf _
      & "地址位宽: " & ObjCPU.AddressWidth & " Bit"     & vbCrLf _
      & "数据位宽: " & ObjCPU.DataWidth & " Bit"        & vbCrLf _
      & "CPU 电压: " & ObjCPU.CurrentVoltage / 10 & "V" & vbCrLf _
      & "主频速度: " & ObjCPU.CurrentClockSpeed & "MHZ" & vbCrLf _
      & "总线速度: " & ObjCPU.ExtClock & "MHZ"          & vbCrLf & aUsage
Next
MsgBox Usage ,vbInformation ,"CPU 信息"
Dim I,T1,T2,Tempvalue,aRunTime,bRunTime
    T1 = Timer()
    For I = 1 To 200000
        Tempvalue= 2^0.5
    Next
    T2 = Timer()
    aRunTime = Formatnumber((T2-T1)*1000,2)
MsgBox "CPU 200万次开方计算所需时间：" &aRunTime&" 毫秒" &Chr(9), vbInformation ,"CPU 基准测试"

    T1 = Timer()
    For I = 1 To 2000000
        Tempvalue= 1 + 1
    Next
    T2 = Timer()
    bRunTime = Formatnumber((T2-T1)*1000,2)
MsgBox "CPU 200万次加法计算所需时间："&bRunTime&" 毫秒" &Chr(9), vbInformation ,"CPU 基准测试"

MsgBox "测试" , vbInformation
'简化
MsgBox "测试" , 64