本帖最后由 czjt1234 于 2023-3-18 16:39 编辑
回复 6# Pangda5268
你的代码我在win7x64上测试没问题,也是输入的你指定的数值
根据demon的最佳推荐http://demon.tw/programming/vbs-add-two-number.html
修改如下,你再试下
- Dim h, g, m, hmsg, gmsg, mmsg
-
- hmsg = "CPU core:"
- h = 0 + InputBox(hmsg)
- If h > 8 Then
- h = 8
- End If
- gmsg = "CPU frequency:"
- g = 0 + InputBox(gmsg)
- mmsg = "RAM:"
- m = 0 + 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 If
复制代码
|