| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 | 
登录
注册
用户控制面板
搜索
道具
风格
短消息
论坛展区
帮助
编程论坛 → WEB开发 → 『 ASP技术论坛 』 → 大家看看我的计算器，为什么不能运行？
我的收件箱(0)
欢迎加入我们，一同切磋技术
用户名：   
 
密　码：  
共有 1092 人关注过本帖
标题：大家看看我的计算器，为什么不能运行？
取消只看楼主 加入收藏
lsdm
Rank: 1
等　级：新手上路
帖　子：140
专家分：0
注　册：2006-1-7
楼主
收藏
 问题点数：0 回复次数：8 
大家看看我的计算器，为什么不能运行？

请高手指点，谢谢！！

<body>

<script language="vbscript">
sub a()
f1.t1.vaule=f1.t1.vaule & "1"
end sub
sub b()
f1.t1.vaule=f1.t1.vaule & "2"
end sub
sub c()
f1.t1.vaule=f1.t1.vaule & "3"
end sub
sub d()
f1.t1.vaule=f1.t1.vaule & "4"
end sub
sub e()
f1.t1.vaule=f1.t1.vaule & "5"
end sub
sub f()
f1.t1.vaule=f1.t1.vaule & "6"
end sub
sub g()
f1.t1.vaule=f1.t1.vaule & "7"
end sub
sub h()
f1.t1.vaule=f1.t1.vaule & "8"
end sub
sub i()
f1.t1.vaule=f1.t1.vaule & "9"
end sub
sub j()
f1.t1.vaule=f1.t1.vaule & "0"
end sub
sub k()
f1.t1.vaule=f1.t1.vaule & "+"
end sub
sub l()
f1.t1.vaule=f1.t1.vaule & "-"
end sub
sub m()
f1.t1.vaule=f1.t1.vaule & "*"
end sub
sub n()
f1.t1.vaule=f1.t1.vaule & "/"
end sub
sub cr()
f1.t1.value=""
end sub
sub compute()
f1.t1.value=eval"f1.t1.value"
end sub
</script>
<form name="f1">
<div align="center">
<table width="200" border="1" cellspacing="0" cellpadding="0">
<tr>
<td colspan="4" align="center">青蛙计算机</td>
</tr>
<tr>
<td colspan="4"><div align="center">
<input type="text" name="t1">
</div></td>
</tr>
<tr>
<td><div align="center">
<input type="button" value=" 1 " name="v1" onClick="sub a()">
</div></td>
<td><div align="center">
<input type="button" value=" 2 " name="v2" onClick="sub b()">
</div></td>
<td><div align="center">
<input type="button" value=" 3 " name="v3" onClick="sub c()">
</div></td>
<td><div align="center">
<input type="button" value=" + " name="plus" onClick="sub k()">
</div></td>
</tr>
<tr>
<td><div align="center">
<input type="button" value=" 4 " name="v4" onClick="sub d()">
</div></td>
<td><div align="center">
<input type="button" value=" 5 " name="v5" onClick="sub e()">
</div></td>
<td><div align="center">
<input type="button" value=" 6 " name="v6" onClick="sub f()">
</div></td>
<td><div align="center">
<input type="button" value=" - " name="minu" onClick="sub l()">
</div></td>
</tr>
<tr>
<td><div align="center">
<input type="button" value=" 7 " name="v7" onClick="sub g()">
</div></td>
<td><div align="center">
<input type="button" value=" 8 " name="v8" onClick="sub h()">
</div></td>
<td><div align="center">
<input type="button" value=" 9 " name="v9" onClick="sub i()">
</div></td>
<td><div align="center">
<input type="button" value=" * " name="mult" onClick="sub m()">
</div></td>
</tr>
<tr>
<td colspan="2"><div align="center">
<input type="button" value=" = " name="eqal" onClick="compute()">
</div></td>
<td><input type="button" value=" CR " name="cr" onClick="crt()"></td>
<td><div align="center">
<input type="button" value=" \ " name="divi" onClick="sub n()">
</div></td>
</tr>
</table>
</div>
</form>
</body>
</html>

搜索更多相关主题的帖子: sub　计算器　end　
2006-03-09 16:49
lsdm
Rank: 1
等　级：新手上路
帖　子：140
专家分：0
注　册：2006-1-7
第 2 楼
收藏
 得分:0 

顶一下，请高手指点啊！谢谢！！


2006-03-09 17:54
lsdm
Rank: 1
等　级：新手上路
帖　子：140
专家分：0
注　册：2006-1-7
第 3 楼
收藏
 得分:0 
