用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的“哎呀”算是经典,