用VBS语言实现的网页计算器源代码
来源：asp之家 发布时间：2007-12-26 17:09:00
标签：计算器,VBS
用VBS语言实现的一个简单网页计算器，功能：可以进行加法、减法、乘法、除法、取反、开根号、及指数运算。虽然简单但是比起windows xp自带的计算器功能还是更强的。
截图如下：
程序作者：李笑天 来自：http://bbs.blueidea.com/thread-2802869-1-1.html
vbs代码如下：
<script language=vbscript>
dim num1,op
sub Number(num)
if TxtValue.value="0" then
if num="." then
if instr(TxtValue.value,".") then
else
TxtValue.value=TxtValue.value & num
end if
else
TxtValue.value=num
end if
else
if num="." then
if instr(TxtValue.value,".") then
else
TxtValue.value=TxtValue.value & num
end if
else
TxtValue.value=TxtValue.value & num
end if
end if
end sub
sub opType(opT)
num1=cDBL(TxtValue.value)
op=opT
TxtValue.value=""
end sub
sub equ()
select case op
case "+"
txtvalue.value=cDBL(TxtValue.value) + num1
case "-"
txtvalue.value=cstr(num1 - cDBL(TxtValue.value) )
case "*"
txtvalue.value=cDBL(TxtValue.value) * num1
case "/"
txtvalue.value=cstr(num1 / cDBL(TxtValue.value) )
case "z"
TxtValue.value=cstr(num1 ^ cDbl(TxtValue.value))
end select
if left(txtvalue.value,1)="." then txtvalue.value= "0" & txtvalue.value
num1=cDBL(TxtValue.value)
end sub
sub QL()
num1=0
TxtValue.value="0"
end sub
sub QF()
TxtValue.value= cstr(-cDbl(TxtValue.value))
end sub
sub GH()
TxtValue.value= sqr(cDbl(TxtValue.value))
end sub
</script>
网页计算器演示：
0
投稿猜你喜欢
- 1.新建一个vs2003的web工程,取名为XMLTest &nbs
- 1、DOMWEB标准现在可真是热门中热门，不过下面讨论的是一个不符合标准的document.all[]。DOM－－DOCUMENTOBJEC
- 在多数情况下，以增加文件大小代价来换连接数是有价值。而MHTML+dataURI = 省连接数，如果你不知道这是什么东东，可以看秦歌写的Da
- 连接数据库：mysql -u用户名 -p密码导入数据 source d:\create.sql用下面的语句就可以导出mysql中的数据了：m
- 经常在工作中会使用到XPath的相关知识，但每次总会在一些关键的地方不记得或不太清楚，所以免不了每次总要查一些零碎的知识，感觉即很烦又浪费时
- SQL Server数据库备份有两种方式，一种是使用BACKUP DATABASE将数据库文件备份出去，另外一种就是直接拷贝数据库文件mdf
- 一、引言Server端的脚本运行环境，它简单易用，不需要编译和连接，脚本可以在 Server端直接运行，并且它支持多用户、多线程，因为 AS
- 前两天在做一个站内版的企搜引擎，发现某些站点可以链接站点内容。。奇怪之下看了看，原来是按照数据库ID的自动编号规律进行链接的~~闲暇之余弄了
- 很早就在这里看到过解决方案，与嗷嗷讨论后发现这个方案还是很可靠的。当然，唯一的缺点就是每一个属性都要去Hack，但我在很多实践中，只用‘修正
一个网站的导航就相当于是一条路的路标，不同的是，网站的不同栏目页的入口远远比马路要来得复杂，所以一个清晰的导航设计对于一个网站的意义远远大于- 在开发WEB应用程序中，我们经常需要对文件系统中的驱动器、文件夹和文件进行处理，比如收集驱动器的相关信息；创建、添加、移动或删除文件夹和文件
- 代码如下:<title>雷锋|优酷-专辑 采集程序</title></head> &
- 今早打开 腾讯ISD的博客 ，看到一篇新的文章，《迷你屋视觉规范简介》，赶紧看了来学习。不过给我抓到问题咯，臭鱼不介意我在这说下吧：这套规范
- 代码'########### '检测远程文件是否存在 '########### function CheckURL(
- 星期五写了个分类信息的小东东!在数据库里只有ip地址,一般访客不太清楚IP地址来源于哪个城市.如果在表里多一个列保存城市又没有真实性可言.如
- 301和302 Http状态有啥区别？301，302 都是HTTP状态的编码，都代表着某个URL发生了转移，不同之处在于：301 redir
- 在my.cnf中设置了sql_mode='STRICT_TRANS_TABLES';却发现还是有非法数据的写入，比如无符号整
- 程序编制 随着WEB的发展，与浏览者的交互越来越受到网站制作者的重视。现在的主页跟最初的静态主
- 注释：在大多数的情况下，修改MySQL是需要有mysql里的root权限的，所以一般用户无法更改密码，除非请求管理员。方法1使用phpmya
- 现在越来越多的浏览器有拦截弹出窗口的功能。广告弹出来给拦掉了就无所谓，要是客户在付款时给拦掉了可就不能乱算了。Gmail的“哎呀”算是经典，