[CODE]
〈body〉
〈script language="vbscript"〉
function a()
f1.t1.value=f1.t1.value & "1"
end function
function b()
f1.t1.value=f1.t1.value & "2"
end function
function c()
f1.t1.value=f1.t1.value & "3"
end function
function d()
f1.t1.value=f1.t1.value & "4"
end function
function e()
f1.t1.value=f1.t1.value & "5"
end function
function f()
f1.t1.value=f1.t1.value & "6"
end function
function g()
f1.t1.value=f1.t1.value & "7"
end function
function h()
f1.t1.value=f1.t1.value & "8"
end function
function i()
f1.t1.value=f1.t1.value & "9"
end function
function j()
f1.t1.value=f1.t1.value & "0"
end function
function k()
f1.t1.value=f1.t1.value & "+"
end function
function l()
f1.t1.value=f1.t1.value & "-"
end function
function m()
f1.t1.value=f1.t1.value & "*"
end function
function n()
f1.t1.value=f1.t1.value & "/"
end function
function crt()
f1.t1.value=""
end function
function compute()
f1.t1.value=eval(f1.t1.value)
end function
〈/script〉
〈form name="f1"〉
〈div align="center"〉
〈table width="200" border="1" cellspacing="0" cellpadding="0"〉
〈tr〉
〈td colspan="4" align="center"〉青蛙计算机〈/td〉
〈/tr〉
〈tr〉
〈td colspan="4"〉〈div align="center"〉
〈input type="text" name="t1"〉
〈/div〉〈/td〉
〈/tr〉
〈tr〉
〈td〉〈div align="center"〉
〈input type="button" value=" 1 " name="v1" onClick="a()"〉
〈/div〉〈/td〉
〈td〉〈div align="center"〉
〈input type="button" value=" 2 " name="v2" onClick="b()"〉
〈/div〉〈/td〉
〈td〉〈div align="center"〉
〈input type="button" value=" 3 " name="v3" onClick="c()"〉
〈/div〉〈/td〉
〈td〉〈div align="center"〉
〈input type="button" value=" + " name="plus" onClick="k()"〉
〈/div〉〈/td〉
〈/tr〉
〈tr〉
〈td〉〈div align="center"〉
〈input type="button" value=" 4 " name="v4" onClick="d()"〉
〈/div〉〈/td〉
〈td〉〈div align="center"〉
〈input type="button" value=" 5 " name="v5" onClick="e()"〉
〈/div〉〈/td〉
〈td〉〈div align="center"〉
〈input type="button" value=" 6 " name="v6" onClick="f()"〉
〈/div〉〈/td〉
〈td〉〈div align="center"〉
〈input type="button" value=" - " name="minu" onClick="l()"〉
〈/div〉〈/td〉
〈/tr〉
〈tr〉
〈td〉〈div align="center"〉
〈input type="button" value=" 7 " name="v7" onClick="g()"〉
〈/div〉〈/td〉
〈td〉〈div align="center"〉
〈input type="button" value=" 8 " name="v8" onClick="h()"〉
〈/div〉〈/td〉
〈td〉〈div align="center"〉
〈input type="button" value=" 9 " name="v9" onClick="i()"〉
〈/div〉〈/td〉
〈td〉〈div align="center"〉
〈input type="button" value=" * " name="mult" onClick="m()"〉
〈/div〉〈/td〉
〈/tr〉
〈tr〉
〈td colspan="2"〉〈div align="center"〉
〈input type="button" value=" = " name="eqal" onClick="compute()"〉
〈/div〉〈/td〉
〈td〉〈input type="button" value=" CR " name="cr" onClick="crt()"〉〈/td〉
〈td〉〈div align="center"〉
〈input type="button" value=" / " name="divi" onClick="n()"〉
〈/div〉〈/td〉
〈/tr〉
〈/table〉
〈/div〉
〈/form〉
〈/body〉

[/CODE]

太感谢您了yms123，能耐心看完这些代码，请问这里为什么要用function呢？谢谢！！

[此贴子已经被作者于2006-3-9 22:41:00编辑过]


2006-03-09 22:39
lsdm
Rank: 1
等　级：新手上路
帖　子：140
专家分：0
注　册：2006-1-7
第 4 楼
收藏
 得分:0 
谢谢您了，可是还是不能运行啊，请问是怎么回事啊？

2006-03-10 09:35
lsdm
Rank: 1
等　级：新手上路
帖　子：140
专家分：0
注　册：2006-1-7
第 5 楼
收藏
 得分:0 

谢谢版主，您的这个我试了，在DW里正常运行。我在初学阶段，只知道一些VBSCRIPT的用法，我想用VBSCRIPT做这个计算器，可是我的那段代码在DW里不能运行，不知道为什么？请您指点，谢谢！！


