- Dim h,g,m,hmsg,gmsg,mmsg
- hmsg="请输入CPU核心数:"
- h=InputBox(hmsg)
- MsgBox h
- h=CDbl(h)
- gmsg="请输入CPU频率:"
- g=InputBox(gmsg)
- MsgBox g
- g=CDbl(g)
- mmsg="请输入内存大小(不建议频率低于2133MHZ):"
- m=InputBox(mmsg)
- MsgBox m
- m=CDbl(m)
- Dim cr,cmr,crl,cmrl
- crl = 0.9
- cmrl = 0.2
- cr = Int(h)*Int(g)*crl
- cmr = Int(h)*Int(g)*Int(m)*cmrl
- MsgBox cmr
- MsgBox cr
- If cr > cmr Then
- MsgBox cmr
- ElseIf cmr > cr Then
- MsgBox cr
- ElseIf cmr = cr Then
- MsgBox cr
- End If
复制代码 为什么这个代码最后输出不是h*g*m*0.2或者h*g*0.9啊
小弟不大懂 跪求大佬解答 |