|
#2
mrexcel2023-03-19 21:24
|
我输入的数据是6 5.3 32
vbs文件用的是ansi
它显示：
行：21
字符：1
错误：类型不匹配："[string："5.3"]'
代码：800A000D
源：Microsoft VBScript 运行时错误
程序代码：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 If
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 If