2006-03-10 10:00
lsdm
Rank: 1
等　级：新手上路
帖　子：140
专家分：0
注　册：2006-1-7
第 6 楼
收藏
 得分:0 
[CODE]<body>
<script language="vbscript">
sub a()
f1.t1.value=f1.t1.value & "1"
end sub
sub b()
f1.t1.value=f1.t1.value & "2"
end sub
sub c()
f1.t1.value=f1.t1.value & "3"
end sub
sub d()
f1.t1.value=f1.t1.value & "4"
end sub
sub e()
f1.t1.value=f1.t1.value & "5"
end sub
sub f()
f1.t1.value=f1.t1.value & "6"
end sub
sub g()
f1.t1.value=f1.t1.value & "7"
end sub
sub h()
f1.t1.value=f1.t1.value & "8"
end sub
sub i()
f1.t1.value=f1.t1.value & "9"
end sub
sub j()
f1.t1.value=f1.t1.value & "0"
end sub
sub k()
f1.t1.value=f1.t1.value & "+"
end sub
sub l()
f1.t1.value=f1.t1.value & "-"
end sub
sub m()
f1.t1.value=f1.t1.value & "*"
end sub
sub n()
f1.t1.value=f1.t1.value & "/"
end sub
sub crt()
f1.t1.value=""
end sub
sub compute()
f1.t1.value=eval(f1.t1.value)
end sub
</script>
<form name="f1">
<div align="center">
<table width="200" border="1" cellspacing="0" cellpadding="0">
<tr>
<td colspan="4" align="center">青蛙计算机</td>
</tr>
<tr>
<td colspan="4"><div align="center">
<input type="text" name="t1">
</div></td>
</tr>
<tr>
<td><div align="center">
<input type="button" value=" 1 " name="v1" onClick="a()">
</div></td>
<td><div align="center">
<input type="button" value=" 2 " name="v2" onClick="b()">
</div></td>
<td><div align="center">
<input type="button" value=" 3 " name="v3" onClick="c()">
</div></td>
<td><div align="center">
<input type="button" value=" + " name="plus" onClick="k()">
</div></td>
</tr>
<tr>
<td><div align="center">
<input type="button" value=" 4 " name="v4" onClick="d()">
</div></td>
<td><div align="center">
<input type="button" value=" 5 " name="v5" onClick="e()">
</div></td>
<td><div align="center">
<input type="button" value=" 6 " name="v6" onClick="f()">
</div></td>
<td><div align="center">
<input type="button" value=" - " name="minu" onClick="l()">
</div></td>
</tr>
<tr>
<td><div align="center">
<input type="button" value=" 7 " name="v7" onClick="g()">
</div></td>
<td><div align="center">
<input type="button" value=" 8 " name="v8" onClick="h()">
</div></td>
<td><div align="center">
<input type="button" value=" 9 " name="v9" onClick="i()">
</div></td>
<td><div align="center">
<input type="button" value=" * " name="mult" onClick="m()">
</div></td>
</tr>
<tr>
<td colspan="2"><div align="center">
<input type="button" value=" = " name="eqal" onClick="compute()">
</div></td>
<td><input type="button" value=" CR " name="cr" onClick="crt()"></td>
<td><div align="center">
<input type="button" value=" \ " name="divi" onClick="n()">
</div></td>
</tr>
</table>
</div>
</form>
</body>
</html
[/CODE]

谢谢yms123和suyongtao版主的指点，是尖括号出错了，我用的是中文状态下的。谢谢两位！

2006-03-10 13:25
lsdm
Rank: 1
等　级：新手上路
帖　子：140
专家分：0
注　册：2006-1-7
第 7 楼
收藏
 得分:0  
