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分）

答案：这个代码我下载过，获得的温度经常不准的，没什么意义。
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        结束函数

DimN,SAsInteger定义2个数字类型变量为N,S PrivateSubForm_Load()form启动时触发该模块（这里没内容） EndSub PrivateSub初级_Click()初级模块的按钮Timer1.Interval=1000时钟时间定义为1000ms=1m这里应该是控制速度的开始.Enabled=True开始按钮可以点击EndSub PrivateSub中级_Click()中级模块按钮Timer1.Interval=800时钟时间定义为800ms=0.8m开始.Enabled=True开始按钮可以点击EndSubPrivateSub高级_Click()高级模块按钮 Timer1.Interval=700时钟时间定义为700ms=0.7 开始.Enabled=True开始按钮可以点击EndSubPrivateSub开始_Click()开始按钮N=0:S=0变量N的值为0.s为0Label1.Visible=Truelabel1显示出来Label1.Caption=""label1标题为清空Text1.Text=0txet1的内容清空彩块.Enabled=True:彩块.Visible=True彩块可以点击，彩块显示出来彩块.Left=2600:彩块.Top=2000彩块左边坐标为2600彩块高度为2000彩块.Caption=0彩块的标题为0开始.Enabled=False:初级.Enabled=False开始按钮不可点击，初级按钮不可点击！中级.Enabled=False:高级.Enabled=False中级按钮不可点击，高级按钮不可点击！Timer1.Enabled=True:Timer2.Enabled=True:Timer3.Enabled=Truetimer1开始计时，timer2开始计时EndSubPrivateSubTimer1_Timer()Randomize随机数R=Int(Rnd*256) G=Int(Rnd*256)B=Int(Rnd*256)L=Int(Rnd*4000)T=Int(Rnd*3000)彩块.BackColor=RGB(R,G,B)彩块.Left=L彩块.Top=TS=S 1Label1.Caption=30-SEndSubPrivateSubTimer2_Timer()Timer1.Enabled=False:Timer3.Enabled=False彩块.Visible=FalseLabel1.Visible=False初级.Enabled=True:中级.Enabled=True:高级.Enabled=TrueEndSub PrivateSub彩块_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)N=N 1Text1.Text=N彩块.Caption=NEndSub  其实我真的不想写了。简单但是，，，比较繁琐！建议你还是学学编程的基础知识吧

上一个：VB postmessage发送后台Tab
下一个：VB怎么编写聊天框

更多图片编程知识: