下面是我用vbscript编写的一计算器，请大家帮忙看看。
谢谢！！！！
<html>
<head>
<script language="vbscript">
dim s,i,t
s=""
i=0
t=0
function ys(x)
t=t+1
if t=1 then
    s=trim(x)
    i=cint(s)
    form1.text1.value=s
else
    if cint(trim(x))>=0 and cint(trim(x))<=9 then
        s=s+trim(x)
        form1.text1.value=s
    elseif x="+" then
        i=cint(s)+i
        s=""
    document.write "sdlkfsdk"
    elseif x="-" then
        i=i-cint(s)
        s=""
    elseif x="*" then
        i=i*cint(s)
        s=""
    elseif x="\" then
        i=i\cint(s)
        s=""
    end if

end if
end function
function equ()
text1.value=cstr(i)
end function
</script>
</head>
<body>
<form name="form1">
<input type="text" name="text1" size=30><br>
<input type="button" name="button1"  value="1" onclick="ys(button1.value)">
<input type="button" name="button2"  value="2" onclick="ys(button2.value)">
<input type="button" name="button3"  value="3" onclick="ys(button3.value)">
<input type="button" name="button4"  value="4" onclick="ys(button4.value)">
<br>
<input type="button" name="button5"  value="5" onclick="ys(button5.value)">
<input type="button" name="button6"  value="6" onclick="ys(button6.value)">
<input type="button" name="button7"  value="7" onclick="ys(button7.value)">
<input type="button" name="button8"  value="8" onclick="ys(button8.value)">
<br>
<input type="button" name="button9"  value="9" onclick="ys(button9.value)">
<input type="button" name="buttona"  value="+" onclick="ys(buttona.value)">
<input type="button" name="buttons"  value="-" onclick="ys(buttons.value)">
<input type="button" name="buttonm"  value="*" onclick="ys(buttonm.value)">
<br>
<input type="button" name="buttonv"  value="\" onclick="ys(buttonv.value)">
<input type="button" name="buttone"  value="=" onclick="equ()">
<input type="reset" value="清除">
</form>
</body>
</html>