<body><script language=\"vbscript\">
sub a()
f1.t1.vaule=f1.t1.vaule & \"1\"
end sub
sub b()
f1.t1.vaule=f1.t1.vaule & \"2\"
end sub
sub c()
f1.t1.vaule=f1.t1.vaule & \"3\"
end sub
sub d()
f1.t1.vaule=f1.t1.vaule & \"4\"
end sub
sub e()
f1.t1.vaule=f1.t1.vaule & \"5\"
end sub 
sub f()
f1.t1.vaule=f1.t1.vaule & \"6\"
end sub
sub g()
f1.t1.vaule=f1.t1.vaule & \"7\"
end sub
sub h()
f1.t1.vaule=f1.t1.vaule & \"8\"
end sub
sub i()
f1.t1.vaule=f1.t1.vaule & \"9\"
end sub
sub j()
f1.t1.vaule=f1.t1.vaule & \"0\"
end sub
sub k()
f1.t1.vaule=f1.t1.vaule & \"+\"
end sub
sub l()
f1.t1.vaule=f1.t1.vaule & \"-\"
end sub
sub m()
f1.t1.vaule=f1.t1.vaule & \"*\"
end sub
sub n()
f1.t1.vaule=f1.t1.vaule & \"/\"
end sub
sub cr()
f1.t1.value=\"\"
end sub
sub compute()
f1.t1.value=eval(f1.t1.value)
end sub
</script>
<form name=\"f1\">
 <div align=\"center\">
 <table width=\"200\" border=\"1\" cellspacing=\"0\" cellpadding=\"0\">
 <tr>
 <td colspan=\"4\" align=\"center\">青蛙计算机</td>
 </tr>
 <tr>
 <td colspan=\"4\"><div align=\"center\">
 <input type=\"text\" name=\"t1\">
 </div></td>
 </tr>
 <tr>
 <td><div align=\"center\">
 <input type=\"button\" value=\" 1 \" name=\"v1\" onClick=\"sub a()\">
 </div></td>
 <td><div align=\"center\">
 <input type=\"button\" value=\" 2 \" name=\"v2\" onClick=\"sub b()\">
 </div></td>
 <td><div align=\"center\">
 <input type=\"button\" value=\" 3 \" name=\"v3\" onClick=\"sub c()\">
 </div></td>
 <td><div align=\"center\">
 <input type=\"button\" value=\" + \" name=\"plus\" onClick=\"sub k()\">
 </div></td>
 </tr>
 <tr>
 <td><div align=\"center\">
 <input type=\"button\" value=\" 4 \" name=\"v4\" onClick=\"sub d()\">
 </div></td>
 <td><div align=\"center\">
 <input type=\"button\" value=\" 5 \" name=\"v5\" onClick=\"sub e()\">
 </div></td>
 <td><div align=\"center\">
 <input type=\"button\" value=\" 6 \" name=\"v6\" onClick=\"sub f()\">
 </div></td>
 <td><div align=\"center\">
 <input type=\"button\" value=\" - \" name=\"minu\" onClick=\"sub l()\">
 </div></td>
 </tr>
 <tr>
 <td><div align=\"center\">
 <input type=\"button\" value=\" 7 \" name=\"v7\" onClick=\"sub g()\">
 </div></td>
 <td><div align=\"center\">
 <input type=\"button\" value=\" 8 \" name=\"v8\" onClick=\"sub h()\">
 </div></td>
 <td><div align=\"center\">
 <input type=\"button\" value=\" 9 \" name=\"v9\" onClick=\"sub i()\">
 </div></td>
 <td><div align=\"center\">
 <input type=\"button\" value=\" * \" name=\"mult\" onClick=\"sub m()\">
 </div></td>
 </tr>
 <tr>
 <td colspan=\"2\"><div align=\"center\">
 <input type=\"button\" value=\" = \" name=\"eqal\" onClick=\"compute()\">
 </div></td>
 <td><input type=\"button\" value=\" CR \" name=\"cr\" onClick=\"crt()\"></td>
 <td><div align=\"center\">
 <input type=\"button\" value=\" \ \" name=\"divi\" onClick=\"sub n()\">
 </div></td>
 </tr>
 </table>
 </div>
</form>
</body>
</html>

[此贴子已经被作者于2006-3-10 13:44:02编辑过]


2006-03-10 13:38
lsdm
Rank: 1
等　级：新手上路
帖　子：140
专家分：0
注　册：2006-1-7
第 8 楼
收藏
 得分:0 
以下是引用yms123在2006-3-10 13:30:00的发言：

忘了说了，把我那个代码中的中文〈替换为英文<是可以运行的，我在DWMX2004里试过了。

谢谢您的帮助，我用的就是您的代码！


2006-03-10 13:50
lsdm
Rank: 1
等　级：新手上路
帖　子：140
专家分：0
注　册：2006-1-7
第 9 楼
收藏
 得分:0 
以下是引用yms123在2006-3-10 13:48:00的发言：
f1.t1.vaule
拼写错误应该是value
onClick="sub a()"
这里直接写成
onClick="a()"
就可以了不需要写明sub或function

您的说的对，我就是错在这里了，不知道如何调用这个过程。这下明白了，谢谢！


2006-03-10 13:52
快速回复：大家看看我的计算器，为什么不能运行？
数据加载中...
 
　　　



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有，并保留所有权利。
Powered by Discuz, Processed in 0.014054 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved