用VBS语言实现的网页计算器源代码
来源:asp之家 时间:2007-12-26 17:09:00
用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>
网页计算器演示:
标签:计算器,VBS
0
投稿
猜你喜欢
理解JavaScript中的事件 Event
2008-03-19 11:16:00
asp实现非大小写的替换函数
2010-05-19 21:23:00
您需要了解的DIV+CSS网页布局的8条面试题目
2010-01-29 13:22:00
如何利用SQL Server 2005中的模板参数
2009-01-23 15:02:00
自动定时备份sqlserver数据库的方法
2011-11-03 17:28:17
小议JavaScript泛式框架架构的逻辑形式
2010-07-02 12:55:00
用CSS制作兼容多浏览量器的隐藏菜单
2007-08-30 09:05:00
如何修改Editplus让图片自适应界面大小
2007-09-26 12:37:00
搜索结果页(SERP):个性化如何影响用户行为?
2009-07-22 21:00:00
教你设计大型Oracle数据库
2009-07-02 12:31:00
用户研究中的人物角色
2010-02-08 12:15:00
深入研究ASP中的Session
2007-09-13 12:37:00
如何避免SQL语句中含有单引号而导致操作失败?
2009-11-07 18:40:00
PHP使用laravel邮件服务发送邮件
2023-05-25 03:48:23
一些sql语句
2009-04-10 18:36:00
AJAX简单应用实例-弹出层
2011-04-14 10:55:00
asp dictionary对象的用法
2011-04-14 11:09:00
设计工作者必须了解的常识
2008-04-06 13:56:00
Mootools 1.2教程(3)——数组使用简介
2008-11-17 20:16:00
在MySQL中使用XML数据—数据格式化
2009-12-29 10:26:00