[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
本帖最后由 czjt1234 于 2023-3-18 16:39 编辑

回复 6# Pangda5268


   你的代码我在win7x64上测试没问题,也是输入的你指定的数值
根据demon的最佳推荐http://demon.tw/programming/vbs-add-two-number.html

修改如下,你再试下

  1. Dim h, g, m, hmsg, gmsg, mmsg
  2. hmsg = "CPU core:"
  3. h = 0 + InputBox(hmsg)
  4. If h > 8 Then
  5.     h = 8
  6. End If
  7. gmsg = "CPU frequency:"
  8. g = 0 + InputBox(gmsg)
  9. mmsg = "RAM:"
  10. m = 0 + InputBox(mmsg)
  11. c2 = h * g
  12. cm2 = h * g * m
  13. cr = c2 * 1
  14. cmr = cm2 * 3 / 10
  15. cmrz = Round(cmr, 0)
  16. crz = Round(cr, 0)
  17. If crz > cmrz Then
  18.     MsgBox cmrz
  19. ElseIf cmrz > crz Then
  20.     MsgBox crz
  21. ElseIf cmrz = crz Then
  22.     MsgBox crz
  23. End If
复制代码
1

评分人数


QQ 20147578

TOP

返回列表