程序代码是什么？我写了好久不可运行
我写的代码如下：
<title>无标题文档</title>
</head>
<body>
<script language="vbscript">
<!--
msg=msgbox("准备好了吗？请点确定按钮开始",0+32)
if msg=1 then
randomize
ans=int(rnd()*(1000-1+1)+1)
i=0
do
n=inputbox("请输入一个数","猜数字")
if n=" " then
msgbox "很遗憾，你放弃了！"
exit do
elseif ans>cint(n) then
msgbox"不正确，你输入的数字的数字偏小了！"
i=i+1
elseif ans>cint(n) then
msgbox "不正确，你输入的数字偏大了！"
i=+i+1
elesif ans=cint(n) then
i=i+1
msgbox "恭喜你猜 对了！"&chr(13)"你一共猜了"&i&"次。"chr(13)&"正确的数是：“&ans
exit do
end if
loop
end if
-->
</script>
</body>
</html>
<title>无标题文档</title>
</head>
<body>
<script language="vbscript">
<!--
msg=msgbox("准备好了吗？请点确定按钮开始",0+32)
if msg=1 then
randomize
ans=int(rnd()*(1000-1+1)+1)
i=0
call checkNum(ans)
end if
function checkNum(ans)
n=inputbox("请输入一个数","猜数字")
if n=" " or n="" then
msgbox "很遗憾，你放弃了！"
elseif ans>cint(n) then
msgbox"不正确，你输入的数字的数字偏小了！"
i=i+1
call checkNum(ans)
elseif ans<cint(n) then
msgbox "不正确，你输入的数字偏大了！"
i=i+1
call checkNum(ans)
elseif ans=cint(n) then
i=i+1
msgbox "恭喜你猜 对了！"&chr(13)&"你一共猜了"&i&"次。"&chr(13)&"正确的数是："&ans
end if
end function
-->
</script>
</body>
</html>