Pangda5268 当前离线
列兵
Dim h,g,m,hmsg,gmsg,mmsghmsg="请输入CPU核心数:"h=InputBox(hmsg)MsgBox hh=CDbl(h)gmsg="请输入CPU频率:"g=InputBox(gmsg)MsgBox gg=CDbl(g)mmsg="请输入内存大小(不建议频率低于2133MHZ):"m=InputBox(mmsg)MsgBox mm=CDbl(m)Dim cr,cmr,crl,cmrlcrl = 0.9cmrl = 0.2cr = Int(h)*Int(g)*crlcmr = Int(h)*Int(g)*Int(m)*cmrlMsgBox cmrMsgBox crIf cr > cmr Then MsgBox cmr ElseIf cmr > cr Then MsgBox cr ElseIf cmr = cr Then MsgBox cr End IfCOPY
jyswjjgdwtdtj 当前离线
中尉
cr = Int(h)&"*"&Int(g)&"*"&crlcmr = Int(h)&"*"&Int(g)&"*"&Int(m)&"*"&cmrlCOPY
TOP
Dim h,g,m,hmsg,gmsg,mmsg hmsg="CPU core:" h=InputBox(hmsg) If h>8 Then h=8 End If gmsg="CPU frequency:" g=InputBox(gmsg) mmsg="RAM:" m=InputBox(mmsg) c2=h*g cm2=h*g*m cr=c2*1 cmr=cm2*3/10 cmrz=Round(cmr, 0) crz=Round(cr, 0) If crz > cmrz Then MsgBox(cmrz) ElseIf cmrz > crz Then MsgBox(crz) ElseIf cmrz = crz Then MsgBox(crz) End IfCOPY
czjt1234 当前离线
少校
Dim h, g, m, hmsg, gmsg, mmsg hmsg = "CPU core:"h = 0 + InputBox(hmsg)If h > 8 Then h = 8End Ifgmsg = "CPU frequency:"g = 0 + InputBox(gmsg)mmsg = "RAM:"m = 0 + InputBox(mmsg)c2 = h * gcm2 = h * g * mcr = c2 * 1cmr = cm2 * 3 / 10cmrz = Round(cmr, 0) crz = Round(cr, 0) If crz > cmrz Then MsgBox cmrzElseIf cmrz > crz Then MsgBox crzElseIf cmrz = crz Then MsgBox crzEnd IfCOPY
评分人数
发表于 2023-3-17 18:24
| 
