VB代码翻译一下PublicFunctionGetCPUTemp()AsDoubleDimiAsIntegerDimmCPUAsVariantDimuAsVariantDimsAsStringSetmCPU=GetObject("WINMGMTS:{impersonationLevel=impersonate}!root\wmi").ExecQuery("SELECTCurrentTemperatureFromMSA

Question

VB代码翻译一下Public Function GetCPUTemp() As Double Dim i As Integer Dim mCPU As Variant Dim u As Variant Dim s As String Set mCPU = GetObject("WINMGMTS:{impersonationLevel=impersonate}!root\wmi").ExecQuery("SELECT CurrentTemperature From MSAcpi_ThermalZoneTemperature") For Each u In mCPU s = s & u.CurrentTemperature Next Set mCPU = Nothing GetCPUTemp = (s - 2732) / 10 End Function 查看cpu温度的代码 翻译一下，翻译成中文，或易语言代码（如果可以翻译成易语言代码在加30分）

Answer 1

这个代码我下载过，获得的温度经常不准的，没什么意义。 Public Function GetCPUTemp() As Double '自定义函数，需要的时候调用 Dim i As Integer 定义整型变量i Dim mCPU As Variant 定义通用变量mcpu Dim u As Variant 定义通用变量u Dim s As String 定义字符串变量s ’下面一句是获得系统的对象，就是cpu感应器的对象，其实是个小程序 Set mCPU = GetObject("WINMGMTS:{impersonationLevel=impersonate}!root\wmi").ExecQuery("SELECT CurrentTemperature From MSAcpi_ThermalZoneTemperature") For Each u In mCPU 循环 s = s & u.CurrentTemperature 赋值给变量s Next 结束循环 Set mCPU = Nothing 取消 对象mcpu，就是为空 GetCPUTemp = (s - 2732) / 10 把s当数字使用进行处理后返回给函数，谁调用谁就可以获得这个数。 End Function 结束函数